正文
VB里的TEXT控件只能输入数字的代码
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
Const xStr As String = ""
'先声明一个常量,并把你想禁用或允许输入的内容赋值给它Private Sub Text1_KeyPress(KeyAscii As Integer)
'只能输入数字
KeyAscii = IIf(InStr(xStr & Chr(), Chr(KeyAscii)), KeyAscii, )
End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)
'只能输入数字以外的字符
KeyAscii = IIf(InStr(xStr, Chr(KeyAscii)), , KeyAscii)
End Sub