|
>とおりすがりさん
解決しました!
Me.caption= keycodeを記述したおかげで、ピリオドのkeycodeがわかりました!
本当にありがとうございましたm(_ _)m
私がみたコード表だと46なのですが一体どういうことなのでしょうか・・・?
間違った表でも見てたのでしょうか?
▼とおりすがり さん:
>ピリオドは何番?
>
>Private Sub Ttxt_KeyDown( _
> ByVal KeyCode As MSForms.ReturnInteger, _
> ByVal Shift As Integer)
>
> Dim blnFlag As Boolean '←これはいいのかな?
>
>Me.Caption = KeyCode
>
> blnFlag = ((KeyCode >= 48) * (KeyCode <= 57)) _
> + (KeyCode = 8) + (KeyCode = 13) _
> + (KeyCode = 9) + (KeyCode = 46)
>
> If Not blnFlag Then
> KeyCode = 0
> End If
>
>End Sub
|
|