Event descriptions

Rem MenuDef.bas module:
Public Const MF_SEPARATOR = 2048
Public Const MF_STRING = 0
Declare Sub AppendMenu Lib "user32" Alias
"AppendMenuA" _
		(ByVal hMenu _As Long, ByVal uFlags As
Long, _
		ByVal uIDNewItem As Long, ByVal lpNewItem
As String)
Public Const MF_BYCOMMAND = 0
Public Const MF_BYPOSITION = 1024
Declare Sub DeleteMenu Lib "user32" (ByVal hMenu As
Long, _		
		ByVal uPosition As Long, ByVal uFlags As
Long)
Declare Function GetMenuItemCount Lib "user32" (ByVal
hMenu As Long) _
		As Integer
Rem Form code:
Rem Module MenuDef.bas as above assumed available
Rem Module QVMenu.bas assumed available
Private Sub QlikOCX1_OnContextMenu(ByVal
ContextObject As String, _
		ByVal ContextMenu As Long, OkToContinue As
Integer)
	If ContextObject = "LB11" Then
		Rem ** delete default menu command by
command **
		Dim i, j
		j = GetMenuItemCount(ContextMenu) - 1
		For i = 0 To j
			DeleteMenu ContextMenu, 0, MF_BYPOSITION
		Next
	Else
		AppendMenu ContextMenu, MF_SEPARATOR, 0, 0
	End If
	Rem ** add new custom command to menu **
	AppendMenu ContextMenu, MF_STRING, 45000,
"Confirmed Clear"
End Sub

Rem Form code:
Rem Module QVMenu.bas assumed available (QV constant
definitions)
Private Sub QlikOCX1_OnContextMenuCommand(ByVal
ContextObject As String,
			MenuCommand As Long, OkToContinue As
Integer)
	Dim MsgBoxResult
	If MenuCommand = 45000 Then
		MsgBoxResult = MsgBox("Do you really want to
clear?", vbYesNo)
		If MsgBoxResult = vbYes Then
			MenuCommand = ID_POPUP_CLEAR
			OkToContinue = True
		Else
			OkToContinue = False
		End If
	End If
End Sub	

Private Sub QlikOCX1_OnMouseOver()
	MsgBox("Hello!")
End Sub	

Private Sub QlikOCX1_OnHtmlHelp(ByVal HelpData As
Long, ByVal HelpCommand As Integer, OkToContinue As
Integer)
	Dim MsgBoxResult
	MsgBoxResult = MsgBox("Do you really want to show
help for item " & HelpData & "?", vbYesNo)
	If MsgBoxResult = vbYes Then
		OkToContinue = True
	Else
		OkToContinue = False
	End If
End Sub
       

Private Sub QlikOCX1_OnMacro(ByVal MacroName As
String, OkToCont As Integer)
   Dim MsgBoxResult
   MsgBoxResult = MsgBox("Want to run macro '" &
MacroName & "'?", vbYesNo)
   If MsgBoxResult = vbNo Then
	   OkToCont = False
   End If
End Sub
			

Private Sub QlikOCX1_OnMouseOver()
	MsgBox("Hello!")
End Sub			
			

Private Sub QlikOCX1_OnQvEvent()
End Sub
Private Sub QlikOCX1_OnQvEvent(ByVal EventCategory As
String, ByVal EventSource As String)
	MsgBox (EventCategory + " - " + EventSource)
End Sub