Anasayfa > Kodlar > Visual Basic 6 ile Yükleme çubuğu örneği (ProgressBar)

Visual Basic 6 ile Yükleme çubuğu örneği (ProgressBar)


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

 


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: