RFAddinHook.AddinMenuPick (Available After RapidForm2004)

Description

Occurs when user executes an added addin menu.

Syntax

Event RFAddinHook.AddinMenuPick(iMenuID As Long)

The AddinMenuPick syntax has these parts:

Remarks

• iMenuID is obtained from RFUserInterface.AddAddinMenu.

Sample

• This sample code is written in Visual Basic addin project.

    Public g_iMenuID1 As Long
    Public g_iMenuID2 As Long
    Public g_iMenuID3 As Long

    Private Sub rfAddin_Startup()

        rfApp.UserInterface.AddMenu2 "NULL", "NULL", "Scan", "AddAddinMenuVB Sample", RF_MENU_ITEM_POPUP

        rfApp.UserInterface.AddAddinMenu "Scan", "AddAddinMenuVB Sample | Menu 1", g_iMenuID1
        rfApp.UserInterface.AddAddinMenu "Scan", "AddAddinMenuVB Sample | Menu 2", g_iMenuID2
        rfApp.UserInterface.AddAddinMenu "Scan", "AddAddinMenuVB Sample | Menu 3", g_iMenuID3

    End Sub

    Private Sub rfAddin_AddinMenuPick(ByVal iMenuID As Long)

        If iMenuID = g_iMenuID1 Then
            Function1
        ElseIf iMenuID = g_iMenuID2 Then
            Function2
        ElseIf iMenuID = g_iMenuID3 Then
            Function3
        End If

    End Sub

    Sub Function1()
        MsgBox "Function 1"
    End Sub

    Sub Function2()
        MsgBox "Function 2"
    End Sub

    Sub Function3()
        MsgBox "Function 3"
    End Sub