#Region "搜索框的全选"
Dim counter As Integer = 0 '点击次数
Dim isSelectAll As Boolean = False '是否全选
Dim selectPoint As Integer = 0 '当前光标位置
Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
#Region "搜索框的全选"
Dim counter As Integer = 0 '点击次数
Dim isSelectAll As Boolean = False '是否全选
Dim selectPoint As Integer = 0 '当前光标位置
Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click