GefContextMenuItem.GetProcedureAction (method)

If the action is a procedure it will return true and retieve the procedure information

Syntax:

Boolean = object.GetProcedureAction ( ProcedureName, UserParamater )

Parameters:

ProcedureName As BSTR* - The name of the procedure

UserParamater As BSTR* - The user paramater

Description:

The GetProcedureAction method returns true if the menu item's action is to run a procedure and it retrieves the procedure name and user paramater. If the action is not to run a procedure it returns False.

Example:

Sub OnPreContextMenu(oContextMenu As
GefContextMenu)

  Dim oContextMenuItem As
GefContextMenuItem

Dim oMenuItems As GefContextMenuItems

  Set oMenuItems =
oContextMenu.MenuItems

  Set oContextMenuItem = oMenuItems.Add

  oContextMenuItem.MakeSubMenu

  oContextMenuItem.Text = "Custom procedure menu
items"

  Dim oSubMenu As GefContextMenu

  Set oSubMenu =
oContextMenuItem.SubMenu

Dim oSubMenuItem As GefContextMenuItem

  Set oSubMenuItem =
oSubMenu.MenuItems.Add

  oSubMenuItem.SetActionToProcedure
"OnMyProcMenu1", "UserParm1"

  oSubMenuItem.Text = "OnMyMenu1"
  oSubMenuItem.Checked = True
  oSubMenuItem.Translated = False

  Dim procName As String
  Dim userParm As String

  If oSubMenuItem.GetProcedureAction(procName,
userParm) Then

MsgBox "The procedure name is: " & procName & ebCRLF _

         &
"The user paramater is: "& userParm

End If
End Sub