Question

vb6里如何屏蔽所有键盘按键而只留下数字键盘呢

目前我只能这样

Private Sub Text3_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
这是屏蔽所有的按键，我希望小键盘能用，小键盘的数字键还是输入数字键，运算符响应我相应的按钮事件，请问该如何做

Answer 1

Private Sub Text3_KeyPress(KeyAscii As Integer)
if ( KeyAscii < Asc("0") or KeyAscii > Asc("9") ) and KeyAscii <> 13 and KeyAscii <> Asc(".") then
KeyAscii = 0
end if
End Sub

追问

这个是所有数字键（包括大键盘）和回车键管用。
我想让，只有小键盘管用，并且想让小键盘上的+-等运算符响应我的按钮事件。