Private Sub Komut0_Click()
Dim A, B
ProgressBar1.Visible = True
For A = 1 To 100
ProgressBar1.Value = A
For B = 1 To 200000
Next B
Next A
ProgressBar1.Visible = False
End Sub
Kendinize uyarlayın.
Private Sub Komut0_Click()
Dim A, B
ProgressBar1.Visible = True
For A = 1 To 100
ProgressBar1.Value = A
For B = 1 To 200000
Next B
Next A
ProgressBar1.Visible = False
End Sub
Bu Konudaki Yorumlar |
Progressbar Uygulaması Hk. - Yazar: SADIK54 - 05/02/2011, 00:42
Cvp: Progressbar Uygulaması Hk. - Yazar: ercansahin - 05/02/2011, 01:01
Cvp: Progressbar Uygulaması Hk. - Yazar: SADIK54 - 05/02/2011, 01:05
Cvp: Progressbar Uygulaması Hk. - Yazar: ozanakkaya - 05/02/2011, 01:14
Cvp: Progressbar Uygulaması Hk. - Yazar: SADIK54 - 05/02/2011, 01:18
Cvp: Progressbar Uygulaması Hk. - Yazar: ozanakkaya - 05/02/2011, 01:23
Cvp: Progressbar Uygulaması Hk. - Yazar: SADIK54 - 05/02/2011, 01:26
Cvp: Progressbar Uygulaması Hk. - Yazar: life_exciting - 05/02/2011, 01:33
Cvp: Progressbar Uygulaması Hk. - Yazar: SADIK54 - 05/02/2011, 01:55
Cvp: Progressbar Uygulaması Hk. - Yazar: Yandemir - 05/02/2011, 02:18
Cvp: Progressbar Uygulaması Hk. - Yazar: SADIK54 - 05/02/2011, 10:04
|