Cant get menu to work

[mebcs]

I added:

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

and hendel it:

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]

Modify your code like this one :

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]

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]

Did you press the menu button ?

HTH, Gideon Oron

 

[mebcs]

My mistake. Menu working now thanks.