加油站网架罩棚:关于VB编程的问题

来源：百度文库 编辑：中科新闻网 时间：2024/04/30 19:21:07
新建一个工程，文本框text1,使用户输入字母一律转换为大写显示（焦点在最右端）保存。

我是这样做的
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

关于VB编程的问题 关于vb编程的问题 关于vb编程的问题 关于VB编程的问题 关于VB的编程问题 关于VB编程的问题 关于VB编程的问题 关于VB编程的问题 关于VB编程的问题 关于VB编程的问题