Option Explicit

'接受和控制一个文本框
Private WithEvents myTXT As TextBox

'模块级变量用来检测输入的是否为数字
Private IsNumber As Boolean

'接受一个外部变量到myTXT中
Public Sub Attach(ByVal itTXT As TextBox)
Set myTXT = itTXT
End Sub

Private Sub myTXT_KeyUp(KeyAscii As Integer, Shift As Integer)
'检测键盘输入的是否为数字0-9和连接符，退格
If KeyAscii > 47 And KeyAscii < 58 Or KeyAscii = 8 Or KeyAscii = 45 Then
IsNumber = True
Else
IsNumber = False
Beep
'如果不是则清空文本框
myTXT = ""
End If
End Sub


问题:
用小键盘输入数字同样无效,想知道why?

呵呵,我这会没事写着玩的

问题已经解决了

0 至 9 键与数字 0 – 9 的 ASCII 码相同：

常数 值 描述
vbKey0 48 0 键
vbKey1 49 1 键
vbKey2 50 2 键
vbKey3 51 3 键
vbKey4 52 4 键
vbKey5 53 5 键
vbKey6 54 6 键
vbKey7 55 7 键
vbKey8 56 8 键
vbKey9 57 9 键

下列常数代表数字键盘上的键：

常数 值 描述
vbKeyNumpad0 0x60 0 键
vbKeyNumpad1 0x61 1 键
vbKeyNumpad2 0x62 2 键
vbKeyNumpad3 0x63 3 键
vbKeyNumpad4 0x64 4 键
vbKeyNumpad5 0x65 5 键
vbKeyNumpad6 0x66 6 键
vbKeyNumpad7 0x67 7 键
vbKeyNumpad8 0x68 8 键
vbKeyNumpad9 0x69 9 键
vbKeyMultiply 0x6A MULTIPLICATION SIGN (*) 键
vbKeyAdd 0x6B PLUS SIGN (+) 键
vbKeySeparator 0x6C ENTER 键
vbKeySubtract 0x6D MINUS SIGN (–) 键
vbKeyDecimal 0x6E DECIMAL POINT (.) 键
vbKeyDivide 0x6F DIVISION SIGN (/) 键

想见识，看来。。。。。

实在遗憾！

[此贴子已经被作者于2007-9-28 9:48:38编辑过]