vb字符转换，输入一个字符，如果是大写字母则转换成小写字母，如果是小写字母则转换成大写字母
发布网友
发布时间：2022-04-24 23:56
共1个回答
热心网友
时间：2023-10-15 11:55
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = UCase(Chr(KeyAscii)) Then
KeyAscii = Asc(LCase(Chr(KeyAscii)))
Else
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End If
End Sub
以上代码涉及控件：Text1
