AddContextMenu

Previous  Next

---

Adds a context menu to the specified control.

Syntax: AddContextMenu (ControlName As Control, ContextMenu As ContextMenu)

Example:

'Add a FormLib object named FormLib1 and a ContextMenu object named Context1.

Sub Globals

End Sub

Sub App_Start

      Form1.Show

      FormLib1.New1("Form1",b4pobject(1))

      Context1.New1

      Context1.AddItem("Yes")

      Context1.AddItem("No")

      Context1.AddItem("-") 'Adds a separator

      Context1.AddItem("Maybe")

      FormLib1.AddContextMenu("TextBox1",Context1.Value)

End Sub

Sub Context1_Click

      Select Context1.SelectedText

            Case "Yes"

                  'Do something

            Case "No"

                  'Do something

            Case "Maybe"

                  'Do something

      End Select

End Sub