发信人: makoto.g(Makoto)
整理人: winsy(2003-03-05 16:24:23), 站内信件
|
使用如下代码，在文本框的按键事件中加入：
Private Sub Textl_KeyPress（KeyAscii As Integer）
If keyAscii>=33 Then
If KeyAscii<=vbkey9 And KeyAscii>=vbKey0 Then
Else '把KeyAscii设为0就是取消输 入。
KeyAscii=0
MsgBox ”不要输入数字！”
End If
End If
End Sub
注意：KeyAscii键值与KeyCode相同，我们可以查看KeyCode值，
不过有些KeyCode键值必须在 KeyDown和KeyUp中才有效，
在KeyPress的KeyAscii中没用。利用 KeyAscii=0的方式在
KeyPress中有用，但在KeyDown中让KeyCode=0 就不行了
----
Microsoft Visual Basic
████【G】████TM
█ █
█ Makoto █
█ 无敌VB签名 █ 无法想象没有VB的世界,我怎样活下去
█ █ I Only Love Visual Basic !
███████████
kinki-kids@GZ Forever 本签名仅适用于新广州社区-VB和Basic版
███████████ 版权所有(C) 2001年Makoto全部保留.
|
|