VB工程--百例64光标位置

最新推荐文章于 2023-08-16 05:13:19 发布

最新推荐文章于 2023-08-16 05:13:19 发布 · 187 阅读

本文介绍了一个使用VBA实现的简单示例程序，该程序演示了如何通过按钮点击事件来修改文本框中的内容，包括显示欢迎信息、清空文本框以及通过不同选项设置文本框的选择范围。

Option Explicit

Private Sub Command1_Click()
txt1.Text = "欢迎来到廊坊师范学院"
End Sub

Private Sub Command2_Click()
txt1.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Option1_Click()
txt1.SelStart = 0 '起始点在左侧选中文本时，Text1.SelStart是“被选中文本的开始位置”
txt1.SetFocus '文本框获得焦点
End Sub

Private Sub Option2_Click()
Dim a '定义变量，用于返回文本框中字符的长度
a = Len(txt1.Text) '变量a的值是文本框中文本的长度
txt1.SelStart = a '起点是文本框中字符串的产度
txt1.SetFocus '文本框获得焦点
End Sub

Private Sub Option3_Click()
txt1.SelStart = 0
txt1.SelLength = Len(txt1.Text) '所选择的字符数是文本框中字符的长度
txt1.SetFocus
End Sub