扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click
成都创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：做网站、成都网站设计、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的雨山网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
TextBox1.SelectAll()
TextBox1.ForeColor = Color.Blue
End Sub
如果不想每次都这样的话，就加一个if判断TextBox1.ForeColor 是否是Color.Blue就可以了
Option Explicit
'全选文本框中文本
Private Sub SelectAll()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End Sub
Private Sub Command1_Click()
'点击Command1，全选文本
SelectAll
End Sub
Private Sub Form_Click()
'点击窗体，全选文本
SelectAll
End Sub
1）在窗体上布置一个TextBox和一个Command控件
2）窗体代码
Option Explicit
Private Sub Command1_Click()
'选择文本框中所有文本
With Text1
.SelStart = 0
.SelLength = Len(Text1.Text)
'让文本框获取焦点
.SetFocus
End With
End Sub
Private Sub Form_Load()
'在TextBox中显示一些文本
Text1.Text = "Visual Basic是一种可视化程序设计语言"
'命令按钮的提示
Command1.Caption = "选择所有文本"
End Sub
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网