- Yasaklandı
-
- #1
Her yeni yazı için progressbar value + 5 veya kafanıza gere seçtiğiniz değeri koyabilirsiniz ancak ben Increment kullandım.
örnek vermek gerekirse
Bunları imports'a ekliyoruz
Bir timer veya bir button fark etmez
Tmer veya button fark etmiyor eventine ekliyoruz.
If/else döngüsünü kullanıyoruz, eğer progressbar değeri 100 değil ise döngü sonraki hedefi gerçekleştiriyor;
Burada elseif kullanıp Progressbar değerimiz 7 ise ilk hedefimiz olan dosya oluşturmayı yapıyoruz.
bu şekilde arttırarak yapılabilir benim yine geçen sene yaptığım bir projeden örnek verecek olursak;
Dosya işlemlerini sildim, belki başka bir konuda kullanırım.
Geçen seneki projemden bir görüntü, benzer şekilde yapabilirsiniz.
örnek vermek gerekirse
Bunları imports'a ekliyoruz
PHP:
Imports System
Imports System.IO
Imports System.TextBir timer veya bir button fark etmez
Tmer veya button fark etmiyor eventine ekliyoruz.
PHP:
MetroProgressBar1.Increment(1) ' Progressbar1 yerine 2,3,4 yazılabilir bu projenize bağlı.If/else döngüsünü kullanıyoruz, eğer progressbar değeri 100 değil ise döngü sonraki hedefi gerçekleştiriyor;
PHP:
If ProgressBar1.Value = 100 Then ' Progressbar1 yerine 2,3,4 yazılabilir bu projenize bağlı.Burada elseif kullanıp Progressbar değerimiz 7 ise ilk hedefimiz olan dosya oluşturmayı yapıyoruz.
PHP:
ElseIf ProgressBar1.Value = 7 Then
Dim DosyaYolu as string = "C:\deneme.txt" ' Dosyamızın oluşturulacağı yer.
File.Create(DosyaYolu )bu şekilde arttırarak yapılabilir benim yine geçen sene yaptığım bir projeden örnek verecek olursak;
PHP:
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
writeIni(File, setxtomasu, setxtomasu, "0")
textbox3.Text = "[END]"
omasu.Slp(2000)
Application.Exit()
ElseIf ProgressBar1.Value = 7 Then
textbox3.Text += "Saving the System Settings.." & vbCrLf
ElseIf ProgressBar1.Value = 8 Then
textbox3.Text += "Saving the System Settings..." & vbCrLf
ElseIf ProgressBar1.Value = 15 Then
textbox3.Text += "Saving the System Settings." & vbCrLf
ElseIf ProgressBar1.Value = 20 Then
textbox3.Text += "Saving the System Settings.." & vbCrLf
ElseIf ProgressBar1.Value = 27 Then
TextBox3.Text += "Saving the System Settings [Completed]" & vbCrLf
TextBox3.Text = ""
ElseIf ProgressBar1.Value = 30 Then
textbox3.Text += "Creating theme.." & vbCrLf
ElseIf ProgressBar1.Value = 36 Then
textbox3.Text += "Checking Colour.." & vbCrLf
ElseIf ProgressBar1.Value = 47 Then
textbox3.Text += "Creating Theme [Completed]" & vbCrLf
ElseIf ProgressBar1.Value = 53 Then
textbox3.Text += "Information [Completed]" & vbCrLf
ElseIf ProgressBar1.Value = 55 Then
TextBox3.Text += "Name Setting [Completed]" & vbCrLf
TextBox3.Text = ""
ElseIf ProgressBar1.Value = 58 Then
textbox3.Text += "Adress Setting [Completed]" & vbCrLf
ElseIf ProgressBar1.Value = 65 Then
textbox3.Text += "Value Setting [Completed]" & vbCrLf
ElseIf ProgressBar1.Value = 75 Then
textbox3.Text += "xOmasu.dll Setting [Completed]" & vbCrLf
ElseIf ProgressBar1.Value = 95 Then
textbox3.Text += "[Everything Completed]" & vbCrLf
End IfDosya işlemlerini sildim, belki başka bir konuda kullanırım.
Geçen seneki projemden bir görüntü, benzer şekilde yapabilirsiniz.