[bakriano30@yahoo.com]

عندي ليبل مكتوب به stop.
محتاج كل ثانيه ال. تذيد واحده تبقي .. وهكذا

[3booody]

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

تتحكم بعدد النقاط عن طريق قيمة i

كود :

Dim i As Short = 1
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       If i = 4 Then i = 1 'if i=4 بمعنى ثلاث نقاط اقصى عدد
       Dim s As New String("."c, i)
       Label1.Text = "stop" & s
       i += 1
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Timer1.Interval = 1000
       Timer1.Start()
   End Sub

[bakriano30@yahoo.com]

(06-01-20, 11:28 AM)3booody كتب : السلام عليكم ورحمة الله وبركاته

تتحكم بعدد النقاط عن طريق قيمة i

كود :

Dim i As Short = 1
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       If i = 4 Then i = 1 'if i=4 بمعنى ثلاث نقاط اقصى عدد
       Dim s As New String("."c, i)
       Label1.Text = "stop" & s
       i += 1
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Timer1.Interval = 1000
       Timer1.Start()
   End Sub

شكرا لك بس للأسف ما اشتغلش الكود معايا وماضفش النقط بجانب كلمه استوب

[جميل]

جرب هذا الكود

PHP كود :

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text &= "."
        If Label1.Text.Length > 10 Then Label1.Text = "stop."
    End Sub 


تأكد أن التايمر شغال بتعديل الخاصية Enabled=True