split کردن متن و تغییر پس از هر بار کلیک

[vahid.taj 14]

سلام دوستان 

میخواستم بدونم چطور میشه مثلا یه تکست باکس که مثلا دارای 50 متن هست و متون با # از هم جدا شدن رو با هر بار کلیک روی باتن توی لیبل نمایش داد ؟

 

1 تکست باکس با متون # جدا شدن

1 باتن

1 لیبل

که بعداز هربار کلیک روی باتن متن قبلی پاک و یک متن جدید نمایش داده بشه

[مجید آرتا 5,874]

سلام میتونید این کدک رو اضافه کنید و دیگه از i  استفاده نکنید :

Dim random As Int = Rnd(0,Str.Length - 1)
Label1.Text = Str(random)

[مهدی ایزدی 9,203]

Sub Globals



Private Label1 As Label

Private EditText1 As EditText

Dim i = 0

End Sub



Sub Button1_Click

Dim str() As String = Regex.Split("#",EditText1.Text)

Label1.Text = str(i)

If i = str.Length-1 Then

i = 0

Else

i = i + 1

End If

End Sub

سمپل هم پیوست شد

split txt with # and show in label.rar

[vahid.taj 14]

سلام ، ممنون آقای ایزدی

میخوام بطور راندوم متن بگیره

اینجوری هربار که وارد برنامه بشی و کلیک کنی متن اول رو میده  بازکلیک کنی متن دوم رو میده و.... یعنی منظم پیش میره اینجوری تکراریه واسه کاربر

میخوام هربار که کلیک میکنه یه متن دریافت کنه و اگه از برنامه خارج و مجدد وارد شد و کلیک کرد با متن های قبلی برخورد نکنه

اگه خودتون این تکه کد رو تست کنید متوجه میشید

[vahid.taj 14]

آپ