锐客网

  1. 首页 > 生活百科 > it技术 > >

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

IT技术选中

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
vb.net鼠标点击一行,该行就成选中状态（使用的是datagridview控件）这个问题我也正在研究 。在gridview的属性里面有这个 。
补充：已经找到答案 ， 在gridview的selectionmode的属性里，选fullrowselect 。
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 DataRowFor i As Integer = 1 To 10
row = dt.NewRow
row("name") = "name"i
dt.Rows.Add(row)
Next
dt.AcceptChanges()DataGridView1.DataSource = dtEnd 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.Count0) Then
'只选择单行 ， 因此取第一行
txtId.Text = DataGridView1.SelectedRows(0).Cells(0).Value
txtName.Text = DataGridView1.SelectedRows(0).Cells(1).Value
End If
End Sub
如何实现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单击选中某行的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vb选中单选按钮、vb.net单击选中某行的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：微信电影视频号，微信电影视频号排行榜

    下一篇：恒大矿泉水直播卖货骗局，恒大出售矿泉水