这个问题我也正在研究。在gridview的属性里面有这个。
成都创新互联专业为企业提供思明网站建设、思明做网站、思明网站设计、思明网站制作等企业网站建设、网页设计与制作、思明企业网站模板建站服务，10多年思明做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
补充：已经找到答案，在gridview的selectionmode的属性里，选fullrowselect。
Private Sub DataGridView1_CurrentCellChanged(By Val sender As Object, By Val e As System.EventArgs) Handles DataGridView1.CurrentCellChanged
//获取选中行第一列的值，也就是第0列的值
Dim result1 As String = DataGridView1.Item(0, DataGridView1.CurrentCell.RowIndex).Value.ToString.Trim
//获取选中行第二列的值，也就是第1列的值
Dim result1 As String = DataGridView1.Item(1, DataGridView1.CurrentCell.RowIndex).Value.ToString.Trim
'......有几列就写几列，如果感觉这样写代码比较累赘，你可以放到for循环里面，把列数用一个变量i代替旧可以了
End sub
思路：获取鼠标点击后的光标位置，计算回车数量、回车开始的位置和下一个回车符号的位置，然后选中这行文本。
Private Sub textBox1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs)
Dim 回车数量 As Integer = 0
Dim 已选中 As Boolean = False
Dim text As String = Me.textBox1.Text
Dim 回车位置 As Integer = 0
Dim 本行长度 As Integer = text.IndexOf(Microsoft.VisualBasic.Strings.ChrW(10))
For i As Integer = 0 To textBox1.SelectionStart - 1
If 已选中 Then
本行长度 = i - 回车位置 + 1
End If
If text(i) = Microsoft.VisualBasic.Strings.ChrW(10) Then
回车数量 += 1
回车位置 = i
已选中 = True
End If
Next
Me.Text = (回车数量 + 1).ToString()
textBox1.Select(回车位置, 本行长度)
End Sub
