Skocz do zawartości
spacer.png
spacer.png

Timer czekający 10s po wyświetleniu Labela i wyświetlający następny


Gość EyeOfDevil

Rekomendowane odpowiedzi

Gość EyeOfDevil
Opublikowano

Jak w temacie. Chcę napisać taki kod ale coś mi nie pyka ... 

PictureBox2.Show()FlatLabel1.Show()Timer1.Interval = 30000FlatLabel1.Hide()FlatLabel2.Show()

Macie jakieś pomysły? Za pomoc będę bardzo wdzięczny. ;)

Opublikowano (edytowane)
Dim timercount As Integer = 20    Private Sub Form1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Timer1.Enabled = True        Timer1.Interval = 1000    End Sub    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        timercount = timercount - 1If timercount = 20 Then FlatLabel1.Show()End Ifif timercount = 10 ThenFlatLabel1.Hide()FlatLabel2.Show()End If    End Sub

zobacz czy takie coś przejdzie, bo nie mam dostępu na razie do visual basic

Edytowane przez Pieczarkowy
Gość EyeOfDevil
Opublikowano

Label1 się nie wyświetla poza tym chciałbym by to się odbywało po naciśnięciu w button a jak narazie to działa odrazu. ( Mam już Timer1.Start() przy butonie )

Else            Timer1.Start()        End If    End Sub    Dim timercount As Integer = 20    Private Sub Form1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Timer1.Enabled = True        Timer1.Interval = 1000    End Sub    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        timercount = timercount - 1        If timercount = 20 Then            PictureBox2.Show()            FlatLabel1.Show()        End If        If timercount = 10 Then            FlatLabel1.Hide()            FlatLabel2.Show()        End If    End SubEnd Class
Opublikowano

Robisz tak. Tworzysz button, któremu dajesz

Timer1.Start()

Dodajesz Flatlabel z Visible = False.

Następnie Ustawiasz w Timerze Interval 10.

Dodajesz progressbar, którego max value robisz 10 i ustawiasz mu visible = false

 

W kodzie Timera wpisujesz

  ProgressBar1.Increment(1)        If ProgressBar1.Value = 10 Then            Timer1.Stop()            ProgressBar1.Value = 0            FlatLabel1.Visible = True
Gość EyeOfDevil
Opublikowano

Opcja z niewidzialnym progressbarem chyba najlepsza. ;) Działa. Dzięki za pomoc. ;)

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

Tylko zalogowani użytkownicy mogą dodawać komentarze.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

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

Zaloguj się

spacer.png

spacer.png

×
×
  • 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 .