B4J Question Menu not actioning action.

Roger Daley · Dec 31, 2015

Hi All,

This is my first attempt at a menu, starting with the Tutorial and the default text when a menu is added I have produced the code below. I thought that this is so simple it could not fail, I was wrong.

Menu Items from the Visual Designer

B4X:

[
    {Text: "_Information", Children:
        [
            "_Help", "_About"
        ]
    }
]

The "About" Sub that should be actioned.

B4X:

Sub About_action
    Log("About_action")
End Sub

When I click on the "About" item in the menu nothing happens.
Obviously I have done something wrong, any ideas?

Regards Roger

Erel · Dec 31, 2015

See the Events section: https://www.b4x.com/android/forum/threads/designer-menu-items.56602/

You haven't set the menu item EventName property so it is the same as the MenuBar EventName.

Roger Daley · Dec 31, 2015

Thanks Erel,

I sorted it out with the code below. I will have another look at setting the EventName property next year.
There must be a better way of designing menus. Arcane JSON strings or convoluted subs calling subs? [WishList item]

B4X:

Sub MenuBar1_Action
   Dim Item As MenuItem = Sender
   If Item.Text.Contains("About") Then About_action
   If Item.Text.Contains("Help") Then Help_action
End Sub

Regards Roger

Erel · Dec 31, 2015

Your code is indeed convoluted. You should set the event names instead.

For large menus the JSON based declaration is probably the best option. You can use derez designer if you prefer: https://www.b4x.com/android/forum/threads/menu-designer.56853/#content

eurojam · Dec 31, 2015

Roger,
you can use the eventtag in json (like Erel pointed out before):

B4X:

[
  {Text: "File", Children:
   [{Text: "New", EventName: "mnuNew", Tag: "mnuNew"},
   "-",
   {Text: "Open", EventName: "mnuOpen", Tag: "mnuOpen"},
   "-",
   {Text: "Save", EventName: "mnuSave", Tag: "mnuSave"},
   "-",
   {Text: "Close", EventName: "mnuClose", Tag: "mnuClose"}]
  },
  {Text: "Information", Children:
  [
  {Text: "Help", EventName: "mnuHelp", Tag: "mnuHelp"},
   "-",
   {Text: "About", EventName: "mnuAbout", Tag: "mnuAbout"}
  ]
  }
]

and then later in your code module something like this:

B4X:

Sub  mnuAbout_Action
   Dim s As String
'    Log("About")
   Dim mf As ModalForm
   mf.Initialize( MainForm, "frmAbout")
  s =  mf.Show
End Sub

Erel · Dec 31, 2015

Note that the Tag is not required in this specific case. Only the EventName property.

Roger Daley · Dec 31, 2015

Thanks eurojam/Erel,
It is slowly coming together.

Regards Roger

Roger Daley · Jan 1, 2016

Nope, new year and it still doesn't come together.

I use the following in "Menu Items" in the Visual designer and when I try to compile the Logs tell me I have an "Unterminated array at charactre 53 ...".

[
{Text: "_Information", Children:
[
(Text: "Help",Enabled: True),
{Text:"About", EventName: "About"}
]
}
]

Any suggestions?

Regards Roger

rwblinn · Jan 1, 2016

Hi,

does this example help?
Simple Example of a MenuBar

B4X:

MenuItems
File
  New
  Save
  Exit
Edit
  Copy
  Paste
  Cut
Help
  About

Visual Designer MenuBar Properties > Menu Items JSON String

B4X:

[
{Text: "_File",
  Children:
  [
  {Text:"_New", Tag:"FileNew", EventName: "FileNew"},
  {Text: "_Save", Tag:"FileSave", EventName: "FileSave"},
  {Text: "_Exit", Tag:"FileExit", EventName: "FileExit"}
  ]
},
{Text: "_Edit",
  Children:
  [
  {Text:"_Copy", Tag:"EditCopy", EventName: "EditCopy"},
  {Text:"_Paste", Tag:"EditPaste", EventName: "EditPaste"},
  {Text:"_Cut", Tag:"EditCut", EventName: "EditCut"}
  ]
},
{Text: "_Help",
  Children:
  [
  {Text: "_About", Tag: "HelpAbout", EventName: "HelpAbout"}
  ]
}
]

B4J Events
Note: Not all defined.

B4X:

Sub FileNew_Action
  Log("FileNew clicked.")
End Sub

Sub FileSave_Action
  Log("FileSave clicked.")
End Sub

Sub FileExit_Action
  Log("FileExit clicked.")
  ExitApplication
End Sub

Sub HelpAbout_Action
  Log("HelpAbout clicked.")
End Sub

Output Examples

FileNew clicked.
FileSave clicked.
FileExit clicked.
...

Roger Daley · Jan 1, 2016

Hi Rob,

Thanks for the reply. Your example is pretty much the same as I started with originally, however I re-did the exercise with your example and ended with this:
[
{Text: "_Information",
Children:
[
{Text:"_Help", Tag:"FileNew", EventName: "Help"},
{Text: "_About", Tag:"FileSave", EventName: "About"}
]
}
[

It works, I have compared the two and finally spotted my error in the original.

Thank heaps.
Regard Roger

B4J Question Menu not actioning action.

Roger Daley

Well-Known Member

Erel

B4X founder

Roger Daley

Well-Known Member

Erel

B4X founder

eurojam

Well-Known Member

Erel

B4X founder

Roger Daley

Well-Known Member

Roger Daley

Well-Known Member

rwblinn

Well-Known Member

Roger Daley

Well-Known Member

Similar Threads

B4J Question Menu not actioning action.

Well-Known Member

B4X founder

Well-Known Member

B4X founder

Well-Known Member

B4X founder

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Similar Threads

Privacy & Transparency

Privacy & Transparency