vb.net单击选中某行 vb选中单选按钮

VB textbox如何点击鼠标一次选中一行文本（只需要选中）？

思路：获取鼠标点击后的光标位置，计算回车数量、回车开始的位置和下一个回车符号的位置，然后选中这行文本。

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

相关问答

Q1: vb.net鼠标点击一行,该行就成选中状态（使用的是datagridview控件）

这个问题我也正在研究。在gridview的属性里面有这个。

补充：已经找到答案，在gridview的selectionmode的属性里，选fullrowselect。

Q2: VB.net中DataGridView中行的选择

仿造vb.net单击选中某行我的例子vb.net单击选中某行，你自己做做看1）设计一个类似的界面（vb.net单击选中某行我只有两个字段） 2）单击GridView的右上角小箭头，去掉逗允许编辑地（黑色框部分）vb.net单击选中某行： 3）然后把GridView的属性做如下改动： 4）在Form1中增加绑定数据的代码（vb.net单击选中某行我是模拟的）Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '动态增加一个表格，绑定到GridView上

Dim dt As New DataTable

dt.Columns.Add("Id", GetType(Integer))

dt.Columns.Add("name", GetType(String))

dt.Columns(0).AutoIncrement = True

dt.Columns(0).AutoIncrementSeed = 1

dt.Columns(0).AutoIncrementStep = 1 '模拟数据库数据

Dim row As DataRow For i As Integer = 1 To 10

row = dt.NewRow

row("name") = "name" i

dt.Rows.Add(row)

Next

dt.AcceptChanges() DataGridView1.DataSource = dt End Sub 5）然后使用SelectionChanged事件这样编码：Private Sub DataGridView1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged

If (DataGridView1.SelectedRows IsNot Nothing AndAlso DataGridView1.SelectedRows.Count 0) Then

'只选择单行，因此取第一行

txtId.Text = DataGridView1.SelectedRows(0).Cells(0).Value

txtName.Text = DataGridView1.SelectedRows(0).Cells(1).Value

End If

End Sub

Q3: 如何实现VB.NET实现代码在datagridview选中行,并在datagridview显示区域居中

非常简单

一：如果知道要选中的行号

datagridview1.Rows(行号).Selected

=

True

datagridview1.FirstDisplayedScrollingRowIndex

=

行号

第一行是选中行号所在的行，第二行是移动滚动条将选中的行在显示区域的最上放显示出来。

二：根据内容选中行并显示

For

i

=

To

datagridview1.Rows.Count

-

1

If

datagridview1.Rows(i).Cells("列的名称").Value

=

要选中行列的值

Then

datagridview1.Rows(i).Selected

=

True

datagridview1.FirstDisplayedScrollingRowIndex

=

i

End

If

Next

而且，如果你不想选中的行显示到最上面，可以这样：

For

i

=

To

datagridview1.Rows.Count

-

1

If

datagridview1.Rows(i).Cells("列的名称").Value

=

要选中行列的值

Then

datagridview1.Rows(i).Selected

=

True

Dim

indeI

As

Integer

=

i

-

15

If

indeI

1

Then

indeI

=

1

datagridview1.FirstDisplayedScrollingRowIndex

=

indeI

End

If

Next

上面的代码是根据某列的值选中行，并且移动滚动条将选中的行在显示区域的第15行显示。

vb.net单击选中某行的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb选中单选按钮、vb.net单击选中某行的信息别忘了在本站进行查找喔。