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