Italian Aiuto Codice per B4J

FabioCrank

Member
Licensed User
Ciao a tutti sto cercando di utilizzare il programma B4J, ma non riesco a trovare la soluzione per una parte di codice che usavo in Visual Basic 6...

CODICE VB6
Carico la combo con questo dati

Private Sub Form_Activate()
Combo1.AddItem "1-Roma"
Combo1.AddItem "2-Torino"
Combo1.AddItem "3-Milano"
End Sub

Mi restituisce l'indice...a seconda del click che faccio...
quindi 1 o 2 o 3
Private Sub Combo1_Click()
Indice = Val(Combo1.Text)
End Sub

Come si fa con B4J?

Grazie
Fabio
 

giannimaione

Well-Known Member
Licensed User
vedi allegato
 

Attachments

  • combo.zip
    839 bytes · Views: 167

FabioCrank

Member
Licensed User
Intanto grazie...
Ho provato il tuo codice...però con index...mi restituisce il numero della riga che ho selezionato,
con value invece il testo, ma a me servirebbe solo il numero che è dentro la stringa della combo...
perchè nel codice reale ho...

153 - scuola xxxx
324 - scuola dfffff
12 - scuola ddd
 

LucaMs

Expert
Licensed User
B4X:
Sub comboEvent_SelectedIndexChanged(Index As Int, Value As Object)
    Log(Index & " " & Value)

    Dim Parti() As String = Regex.Split("-", Value)
    Dim Numero As Int = Parti(0)
    Log(TAB & "Numero: " & Numero)
End Sub
 

Attachments

  • Combo2.zip
    905 bytes · Views: 141
Top