Sto creando tutta una serie di programmi per testare i componenti del Designer, e fare un raffronto con VB.NET, mi manca il combobox, componente che ritengo essenziale per disegnare interfacce utili, mi sapete indicare un componente che possa degnamente sostituire il combobox?
Sto provando con ListBox, ma i risultati non sono soddisfacenti.
Come al solito grazie 1000 per i suggerimenti che vorrete darmi.
Manuel
Nel test deve poter effettuare una scelta fra 3 item e lanciare una pagina, ad esempio:
ComboBox1.Text = Scelta Pagina
scelta1
scelta2
scelta3
Ogni scelta corrisponde ad una specifica pagina, la Combo deve sostituire i bottoni di scelta,
che però hanno il vantaggio di avere un evento già configurato, _Click, che, con un semplice StartActivity("nomepagina") permette il lancio di una applicazione creata nella pagina sceltaX.
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim spsceltapagina As Spinner
Dim p As PhoneIntents
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("tutorial")
spsceltapagina.Add("PAGINA 1")
spsceltapagina.Add("PAGINA 2")
spsceltapagina.Add("PAGINA 3")
spsceltapagina.Add("PAGINA 4")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub spsceltapagina_ItemClick (Position As Int, Value As Object)
If spsceltapagina.SelectedItem = "PAGINA 1" Then
StartActivity(p.OpenBrowser("http://www.siciliabit.com"))
Else If spsceltapagina.SelectedItem = "PAGINA 2" Then
StartActivity(p.OpenBrowser("http://www.b4x.com"))
Else If spsceltapagina.SelectedItem = "PAGINA 3" Then
StartActivity(p.OpenBrowser("http://www.google.it"))
Else If spsceltapagina.SelectedItem = "PAGINA 4" Then
StartActivity(p.OpenBrowser("http://www.hizlog.com/"))
End If
End Sub
Sempre gentile pronto.... ottimo esempio, ma, cercavo una soluzione molto più semplice, come ad esempio il passare da una pagina residente nella app ad un altra.
Esempio:
Ho una app con 3 pagine che svolgono 3 programmi diversi, con i button richiamo le pagine con il
Sub btn1_click
StartActivity("pagina1")
End Sub
mentre con lo spinner questa sintassi non funziona.
sp_itemClick(position As int, value As object)
If sp.SelectedItem("pagina1") Then
StartActivity("pagina1")
End If
Hai già sperimentato del codice simile?
Ciao Manuel
Risposta criptica... se intendi un ciclo if è stato usato, quello che non funziona è la chiamata con StartActivity("nome") per far partire l'applicazione contenuta nella pagina scelta.
Ciao Manuel