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