[فارس محمد]

(08-09-17, 03:46 AM)سعود كتب : حبيت اشارك بالموضوع
وضعت الاسماء بملف نصي باسم t.txt
وعرفت متغير lst من نوع قائمة نصية
انظر للفورم الثاني

مشكؤؤؤؤؤؤر اخي سعود بارك الله فيك

عدلت شوي على الكود تبعك ومشي الحال

بدل ملف الtext خليت الكود نفسو للTextBox1

وهيك صار الكود 

الف شكر الك

كود :

Public Class saudform
   Dim lst As New List(Of String)
   Private Sub saudform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       My.Settings.text = TextBox1.Text
       For Each h As String In TextBox1.Text.Split("#")
           lst.Add(h.Trim)
       Next
   End Sub
   Private Sub tmr_CheckedChanged(sender As Object, e As EventArgs) Handles tmr.CheckedChanged
       Select Case tmr.Checked
           Case True
               Timer1.Start()
           Case False
               Timer1.Stop()
       End Select
   End Sub
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Label1.Text = lst(Int(Rnd() * lst.Count))
   End Sub

End Class

---

(08-09-17, 05:39 AM)ola كتب :

كود :

Public Class Form1
   Dim splitStr As String()
   Dim p As Integer = 0
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       TextBox2.Text = splitStr(p).ToString()
       p = p + 1
       If p = splitStr.Length Then p = 0
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim str As String = TextBox1.Text
       splitStr = str.Split("#"c)
       p = 0
       Timer1.Start()

   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Interval = 60000
       TextBox1.Text = "احمد#يوسف#حسن#فارس#مصطفى#ابراهيم#حسين#خالد#علي#وليد#رياض#قاسم"
   End Sub
End Class

الله يسعدك هلاء شفت الكود تبعك

وناجح مليون بالمية 

الله يجزيك عني الخير