Buongiorno,
sto cercando di implementare il menu espandibile sul mio attuale menu in b4J
l' attuale utilizza una customlistview, ed utilizza l' esempio delle 3 pagine, qui sul forum.
Codice:
considerando che aggiungerò altre voci, volevo accorpare alcune voci aggiungendo un menu a "espansione"
Tipo:
"Gestione utenti" voce principale che contiene "Aggiungi Utenti" e "Lista Utenti" come sotto menu
Ogni voce è composta da una icona e dal titolo
Ho provato vari approcci tipo aggiungere le voci in map, ma finora senza alcun risultato. anche chiedendo a chatgpt
Qualcuno ha già avuto modo di creare un menu così??
Grazie
sto cercando di implementare il menu espandibile sul mio attuale menu in b4J
l' attuale utilizza una customlistview, ed utilizza l' esempio delle 3 pagine, qui sul forum.
Codice:
B4X:
Dim bitmaps As List = Array(Chr(0xF015), Chr(0xF14A), Chr(0xF2BE),Chr(0xF00B) ,Chr(0xF098),Chr(0xF00B),Chr(0xF2B9) ,Chr(0xF00B),Chr(0xF11C))
Dim menuiItem As List = Array("Home","Assegnazioni","Aggiungi Utenti", "Lista Utenti", "Aggiungi Device", "Lista Devices","Aggiungi Sim", "Lista Sim","Aggiungi Accessori")
param.Put("form", menufrm)
param.Put("pane", Panebasic)
For i = 0 To menuiItem.Size-1
clvMenu.Add(CreateMenuItem(clvMenu.AsView.Width,bitmaps.Get(i),menuiItem.Get(i)),"")
Next
Private Sub CreateMenuItem(Width As Int, Title As String, text1 As String) As Pane
Dim p As B4XView = xui.CreatePanel("")
Dim height As Int = 70dip
p.SetLayoutAnimated(0, 0, 0, Width, height)
p.LoadLayout("clv_menuItemparent")
lblTitle.Text = Title
lblContent.Text = text1
Return p
End Sub
B4X:
Private Sub clvMenu_ItemClick (Index As Int, Value As Object)
Dim nomePrg As String = menuiItem.Get(Index)
If Index < 0 Then Return
Panebasic.RemoveAllNodes
Select nomePrg
Case "Uscita"
ExitApplication
Case "Aggiungi Utenti"
CallSubDelayed2("addUser", "Show",param)
Case "Lista Utenti"
CallSubDelayed2("listUsers", "Show",param)
Case "Aggiungi Device"
CallSubDelayed2("addDevice", "Show",param)
Case "Lista Devices"
CallSubDelayed2("listDevices", "Show",param)
Case "Aggiungi Sim"
CallSubDelayed2("addSim", "Show",param)
Case "Lista Sim"
CallSubDelayed2("listSims", "Show",param)
Case "Assegnazioni"
CallSubDelayed2("assegnazioni", "Show",param)
Case "Aggiungi Accessori"
CallSubDelayed2("addAccessory", "Show",param)
Case Else
Try
Log(nomePrg)
CallSubDelayed2 (nomePrg, "Show", param)
Catch
Log("HOME")
End Try
End Select
End Sub
considerando che aggiungerò altre voci, volevo accorpare alcune voci aggiungendo un menu a "espansione"
Tipo:
"Gestione utenti" voce principale che contiene "Aggiungi Utenti" e "Lista Utenti" come sotto menu
Ogni voce è composta da una icona e dal titolo
Ho provato vari approcci tipo aggiungere le voci in map, ma finora senza alcun risultato. anche chiedendo a chatgpt
Qualcuno ha già avuto modo di creare un menu così??
Grazie