在vb中文本框输入怎么把小写自动转换为大写

VB6.0可以文本框的KeyPress事件中判断键盘输入字符的keyascii参数做判断来自动转换。

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii >= Asc("a") And KeyAscii <= Asc("z") Then
        KeyAscii = KeyAscii - 32
    End If
End Sub

或者使用Ucase函数在文本框的KeyPress事件中来转换。

UCase 函数，返回 Variant (String)，其中包含转成大写的字符串。

Private Sub Text1_KeyPress (KeyAscii As Integer)
   Char = Chr(KeyAscii)
   KeyAscii = Asc(UCase(Char))
End Sub

如果是界面里面的话，需要对文本内容进行监听，才能进行转换。具体是可以识别是否有空格，

UCase（）函数可以把字符串中的小写字符大写
在 Change 事件里转换一下
Private Sub TextBox1_Change()
TextBox1.Text = UCase(TextBox1.Text)
End Sub

VB6.0可以文本框的KeyPress事件中判断键盘输入字符的keyascii参数做判断来自动转换。
KeyPress事件，此事件当用户按下和松开一个
ANSI
键时发生。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("a") And KeyAscii <= Asc("z") Then
KeyAscii = KeyAscii - 32
End If
End Sub或者使用Ucase函数在文本框的KeyPress事件中来转换。
UCase
函数，返回
Variant
(String)，其中包含转成大写的字符串。
Private Sub Text1_KeyPress (KeyAscii As Integer)
Char = Chr(KeyAscii)
KeyAscii = Asc(UCase(Char))
End Sub