求vb代码！只能输入字母数字下划线！的vb代码！
发布网友
发布时间：2022-03-27 09:47
共1个回答
热心网友
时间：2022-03-27 11:16
在KeyDown事件里面把原来的内容保存在一个变量里面，然后在KeyUp里判断如果Keycode不是字母数字下划线就把原来的内容写回。
下面是例子：
Public YL As String
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
YL = Text1.Text
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If (KeyCode > 122 Or KeyCode < 127) Or KeyCode < 48 Or (KeyCode > 57 And KeyCode < 65) Or (KeyCode > 90 And KeyCode < 97) Then
Text1.Text = YL
End If
End Sub
