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