Skocz do zawartości

Visual basic - opis wykonywanej funkcji


VinCee

Rekomendowane odpowiedzi

Zarejestruj się za darmo i naucz się zarabiać online!

  • 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, sztucznej inteligencji i wiele więcej!

To proste jest do zrobienia :) w timer który dałeś do progressbar dajesz taki kod np to:

If ProgressBar1.Value = 10 Then Label9.Text = "Please wait."If ProgressBar1.Value = 20 Then Label9.Text = ""If ProgressBar1.Value = 30 Then Label9.Text = "tu swój tekst"If ProgressBar1.Value = 40 Then Label9.Text = ""If ProgressBar1.Value = 50 Then Label9.Text = "tu swój tekst"If ProgressBar1.Value = 60 Then Label9.Text = ""If ProgressBar1.Value = 70 Then Label9.Text = "tu swój tekst"If ProgressBar1.Value = 80 Then Label9.Text = ""If ProgressBar1.Value = 90 Then Label9.Text = "tu swój tekst"If ProgressBar1.Value = 60 Then Label9.Text = ""If ProgressBar1.Value = 65 Then Label9.Text = "tu swój tekst"If ProgressBar1.Value = 70 Then Label9.Text = ""If ProgressBar1.Value = 75 Then Label9.Text = "tu swój tekst"If ProgressBar1.Value = 80 Then Label9.Text = ""If ProgressBar1.Value = 85 Then Label9.Text = "tu swój tekst"If ProgressBar1.Value = 90 Then Label9.Text = ""If ProgressBar1.Value = 99 Then Label10.Text = "tu swój tekst"

A umieszczasz go tak:

ProgressBar1.Increment(1)   If ProgressBar1.Value = 10 Then Label9.Text = "Please wait."If ProgressBar1.Value = 20 Then Label9.Text = ""If ProgressBar1.Value = 30 Then Label9.Text = "tu swój tekst"If ProgressBar1.Value = 40 Then Label9.Text = ""If ProgressBar1.Value = 50 Then Label9.Text = "tu swój tekst"If ProgressBar1.Value = 60 Then Label9.Text = ""If ProgressBar1.Value = 70 Then Label9.Text = "tu swój tekst"If ProgressBar1.Value = 80 Then Label9.Text = ""If ProgressBar1.Value = 90 Then Label9.Text = "tu swój tekst"If ProgressBar1.Value = 60 Then Label9.Text = ""If ProgressBar1.Value = 65 Then Label9.Text = "tu swój tekst"If ProgressBar1.Value = 70 Then Label9.Text = ""If ProgressBar1.Value = 75 Then Label9.Text = "tu swój tekst"If ProgressBar1.Value = 80 Then Label9.Text = ""       If ProgressBar1.Value = 100 Then           Timer1.Stop()           MsgBox("Connected Correctly", MsgBoxStyle.Information) end if

Napewno jeszcze i na inne sposoby idzie robić ale robię tak jak napisałem

  • Super 2
Odnośnik do komentarza

Tutaj widocznie korzysta z jakiegoś szablonu
to pierwsza poprawka
 

ProgressBar1.value += 1

a druga, chodzi o to, że jeżeli podamy liczbę
0.7? wtedy progresbar nie uzyska wartości 10, czy 20, tylko ciut większe, albo mniejsze.
Warto skorzystać z przedziałów

If ProgressBar1.Value < 10 Then Label9.Text = "Please wait."If ProgressBar1.Value > 10 and ProgressBar1.value < 20Then Label9.Text = "Please wait."

 

  • Super 1
Odnośnik do komentarza
  • 2 tygodnie później...

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 .