Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34501 / 76738

←次へ　｜　前へ→


	【47446】Re:テキストボックスの入力制限

ichinose - 07/3/10(土) 10:38 -


	引用なし

	パスワード

おはようございます。
今、起きて気が付きました

>
>
>>Me.caption= keycodeを記述したおかげで、ピリオドのkeycodeがわかりました！
>>
>>本当にありがとうございましたm(_ _)m
>>
>>私がみたコード表だと46なのですが一体どういうことなのでしょうか・・・？
>>間違った表でも見てたのでしょうか？
>Keycodeは、あくまでもキーコードです。
>よって、同じ1でもテンキーでは、違うコードになります。
>
>KeydownイベントのKeycodeで入力内容をチェックしていては
>処理が大変です。
>
>Changeイベントで処理すると、
>
>Private Sub TextBox1_Change()
　　Dim g0 As Long
　　Dim mstr As String
　　With TextBox1
　　　For g0 = 1 To Len(.Text)
　　　　 mstr = Mid(.Text, g0, 1)
　　　　 If Not CBool((Asc(mstr) >= &H30) * (Asc(mstr) <= &H39) _
　　　　　　+ (Asc(mstr) = &H2E)) Then
　　　　　　.Text = Mid(.Text, 1, g0 - 1)
　　　　　　Exit For
　　　　　　End If
　　　　 Next
　　　End With
>End Sub

イベントが発生する度にテキスト全部チェックしないと
駄目ですね！！

0 hits

▼

【47433】テキストボックスの入力制限 ハル 07/3/9(金) 17:32