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

SelLength、SelStart、SelText 属性：http://www10.zzu.edu.cn/ie_wangjunfeng/daquan/property/content/SelLength_SelStart_SelText.htm

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!