率土之滨曹仁加速度:关于VB编程的问题
来源:百度文库 编辑:神马品牌网 时间:2024/07/18 05:40:24
新建一个工程,文本框text1,使用户输入字母一律转换为大写显示(焦点在最右端)保存。
我是这样做的
Private Sub Text1_Change()
Text1.Text = UCase(Text1.Text)
End Sub
可是焦点总在左边
怎么办?
我是这样做的
Private Sub Text1_Change()
Text1.Text = UCase(Text1.Text)
End Sub
可是焦点总在左边
怎么办?
Private Sub Text1_Change()
Text1 = UCase(Text1.Text)
Text1.SelLength = 1
Text1.SelStart = Len(Text1.Text)
Text1.SetFocus
End Sub
good
very good