منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(30-04-23, 04:20 PM)Taha Okla كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته

هذه طريقة من الطرق :

كود :

Dim strTextX As String = ""
Dim TimerX As New Timer
Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   AddHandler TimerX.Tick, Sub(sender2 As Object, e2 As EventArgs)

                               TextBox1.Text += Mid(strTextX, Len(TextBox1.Text) + 1, 1)
                               If Len(TextBox1.Text) = strTextX.Length Then TimerX.Enabled = False
                           End Sub
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   TextBox1.Text = ""
   TimerX.Enabled = True
   TimerX.Interval = 200
   strTextX = "السلام عليكم ورحمة الله وبركاته"
End Sub