Ba Salam!
Dar Khedmatetun Hastim Ba Split Kardane Texte EditText.
Khub Ma Inja EditTxeto Ba # Jda Va Itemasho Be ListView Add Mikunim Tebghe Axe Payin:
Ye EditText Va ListView Va Button Be Designer Add Kunid
Khub Hala Berim Soraqe Amozesh :
Dar Qesmate Globals Inaro Tarif Kunid:
Khub Dar Evente Click Button Inaro Minvisim :
Ta Amozeshi Digar Bedroud .
Dar Khedmatetun Hastim Ba Split Kardane Texte EditText.
Khub Ma Inja EditTxeto Ba # Jda Va Itemasho Be ListView Add Mikunim Tebghe Axe Payin:
Ye EditText Va ListView Va Button Be Designer Add Kunid
Khub Hala Berim Soraqe Amozesh :
Dar Qesmate Globals Inaro Tarif Kunid:
- Code:
Sub Globals
Dim EditText1 as EditText
Dim ListView1 as ListView
Dim i as Int
Dim Str() as String
End Sub
Khub Dar Evente Click Button Inaro Minvisim :
- Code:
Sub Button1_Click
Str=Regex.Split("#",EditText1.Text)
For i=0 to Str.Length - 1
ListView1.AddSingleLine(Str(i))
Next
End Sub
Ta Amozeshi Digar Bedroud .