[ابو روضة]

السلام عليكم ورحمة الله وبركاته

هل هناك طريقة لكتابة النصوص داخل التكست بوكس حرف حرف

أو كلمة كلمة ، ولا يضع النصوص تلقائيا مرة واحدة ؟

وجزاكم الله كل خير.

[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

[ابو روضة]

(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

بارك الله فيك أخى الكريم وجزاك كل الخير..