zulme karşı mukavemet!
Süper Üye
Visual Basic ProgressBar Kullanımı!
Bölüm 1: Butona Bastığınızda ProgressBar Çalışsın %100 Oluncada Form2 Açılsın
İlk Önce Ekleyeceklerimiz:
1 Adet Button
1 Adet Timer
1 Adet ProgressBar
1 Adet Label (%Yüzde Gösterimi İçin)
Kodumuz:
Bu Kodları ve Gerekli Şeyleri Eklediğiniz Zaman Programda Butona Basılınca ProgressBar Çalışacak %100 Oluncada Form2 Açılacak. İsterseniz Form2 Açılmadan Önce MsgBox'la Uyarması İçin Form2.Show() Adlı Kodumuzun Üstüne Alttaki Kodu Ekleyin.
Bölüm 2: Direk Form Açılınca ProgressBar Çalışsın %100 Oluncada Form2 Açılsın
İlk Önce Ekleyeceklerimiz:
1 Adet Timer
1 Adet ProgressBar
1 Adet Label (%Yüzde Gösterimi İçin)
1. Kodumuzu Forma Direk Ekleyin Yani FormLoada
1. Kodumuz:
2. Kodumuzuda Timer1'e Ekleyelim.
2. Kodumuz:
[font='Titillium Web', sans-serif]İstediğiniz Soruları Sorabilirsiniz Elimden Geldiği Kadar Yardımcı Olacağım
[/FONT]
[font='Titillium Web', sans-serif]Bölüm 3'ü Sorunuzla Ekleyeceğim[/FONT]
Bölüm 1: Butona Bastığınızda ProgressBar Çalışsın %100 Oluncada Form2 Açılsın
İlk Önce Ekleyeceklerimiz:
1 Adet Button
1 Adet Timer
1 Adet ProgressBar
1 Adet Label (%Yüzde Gösterimi İçin)
Kodumuz:
PHP:
Public Class Form1
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
Timer1.Stop()
Form2.Show()
Me.Hide()
End If
Label1.Text = ProgressBar1.Value & (" %")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
End Class
PHP:
MsgBox("Yükleme İşlemi Bitti! Yönlendiriliyorsunuz!", , "Yükleme İşlemi Bitti!")Bölüm 2: Direk Form Açılınca ProgressBar Çalışsın %100 Oluncada Form2 Açılsın
İlk Önce Ekleyeceklerimiz:
1 Adet Timer
1 Adet ProgressBar
1 Adet Label (%Yüzde Gösterimi İçin)
1. Kodumuzu Forma Direk Ekleyin Yani FormLoada
1. Kodumuz:
PHP:
Timer1.Start()2. Kodumuz:
PHP:
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
Timer1.Stop()
MsgBox("Yükleme İşlemi Bitti! Yönlendiriliyorsunuz!", , "Yükleme İşlemi Bitti!")
Timer1.Stop()
Form2.Show()
Me.Hide()
End If
Label1.Text = ProgressBar1.Value & (" %")[/FONT]
[font='Titillium Web', sans-serif]Bölüm 3'ü Sorunuzla Ekleyeceğim[/FONT]
yardım
