点击下载此附件
其中一种方法:击键事件这样写
Private Sub Text0_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) '转大写 End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer) KeyAscii = Asc(LCase(Chr(KeyAscii))) '转小写 End Sub