Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Po pewnym czasie
anonim




Typ: Nie zarejestrowany
Po pewnym czasie

Jak po pewnym upływie czasu np. po 3 min wyświetlić napis?

30-10-2004 10:43
  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Można to zrobić baardzo prosto. Wstawiasz obiekt Timer, ustawiasz interval na 1000. Później wstaw etykietę (Label) i tam se ustawiasz text do wyświetlenia, właściwość Visible ustaw na False. Na samej górze modułu wpisz:

Dim Czas As Integer 'Tu będzie czas jaki upłynął
Const Limit = 180 'Stała, po ilu sekundach ma się wyswietlić napis (aktualnie - 3 min.)

Private Sub Form_Load()
Czas = 0
End Sub

Private Sub Timer1_Timer()
Czas = Czas + 1 'Co sekundę dodaj 1 sek. do upłyniętego czasu
If Czas = Limit Then 'Jeżeli upłynięty czas jest równy limitowi, to ...
Label1.Visible = True '...pokaż napis
Timer1.Enabled = False '...i przestań zliczać
End Sub



_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

30-10-2004 12:43
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
anonim




Typ: Nie zarejestrowany

Dziękuję

30-10-2004 13:33
  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1