+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال في التايمر (/showthread.php?tid=32821)
سؤال في التايمر - bakriano30@yahoo.com - 06-01-20
عندي ليبل مكتوب به stop.
محتاج كل ثانيه ال. تذيد واحده تبقي .. وهكذا
RE: سؤال في التايمر - 3booody - 06-01-20
السلام عليكم ورحمة الله وبركاته
تتحكم بعدد النقاط عن طريق قيمة 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 SubRE: سؤال في التايمر - bakriano30@yahoo.com - 06-01-20
(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
شكرا لك بس للأسف ما اشتغلش الكود معايا وماضفش النقط بجانب كلمه استوب
RE: سؤال في التايمر - جميل - 06-01-20
جرب هذا الكود
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