Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Countdown (abwärtszählen)
Autor: unbekannt
Datum: 10.07.02 17:53
Hi Sebastian, Timer-Control auf die Form plazieren. Timer1.Interval = 1000 einstellen (im Form_Load-Event) Dim MinCount As Byte Private Sub Form_Load() MinCount = 60 Timer1.InterVal = 1000 End Sub Private Sub Timer1_Timer() Static n As Byte n = n + 1 If n = 60 Then n=0:MinCount=60 MinCount = MinCount - n End Subcu Lordchen

Countdown (abwärtszählen)	66	Sebastian	10.07.02 17:45
Re: Countdown (abwärtszählen)	364	unbekannt	10.07.02 17:53
Re: Countdown (abwärtszählen)	55	Sebastian	10.07.02 18:24
Re: Countdown (abwärtszählen)	338	unbekannt	10.07.02 18:27
Geht auch einfacher	49	raziel	11.07.02 20:47

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen