13-10-19, 05:03 PM
الصفحات : 1 2
14-10-19, 11:43 PM
مرحباً اخى aldery
يمكنك تحميل السورس من المرفقات
السورس المرفق لاصدار 2015
الادوات المستخدمة فى السورس :
1- Label
2- Button
3- Timer
الكود الموجود بالسورس
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label1.Text = 20
Timer1.Interval = 1000
Timer1.Start()
Button1.Enabled = False
Button1.Text = "is working..."
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Text -= 1
If (Label1.Text <= 0) Then
Timer1.Stop()
Button1.Enabled = True
Button1.Text = "start"
End If
End Subتحياتى لك
وتمنياتى لك التوفيق
الصفحات : 1 2