06-01-20, 08:02 AM
06-01-20, 11:28 AM
السلام عليكم ورحمة الله وبركاته
تتحكم بعدد النقاط عن طريق قيمة i
تتحكم بعدد النقاط عن طريق قيمة 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 Sub06-01-20, 12:09 PM
(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
شكرا لك بس للأسف ما اشتغلش الكود معايا وماضفش النقط بجانب كلمه استوب
06-01-20, 12:14 PM
جرب هذا الكود
تأكد أن التايمر شغال بتعديل الخاصية Enabled=True
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