求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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com