VS2005对控件DataGridView,双击控件时,默认的函数头是:
Private Sub dg1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dg1.CellContentClick
Dim index As Integer
index = DataGridView1.CurrentCell.RowIndex
If DataGridView1.Rows(index).Selected = True Then
banji.Text = DataGridView1.CurrentRow.Cells("班级").Value.ToString
xingming.Text = DataGridView1.CurrentRow.Cells("姓名").Value.ToString
shouji.Text = DataGridView1.CurrentRow.Cells("手机").Value.ToString
End If
End
Sub
如果用这个方法实现题目所需功能,则有所偏差,出现的效果是:点击单元格的拉伸才会进行操作。
最终解决方法是用如下函数:
Private Sub dg1_RowHeaderMouseClick(ByVal sender As Object, ByVal e As DataGridViewCellMouseEventArgs) Handles dg1.RowHeaderMouseClick
Dim index As Integer
index = DataGridView1.CurrentCell.RowIndex
If DataGridView1.Rows(index).Selected = True Then
banji.Text = DataGridView1.CurrentRow.Cells("班级").Value.ToString
xingming.Text = DataGridView1.CurrentRow.Cells("姓名").Value.ToString
shouji.Text = DataGridView1.CurrentRow.Cells("手机").Value.ToString
End If
End Sub