Kolejny sposób na oryginalny ProgressBar

Witam w kolejnym moim poradniku.

Pokażę Wam jak stworzyć Progress Bar w Visual Basic. Zainspirowałem się poradnikiem autorstwa usera Grubyportfel, który możecie znaleźć tutaj: http://make-cash.pl/dostosuj-wygl%C4%85d-progressbara-do-swoich-potrzeb-t2470/

Dosyć tego wstępu, zaczynamy.

1. Uruchamiamy Visual Basic, tworzymy nowy projekt. Wrzucamy:  Button, Progress Bar, Timer oraz PictureBox.

2. Dla PictureBox oraz ProgressBar zmieniamy pozycję Visible na False, w okienku Properties po prawej na dole. Oraz dla ProgressBar zmieniamy wartość maximum na "546"

3. Kod dla Button:

        Timer1.Start() 

4. Kod dla Timera:

        ProgressBar1.Increment(21)        PictureBox1.Visible = False        If PictureBox1.Width > 0 Then PictureBox1.Visible = True        PictureBox1.Width = ProgressBar1.Value        If ProgressBar1.Value = 546 Then            Timer1.Stop()        End If 

Liczba 21 onacza szerokość jednego prostokąta i połowy przerwy między nim a następnym. Dzięki temy pasek ładuje się pokazując kolejne prostokąty, a nie ładując po kolei kolejne piksele.

Przygotowałem dla Was taką grafikę z ProgressBarem:

- bez tła:

- z szarym tłem:

A co jeśli chemy zmienić kolor grafiki żeby dopasować kolorystycznie Wasz ProgressBar do naszego programu?

To również przewidziałem. Pomoże nam w tym prosty edytor graficzny online.

1. Wchodzimy na poniższy adres:

http://www160.lunapic.com/editor 

2. Stosujemy się to napisów na obrazkach:

3. Zapisujemy grafikę i gotowe!

Finalny efekt:

przyda się, ładnie

nie wiedziałem o takim czyms Leci reput !

W ten sposób możemy podnieść jakość naszej aplikacji. Osobiście używam tego od dosyć dawna i proponuję lekkie ulepszenie kodu Timera.

     ProgressBar1.Increment(21)        PictureBox1.Visible = False        If PictureBox1.Width > 0 Then PictureBox1.Visible = True        PictureBox1.Width = ProgressBar1.Value        If ProgressBar1.Value = 546 Then            Timer1.Stop()        End If

 

W ten sposób możemy podnieść jakość naszej aplikacji. Osobiście używam tego od dosyć dawna i proponuję lekkie ulepszenie kodu Timera.

     ProgressBar1.Increment(21)        PictureBox1.Visible = False        If PictureBox1.Width > 0 Then PictureBox1.Visible = True        PictureBox1.Width = ProgressBar1.Value        If ProgressBar1.Value = 546 Then            Timer1.Stop()        End If

Rzeczywiście zapomiałem zastopować Timera. Poprawione. Dzieki

Bardzo fajny progressbar Mam jedno pytanie, mianowicie co zrobić żeby taki progressbar leciał wolniej? 

Bardzo fajny progressbar Mam jedno pytanie, mianowicie co zrobić żeby taki progressbar leciał wolniej? 

Wybierz Timer i po prawej stronie zmień wartość przy "Interval". Mniejsza - progressbar leci szybciej, większa - wolniej

Wybierz Timer i po prawej stronie zmień wartość przy "Interval". Mniejsza - progressbar leci szybciej, większa - wolniej

Dzięki!