VB6 只能在TextBox中输入数字4月10日 23:21
新建From1（窗体），新建Text1（TextBox），Command1（按钮CommandButton），代码：
Private Sub Text1_KeyPress(KeyAscii As Integer)
'只能输入数字
If KeyAscii ＜ 48 Or KeyAscii ＞ 57 Then
KeyAscii = 0
End If
End Sub新建From1（窗体），新建Text1（TextBox），Command1（按钮CommandButton），代码：
Private Sub Text1_KeyPress(KeyAscii As Integer)
'只能输入数字
If KeyAscii ＜ 48 Or KeyAscii ＞ 57 Then
KeyAscii = 0
End If
End Sub
全部回复（0）