08-11-15, 07:09 PM
08-11-15, 08:05 PM
08-11-15, 08:18 PM
08-11-15, 11:15 PM
08-11-15, 11:15 PM
09-11-15, 12:04 AM
09-11-15, 12:09 AM
09-11-15, 01:19 AM
09-11-15, 01:37 AM
جرب الكود التالي
PHP كود :
Option Explicit
Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
ProgressBar1.Value = 0
ProgressBar2.Value = 0
ProgressBar3.Value = 0
ProgressBar4.Value = 0
End Sub
Private Sub Form_Load()
ProgressBar2.Max = 1000
ProgressBar1.Max = 100
ProgressBar3.Max = 100
ProgressBar4.Max = 1000
End Sub
Private Sub Timer1_Timer()
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
Exit Sub
End If
ProgressBar1.Value = ProgressBar1.Value + 2
ProgressBar1.Refresh
ProgressBar3.Value = ProgressBar3.Value + 2
ProgressBar3.Refresh
End Sub
Private Sub Timer2_Timer()
If ProgressBar2.Value = 1000 Then
Timer2.Enabled = False
Exit Sub
End If
ProgressBar2.Value = ProgressBar2.Value + 5
ProgressBar2.Refresh
ProgressBar4.Value = ProgressBar4.Value + 5
ProgressBar4.Refresh
End Sub
09-11-15, 02:34 AM