Private Sub Text1_KeyPress(KeyAscii As Integer) '只能输入汉字
If KeyAscii >= -20319 And KeyAscii <= -3652 Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer) '只能输入数字0~9
If KeyAscii >= 48 And KeyAscii <= 57 Then
Else
KeyAscii = 0
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024