Italian lista di scelte

[3394509365]

Ho un' app che avevo sviluppato con Basic4A versione 3.20 adesso la sto passando alla versione 9.

Alcune cose non mi funzionano più, per esempio io facevo questo:

sembrerebbe che x.InputList1 non esista in questa versione

Dim r As List
       r.Initialize
       r.AddAll(Array As String("Rinomina","Elimina","Copia"))
       Dim Sce As Int' risposta alla scelta
       Dim x As id ' libreria
       Sce = x.InputList1(r,"Fai una scelta")
     
      Select Case  Sce
     
           Case 0' Rinomina
                   RinominaTabella'_Click  
                Listatabelle            ' ricalcola le tabelle          
               
           Case 1'Elimina
                   EliminaTabella
                Listatabelle    ' ricalcola le tabelle          
            Case 2'Copia
                   CopiaTabella
                Listatabelle    ' ricalcola le tabelle  
      End Select
     
Else' se la scelta è vuota

      Msgbox("Non hai selezionato nulla","ATTENZIONE")
     
End If

Avete idea di come fare nella versione attuale?

Grazie

 

[Star-Dust]

Search Results

www.b4x.com

 

[3394509365]

grazie per la risposta, sto provando ma mi da questo errore


Dim res As Int = fx.InputList(MainForm, items, "Please choose an item", "Items", 0)

la fx mi dice non dichiarato

e poi cos' è MainForm non mi da la struttura dopo la parentesi.

io uso B4A

 

[LucaMs]

Infatti quello è codice per B4J.

Link ricerca filtrato per b4a

 

[LucaMs]

Anche se sarà probabilmente più faticoso da capire (scarica l'esempio), ti consiglierei:
B4XListTemplate
https://www.b4x.com/android/forum/t...ss-platform-views-and-dialogs.100836/#content

 

[3394509365]

in effetti, funziona grazie e nemmeno tanto difficile, ma non mi convincono due cose.

N1. ho questo codice:

Dim Sce As String' risposta alla scelta
        Dim options As B4XListTemplate
   
        options.Initialize
        options.Options = Array("Rinomina","Elimina","Copia")
        options.AllowMultiSelection = False
   
        Wait For (dialog.ShowTemplate(options, "OK", "", "CANCEL")) Complete (Result As Int)
'  
        If Result = xui.DialogResponse_Positive Then
            dialog.Show($"You selected: ${options.SelectedItem}"$, "OK", "", "")
        End If
   
   
        Sce=options.SelectedItem   'options.SelectedItem per scelte multiple
     
     
        Select Case  Sce
     
            Case  "Rinomina"  '0'"Rinomina"
                RinominaTabella'_Click
                Listatabelle            ' ricalcola le tabelle
               
            Case "Elimina"' 1'Elimina'
                EliminaTabella
                Listatabelle    ' ricalcola le tabelle
            Case "Copia"'2'Copia
                CopiaTabella
                Listatabelle    ' ricalcola le tabelle
        End Select

non capisco perchè il programma si ferma ad aspettare la scelta delle tre opzioni ma va avanti subito dopo anche se ancora c' è l' altra finestra aperta e devo scegliere OK.

If Result = xui.DialogResponse_Positive Then
            dialog.Show($"You selected: ${options.SelectedItem}"$, "OK", "", "")
        End If

Pure qui devo mettere un Wait ?

N2.

per fare funzionare xxxx ho dovuto fare questo:

'nelle dichiarazioni

Public dialog As B4XDialog
Private Base As B4XView

e poi questo:

Base= Activity
dialog.Initialize(Base)

Capisco l' inizialize ma no Il Base=Activity

Grazie

 

[LucaMs]

Pure qui devo mettere un Wait ?

Esatto.

Base= Activity
dialog.Initialize(Base)

Capisco l' inizialize ma no Il Base=Activity

La dialog.Initialize richiede una B4XView, quindi non puoi passargli direttamente Activity, il cui tipo è Panel, come vorresti fare, e scrivendo quella riga in pratica esegui un casting, Base "diventa Activity" ma di tipo B4XView (ammazza come spiego male, hehehe).

        Select Case  Sce
            Case  "Rinomina"  '0'"Rinomina"
                RinominaTabella'_Click
                Listatabelle            ' ricalcola le tabelle
            Case "Elimina"' 1'Elimina'
                EliminaTabella
                Listatabelle    ' ricalcola le tabelle
            Case "Copia"'2'Copia
                CopiaTabella
                Listatabelle    ' ricalcola le tabelle
        End Select

Non vedi qualcosa di "strano" in quel codice?
Listatabelle la esegui in ogni caso - e suppongo che sia più che giusto; quindi...

        Select Case  Sce
            Case  "Rinomina"  '0'"Rinomina"
                RinominaTabella'_Click
            Case "Elimina"' 1'Elimina'
                EliminaTabella
            Case "Copia"'2'Copia
                CopiaTabella
        End Select
        Listatabelle    ' ricalcola le tabelle

 

[3394509365]

Grazie tante, che sbadato,