yükleme çubuğu - Turkish Hacking Sabotage | Türkiyenin En Büyük Hack Ve Security Sitesi

spider · **yükleme çubuğu -** 09-07-2007

Form'a componentten (project menüsünde) microsoft common controls 6.0 (Sp6) yı ekleyin (ortalardadır), çıkan araçlardan progressbarı form'a ekleyin, timer ekleyin, label ekleyin, kodları yapıştırın

Dim a As Integer
Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
a = a + 1
ProgressBar1.Value = a
Label1.Caption = "Programın " & a & "% yüklendi."
End Sub

ReaLman · **Cevap: yükleme çubuğu -** 02-26-2008

kardes program yüklendikten sonra debug mebug diyo bu :S projeme eklemek istiyiyorum nasıl yapıcam :S

TRgölge · 04-19-2008

kardeş o hatayı vermemesi için %100 olduğunda işemi durdurman gerekir yani timer1 in intervalini sıfır yapman gerekir. yani spider arkadaşın vermiş olduğu örnege bunu ekleyecek olursak.

Dim a As Integer
Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
a = a + 1
ProgressBar1.Value = a
Label1.Caption = "Programın " & a & "% yüklendi."
If a = 100 Then
Timer1.Interval = 0
MsgBox "Yükleme Başarı ile Tamamlandı"
End If
End Sub

Konu Bilgileri
	Konu Başlığı yükleme çubuğu	Konudaki Cevap Sayısı 2
	Şuan Bu Konuyu Görüntüleyenler	Görüntülenme Sayısı 67

Seçenekler	Arama
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder	Arama: Gelişmiş arama yap
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)