vb 如何做到：如果textbox中文字已全选，点击textbox取消全选

代码如下:
#linkLabel1 a:link, #linkLabel1 a:visited{
color:#004a87;
text-decoration:underline;//加下划线
}
#linkLabel1 a:hover{
color:#FFFFFF;//放上去的时候变色
text-decoration:underline;
}
//***********************************************************
//***********************************************************

1.单击文本框后全选
在文本框的单击事件中 使用textBox的SelectAll()方法
2.鼠标放上去变色，使用MouseEnter事件
在该事件中添加代码 textbox1.ForeColor=Color.Red;
3.移开变回原色，使用MouseLeave事件
同样在其下写代码 textbox1.ForeColor=Color.Black;//假设原色为黑色

具体代码如下，拖入一个TextBox控件，默认name属性为textBox1

private void textBox1_MouseEnter(object sender, EventArgs e)
{
textBox1.ForeColor = Color.Red;
}

private void textBox1_Click(object sender, EventArgs e)
{
textBox1.SelectAll();
}

private void textBox1_MouseLeave(object sender, EventArgs e)
{
textBox1.ForeColor = Color.Black;
}

这个不用编程，它本身就可以实现的