Question

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

如题：vb6中鼠标可以左键单击文本框就会全部选择并且字体颜色变成蓝色。
Private Sub Text100_GotFocus()
Text100.SelStart = 0
Text100.SelLength = Len(Text100.Text)
End Sub

那么在vb.net 该如何搞定？谢谢

Answer 1

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