34,873
社区成员
发帖
与我相关
我的任务
分享
'点击选择一行,已经通过datagird的设置实现
Private Sub DataG1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataG1.MouseDoubleClick
nowrecord = DataG1.Rows(DataG1.CurrentCell.RowIndex).Cells(0).Value.ToString.Trim
newph(DataG1.Rows(DataG1.CurrentCell.RowIndex).Cells(0).Value.ToString.Trim, "电话")
End Sub
Private Sub DataG1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataG1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
mouse_event(MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, System.Windows.Forms.Cursor.Position.X, System.Windows.Forms.Cursor.Position.Y, 0, 0)
mouse_event(MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, System.Windows.Forms.Cursor.Position.X, System.Windows.Forms.Cursor.Position.Y, 0, 0)
End If
End Sub