周兆达的回答：

Private Sub Text1_KeyPress(KeyAscii As Integer) ua = Asc("A"): uz = Asc("Z"): la = Asc("a"): lz = Asc("z") sa = la - ua If KeyAscii >= ua And KeyAscii <= uz Then '是大写 KeyAscii = KeyAscii + sa ElseIf KeyAscii >= la And KeyAscii <= lz Then '是小写 KeyAscii = KeyAscii - sa End If End Sub

王心宜的回答：

Private Sub Text1_KeyPress(KeyAscii As Integer) ua = Asc("A"): uz = Asc("Z"): la = Asc("a"): lz = Asc("z") sa = la - ua If KeyAscii >= ua And KeyAscii <= uz Then '是大写 KeyAscii = KeyAscii + sa ElseIf KeyAscii >= la And KeyAscii <= lz Then '是小写 KeyAscii = KeyAscii - sa End If End Sub

杨华勇的回答：

VB不是很熟,但理论进差不多吧 在文件框中的change事件中写上form1.text1.text=upper(form1.text1.text)这样就行了. 不过有的语言可以直接设置文本的mask自动变成大写

浪够了再回来的回答：

dim myversion '保存版本信息到 myversion = "ftchp.ini"      '"d:\123.ini" open myversion for output as #1 print #1,text1.text   

close #1

贾延鹏的回答：

没有分呀。 还有你到底是要大写还是小写呀 描述清除HI我吧