vb.net textbox1.text 鼠标一点 全部选择

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就可以了

VB怎么让文本框单击全选

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

vb中如何通过点击按钮，全选文本框中所有文字？

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

标题名称：vb.net文本框全选中 vb全选文本框内容
文章源于：http://kswsj.cn/article/dojodpd.html