PublicClass Member1Class Member1 Inherits System.Windows.Forms.Form 'Windows 窗体设计器生成的代码'省略..Dim mydb AsNew Db Dim dgListMouseDownTime AsDatePrivateSub Member1_Load()Sub Member1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load mydb.daMember.Fill(Me.DsMember1) Dim dgStyle AsNew DataGridTableStyle dgStyle.MappingName =Me.DsMember1.Tables(0).TableName Me.dgList.TableStyles.Add(dgStyle) '在第一列上实现双击事件Dim memberID As DataGridTextBoxColumn =Me.dgList.TableStyles(0).GridColumnStyles(0) AddHandler memberID.TextBox.MouseDown, AddressOf memberID_MouseDown End Sub'如果鼠标定位到单元格,则设置定位到单元格上的时间PrivateSub dgList_MouseDown()Sub dgList_MouseDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgList.MouseDown Dim hit As DataGrid.HitTestInfo =Me.dgList.HitTest(e.X, e.Y) If hit.Type = DataGrid.HitTestType.Cell ThenMe.dgListMouseDownTime = Now EndIfEnd SubPrivateSub memberID_MouseDown()Sub memberID_MouseDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) If (e.Button = MouseButtons.Left And e.Clicks =2) Or (Now <Me.dgListMouseDownTime.AddMilliseconds(SystemInformation.DoubleClickTime)) Then MessageBox.Show("双击了单元格!") EndIfEnd SubEnd Class
在 winform 中的 datagrid 中实现单元格双击事件Public Class Member1Class Member1 Inherits System.Windows.Forms.Form Windows 窗体设计器生成的代码 省略.. Dim mydb As New Db Dim dgListMouseDownTime