Private Sub DataGrid1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseDown
Dim mPos As Point
Dim hti As System.Windows.Forms.DataGrid.HitTestInfo
cMenu.MenuItems(0).Enabled = False
cMenu.MenuItems(1).Enabled = True
mPos.X = e.X
mPos.Y = e.Y
If e.Button = MouseButtons.Right Then
hti = DataGrid1.HitTest(e.X, e.Y)
Select Case hti.Type
Case System.Windows.Forms.DataGrid.HitTestType.RowHeader
intRow = hti.Row
DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)
DataGrid1.Select(intRow)
cMenu.Show(DataGrid1, mPos)
DataGrid1.CurrentRowIndex = intRow
End Select
End If
End Sub
Private Sub dgBulletin_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgBulletin.MouseDown
Dim dg As DataGrid = CType(sender, DataGrid)
Dim hit As System.Windows.Forms.DataGrid.HitTestInfo
hit = dg.HitTest(e.X, e.Y)
'取得单击的列名称
If hit.Type = DataGrid.HitTestType.ColumnHeader Then