Skocz do zawartości

jak zwolnić szybkość progressbara?


Rekomendowane odpowiedzi

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut i wiele więcej!

 

 

Zapewne progressbar robisz za pomocą timera (nie wiem czy da się inaczej, jestem początkującym w VB). Skoro już wstawiłeś timer to wchodzisz w jego parametry (wciskasz na niego i po prawej jest box z ustawieniami), a tam masz interwał. Im większa wartość tym wolniej leci.

  • Super 1

//zapoznaj sie z regulaminem forum.

Odnośnik do komentarza
Public Class Form1    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Timer1.Start()        ProgressBar1.Value = ProgressBar1.Minimum    End Sub    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = ProgressBar1.Maximum Then            Timer1.Stop()        End If        If ProgressBar1.Value = 10 Then            Timer1.Interval = 20        End If        If ProgressBar1.Value = 60 Then            Timer1.Interval = 400        End If    End SubEnd Class

Tu masz prosty kod z progressbarem, timerem buttonem :)

  • Super 1

REP poprawiłby mi humor :)

"Kto pyta, wstydzi się tylko raz, kto nie wie, wstydzi się całe życie"                                                                                                               
"Standardowa edukacja zapewni ci przeżycie. Samokształcenie fortunę." - Jim Rohn
"Pomagając innym - sami się uczymy"



banner_350x26.png

Odbity w blasku katany księżycu mów mi “Yoshimitsu”

Odnośnik do komentarza

@Up dzięki ale sam se poradziłem :D

 

Do zamknięcia ;D

Wystarczyło do buttona dać Timer1.Start

a do timera

        ProgressBar1.Value = ProgressBar1.Value + 1        If ProgressBar1.Value = 100 Then            Timer1.Stop()        End If
Edytowane przez Bartek4175
Odnośnik do komentarza

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek, aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .