重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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