在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