Question

vb如何设置文本框输入只为大写字母和数字

rt
下面程序该如何补充
Private Sub text1_keypress(KeyAscii As Integer)
Select Case KeyAscii
Case 8
'无变化,退格键不屏蔽
Case Asc(" ") '32
If Text1.SelLength = 0 Then
KeyAscii = 0
End If
Case Is < Asc(0) '48
KeyAscii = 0
Case Is > Asc(9) '57
KeyAscii = 0
End Select
End Sub

Answer 1

VB可在文本框的KeyPress事件中判断键盘输入字符的keyascii参数做取舍。

KeyPress事件，此事件当用户按下和松开一个 ANSI 键时发生。

Private Sub Form_Load()
    Text1 = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii >= 65 And KeyAscii <= 90 Then
    
    Else
        KeyAscii = 0
    End If
End Sub

Answer 2

Private Sub text1_keypress(KeyAscii As Integer)
Select Case KeyAscii
Case 8
'无变化,退格键不屏蔽
Case Asc(" ") '32
If Text1.SelLength = 0 Then
KeyAscii = 0
End If
Case Is < Asc("0") '48
KeyAscii = 0
Case Is <= Asc("9") '57

Case Is < Asc("A") '48
KeyAscii = 0
Case Is > Asc("Z") '57
KeyAscii = 0
End Select
End Sub

Answer 3

Private Sub text1_keypress(KeyAscii As Integer)
Select Case KeyAscii
Case 8
'无变化,退格键不屏蔽
Case Asc("0") To Asc("9")
Case Asc("A") To Asc("Z")
Case Else' 除了以上的 都屏蔽
KeyAscii = 0

End Select
End Sub

Answer 4

KeyAscii = Asc(UCase(Chr(KeyAscii)))
Select Case KeyAscii
Case 8
Case Is < 48
KeyAscii = 0
Case Is < 58
Case Is < 65
KeyAscii = 0
Case Is > 90
KeyAscii = 0
End Select