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
原文地址:https://www.jb51.cc/vb/260377.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。