制限の仕方について

電卓みたいなつくりで、コマンドボタン(数字の０～９と'－’や小数点など、よってコマンドボタンの数は１２個ぐらいです。コマンドボタンを一つ一つの数字に対応させている。）を押したらラベルやテキストに数字を表示するもの作っています。わかりやすく言うと(？)、電卓の計算機能を取り除いたやつです。そこで、数字入力の際にラベルやテキストに－100～100までしか表示できないようにするには、どのように記述すればいいのですか？教えてください。

No.1 回答者： nikorin 回答日時： 2002/02/19 10:28

あんまり賢くないやりかたですが、タイマーでラベル/テキストを

監視しておいて、－100～100以外の値が入ったときにメッセージ
ボックスをだしてクリアする、というのはどうですか？

この回答へのお礼

ありがとうございました。参考になりました。

お礼日時：2002/03/13 17:14

No.2 回答者： hysteric5 回答日時： 2002/02/19 10:53

すいません。

少し質問の意図が良く分かってないのですが
ただたんにボタンを押下された時にテキストボックスかラベルをチェックして
やればいいんじゃないですか？

No.3 ベストアンサー 回答者： ykkw_2001 回答日時： 2002/02/19 14:47

＞数字入力の際にラベルやテキストに－100～100までしか表示できないようにするには、どのように記述すればいいのですか？

こんな感じ？

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9")
KeyAscii = KeyAscii
Case Asc("-")
KeyAscii = KeyAscii
Case Else
KeyAscii = 0
End Select
End Sub

Private Sub Text1_Validate(Cancel As Boolean)
If ((CLng(Text1.Text) < -100) Or (100 < CLng(Text1.Text))) Then
Beep
Cancel = True
End If
End Sub

＃１、＃２のひとと同じことですけど・・・（ヒマなんで・・）