Skocz do zawartości
Gość EyeOfDevil

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

Rekomendowane odpowiedzi

Gość EyeOfDevil

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. ;)

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!

 

 

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

"Wielu myślało, że w internecie da się kokosy zarobić bo przecież inni mają po 200$ dniówki to czemu ja miałbym nie mieć, najlepsi są ci którzy przed założeniem swojej pierwszej strony już myślą co to kupią sobie jak po tygodniu będą dniówki po 100$, tacy najszybciej budzą się ze wspaniałego snu."

 

Odnośnik do komentarza
Gość EyeOfDevil

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
Odnośnik do komentarza

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

Nie wiesz jak dokonać optymalizacji strony? Masz problem z doborem słów kluczowych czy z analizą linków? Skorzystaj z moich usług!

 

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 .