Display Context Menu on DataGridView only when specifc keys are pressed...

[hzgt9b]

Using VS2005, VB.NET,
I am developing a windows app that has a DataGridView. I want to
enable the display of a context menu on this DataGridView only when a
specific set of keys is also pressed (like CTRL+ALT+SHIFT) . TO this
point I have code that only displays the context menu while keys CTRL
+ALT+SHIFT are pressed - but after the keys are released the context
menu still gets displayed. Can someone tell me where the following
code is wrong.

'Assume:
' 1. There is a control named MyDataGridView on the form
' 2. That MyDataGridView' s DataSource is a DataView filled with
several rows of data
'
Public Class MyForm
Private intMyDataGridVi ew_CurrentRow As Int16
Private MyContextMenu As ContextMenu = Nothing
Private bCtrl_Alt_Shift As Boolean = False

Private Sub myForm_Load(ByV al sender As Object, ByVal e As
System.EventArg s) Handles Me.Load
Me.MyContextMen u = New ContextMenu()
Me.MyContextMen u.MenuItems.Add ("MyContextMenu 's Action", New
EventHandler(Ad dressOf Me.MyContextMen u_Action))
End Sub

Private Sub MyContextMenu_A ction(ByVal sender As Object, ByVal e
As System.EventArg s)
MsgBox("My Data Grid View Action called!")
End Sub

Private Sub MyForm_KeyDown( ByVal sender As Object, ByVal e As
System.Windows. Forms.KeyEventA rgs) Handles Me.KeyDown
If e.Control AndAlso e.Alt AndAlso e.Shift Then
Me.bCtrl_Alt_Sh ift = True
Else
Me.bCtrl_Alt_Sh ift = False
End If
End Sub

Private Sub MyForm_KeyUp(By Val sender As Object, ByVal e As
System.Windows. Forms.KeyEventA rgs) Handles Me.KeyUp
If e.Control AndAlso e.Alt AndAlso e.Shift Then
Me.bCtrl_Alt_Sh ift = True
Else
Me.bCtrl_Alt_Sh ift = False
End If
End Sub

Private Sub MyDataGridView_ MouseDown(ByVal sender As Object, ByVal
e As System.Windows. Forms.MouseEven tArgs) Handles
MyDataGridView. MouseDown
'Next LINE: Try to remove the context menu - this doesn't seem to
remove the context menu once it has already been... I only want the
context menu to display when bCtrl_Alt_Shift is True - HELP
Me.ContextMenu = Nothing
If Me.bCtrl_Alt_Sh ift Then
Dim hti As DataGridView.Hi tTestInfo =
Me.MyDataGridVi ew.HitTest(e.X, e.Y)
If hti.ColumnIndex = -1 Then 'no content menu on header
row
Else
Try
Me.ContextMenu = Me.MyContextMen u
Me.intMyDataGri dView_CurrentRo w = hti.RowIndex
Catch ex As Exception
Me.LogError("My DataGridView_Mo useDown",
"MyDataGrid View CONTEXT MENU", ex.ToString)
End Try
End If
End If
End Sub
End Class

[hzgt9b]

bump

[hzgt9b]

bump

[hzgt9b]

I got this to work by using
Control.Modifie rKeys = Keys.Control + Keys.Shift + Keys.Alt

Versus updating a global variable (bCtrl_Alt_Shif t) as keys were
pressed.

The new mouse down procedure looks like this:

Private Sub MyDataGridView_ MouseDown(ByVal sender As Object, ByVal e
As System.Windows. Forms.MouseEven tArgs) Handles
MyDataGridView. MouseDown
Try
Me.MyContextMen u.Items(0).Visi ble = False 'Make the menu
item(s) invisible
Dim hti As DataGridView.Hi tTestInfo =
Me.MyDataGridVi ew.HitTest(e.X, e.Y)
If hti.ColumnIndex = -1 OrElse hti.RowIndex = -1 Then 'no
content menu on header row
Else
If e.Button = Windows.Forms.M ouseButtons.Rig ht AndAlso
Control.Modifie rKeys = Keys.Control + Keys.Shift + Keys.Alt Then
Me.MyContextMen u.Items(0).Visi ble = True
End If
End If
Catch ex As Exception 'TODO handle error
End Try