Italian Aiuto Codice per B4J

[FabioCrank]

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

 

[Gianni M]

vedi allegato

 

[FabioCrank]

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]

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

 

[FabioCrank]

Grazie LucaMs...concittadino sei un grande

 

[LucaMs]

concittadino sei un grande

Meglio essere precisi: un grande che? Molti potrebbero pensare: "un grande str...o"

Di niente, figurati.