Cant get menu to work

mebcs · Mar 10, 2013

I added:

B4X:

   Activity.AddMenuItem ("Help","mnuPAGES")
   Activity.AddMenuItem ("EULA","mnuPAGES")

and hendel it:

B4X:

Sub mnuPAGES_Click
   Select Case "EULA" 
      Case "EULA"
         Dim EULAFile As String : EULAFile = "eula.rtf"
         Utility.ShowWEBPAGE (Activity,EULAFile)
      Case "HELP"
         ToastMessageShow("HELP file not yet released.", True)
      Case Else
         ToastMessageShow("Menu option not handled.", True)
   End Select
End Sub

I never see the menu, so the event is never triggered.

klaus · Mar 10, 2013

Modify your code like this one :

B4X:

Sub mnuPAGES_Click
    Select Sender
        Case "EULA"
            Dim EULAFile As String : EULAFile = "eula.rtf"
            Utility.ShowWEBPAGE (Activity,EULAFile)
        Case "HELP"
            ToastMessageShow("HELP file not yet released.", True)
        Case Else
            ToastMessageShow("Menu option not handled.", True)
    End Select
End Sub

In B4A use
Select variable
and not
Select Case variable like in VB.

Best regards.

mebcs · Mar 10, 2013

Sorry klaus, I didn't have the correct select syntax.
I have changes it. A typical copy/paste/edit error on my part.

I do not see any menu appear still.

goron · Mar 10, 2013

Did you press the menu button ?

HTH, Gideon Oron

mebcs · Mar 11, 2013

My mistake. Menu working now thanks.

Cant get menu to work

mebcs

Member

klaus

Expert

mebcs

Member

goron

Member

mebcs

Member

Similar Threads

Cant get menu to work

mebcs

Member

klaus

Expert

mebcs

Member

goron

Member

mebcs

Member

Similar Threads

Privacy & Transparency

Privacy & Transparency