German Menüleiste

strupp01

Active Member
Licensed User
Longtime User
Gibt es eine Library die die Menüleiste in B4A darstellt wie im Bild angegeben mit z.B. Datei, Bearbeiten Ansicht, Extras, ?

upload_2017-5-6_16-39-4.png
 

DonManfred

Expert
Licensed User
Longtime User
Nicht dass ich wüsste. ABER das hat man sich doch schnell zusammengebastelt...

B4X:
Sub Globals
    Private menuDatei, menuBearbeiten, menuExtras As ACPopupMenu
    Private mnuDatei As Button
    Private mnuBearbeiten As Button
    Private mnuExtras As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    menuDatei.Initialize("menu", mnuDatei)
    menuDatei.AddMenuItem(1, "Datei Item 1", Null)
    menuDatei.AddMenuItem(2, "Datei Item 2", Null)
    menuDatei.AddMenuItem(3, "Datei Item 3", Null)

    menuBearbeiten.Initialize("menu", mnuBearbeiten)
    menuBearbeiten.AddMenuItem(1, "Bearbeiten Item 1", Null)
    menuBearbeiten.AddMenuItem(2, "Bearbeiten Item 2", Null)
    menuBearbeiten.AddMenuItem(3, "Bearbeiten Item 3", Null)

    menuExtras.Initialize("menu", mnuExtras)
    menuExtras.AddMenuItem(1, "Extras Item 1", Null)
    menuExtras.AddMenuItem(2, "Extras Item 2", Null)
    menuExtras.AddMenuItem(3, "Extras Item 3", Null)
End Sub


Sub Menu_ItemClicked (Item As ACMenuItem)
    Log("Item: " & Item)
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub




Sub mnuDatei_Click
    menuDatei.Show
End Sub

Sub mnuBearbeiten_Click
    menuBearbeiten.Show   
End Sub

Sub mnuExtras_Click
    menuExtras.Show
End Sub
 

Attachments

  • TestMenu.zip
    8.5 KB · Views: 237

strupp01

Active Member
Licensed User
Longtime User
Waren noch nicht installiert. Habe das nachgeholt. Jetzt kommt diese Fehlermeldung :

upload_2017-5-6_18-20-31.png
 

strupp01

Active Member
Licensed User
Longtime User
Habe nur die 22er. Daher nur 22er angewählt. Wie bekomme ich die 25er ?
 
Top