Skocz do zawartości
Soony08

Button nie znika

Rekomendowane odpowiedzi

Mam taki problem, chce żeby przycisk po kliknięciu zniknął i pojawił się progress bar. Progress bar się pojawia a przycisk nie znika, jedyne co to mignie tylko. Mam ustawione żeby nie był wyświetlany cały czas.
 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Timer1.Start()        Button1.Visible = False        ProgressBar1.Visible = True    End Sub    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = 99 Then            MsgBox("Your device: iPhone 4s has been connected")        End If        If ProgressBar1.Value = 100 Then            ProgressBar1.Visible = False            Label1.Visible = True            Label2.Visible = True            Button2.Visible = True        End If    End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        Button2.Visible = False        ProgressBar2.Visible = True        Timer2.Start()    End Sub    Private Sub ProgressBar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick        ProgressBar2.Increment(1)        If ProgressBar1.Value = 1 Then        End If    End SubEnd Class

Widzi ktoś może jakiś błąd?

 

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!

 

 

ProgressBar1.Increment(1)        If ProgressBar1.Value = 99 Then            MsgBox("Your device: iPhone 4s has been connected")        End If        If ProgressBar1.Value = 100 Then            ProgressBar1.Visible = False            Label1.Visible = True            Label2.Visible = True            Button2.Visible = True        End If
ProgressBar2.Increment(1)        If ProgressBar1.Value = 1 Then        End If 

Umieść to w timerach, a nie w progressbarach.   :D

 

Jeśli oprócz tego nie będzie pożądanego efektu to 

Button2.Visible = False        ProgressBar2.Visible = True

Wstaw po

Timer2.Start()

Raczej nie będzie miało to znaczenia..

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 .