Skocz do zawartości

[VB] Gdzie tkwi błąd?


Gość Brodzik123

Rekomendowane odpowiedzi

Chce po prostu żeby po kliknieciu na button ruszył progressbar a jak progressbar sie zaladuje ma wyskoczyć okienko z jakimś napisem.

Wcześniej działało tylko zmieniłem skórkę. Żaden błąd nie wyskakuje tylko po prostu aplikacja nic nie robi.

Gdzie tkwi błąd?

 

Public Class Form1

 

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

 

        ProgressBar2.Increment(1)

 

        If ProgressBar2.Value = ProgressBar2.Maximum Then

 

            Timer1.Stop()

 

 

            MsgBox("Done")

 

        End If

 

    End Sub

 

    Private Sub ClassicButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClassicButton1.Click

 

        Timer1.Start()

 

        ProgressBar2.Value = ProgressBar2.Minimum

 

    End Sub

 

End Class

 

Odnośnik do komentarza

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!

 

 

Witaj skoro zmieniłeś skórkę to działa to trochę inaczej , musisz sprawdzić jak nazywa się progressbar w projekcie, zazwyczaj jest to nazwaskórkiprogresbar i tam jeszcze trzeba zastosować inną metodę z tego co pamiętam musisz mieć stary progressbar plus nowy i w tedy podkładasz tak że value ze starego progressbara = ta co w npowym <z nowej skórki> 

 

Ja stosowałem skórkę ghosta i wyglądało to tak 

 GhostProgressbar1.Value = GhostProgressbar1.Value        GhostProgressbar1.Value = GhostProgressbar1.Value + 1

pewnie jest prostszy sposób ale ja coś takiego wykombinowałem 

Edytowane przez fiozo
Odnośnik do komentarza

Albo inaczej co dodać do tego żeby po załadowaniu progress bara i kliknieciu ok w okienku

pasek się refreshował czyli schodził do minimum

 

Public Class Form1
 
    Private Sub ClassicButton1_Click(sender As System.Object, e As System.EventArgs) Handles ClassicButton1.Click
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            MsgBox("Done")
 
        End If
 
        End If
 
    End Sub
End Class
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 .