|
▼ichinose さん:
ありがとうございます。
やってみます。
>>Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
>>
>> If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
>> KeyAscii = 0
>> End If
>>
>>End Sub
>>
>>テキストボックスのキープレスをクラスで使いたいです。
>>
>>既にクラスにはテキストボックスがチェンジしたときに別のコードを呼べるようにしているのですが。
>>
>>Private Sub mytx_change()
>> Call MyCaller.tx2(Myindex3)
>>End Sub
>>
>>キープレスはどうしたらいいでしょうか?
>
>上記のコードでChangeイベントが発生しているなら
>
>Private Sub mytx_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
> Msgbox Keyascii
>End Sub
>
>これでKeyPressイベントも発生するはずです。
|
|