Sie möchten, dass ein Label ständig blinkt? Dann setzen Sie einen Timer auf Ihre Form und ein Label und los geht's: Private Sub Form_Load() Timer1.Interval = 500 ' Intervall 0,5 Sekunden End Sub Private Sub Timer1_Timer() Label1.Visible = Not Label1.Visible End Sub Je nach vorgegebenem Intervall blinkt Ihr Label schneller oder langsamer. Sie können natürlich auch mehrere Timer und Label verwendenund diese dann unterschiedlich blinken lassen: Private Sub Form_Load() Timer1.Interval = 500 ' Intervall 0,5 Sekunden Timer2.Interval = 1000 ' Intervall 1 Sekunde End Sub Private Sub Timer1_Timer() Label1.Visible = Not Label1.Visible End Sub Private Sub Timer2_Timer() Label2.Visible = Not Label2.Visible End Sub Und wenn man dann noch die Labels mit verschiedenen Hintergrundfarben ausstattet - dann wird's schön bunt. Diese Seite wurde bereits 23.679 mal aufgerufen. |
sevISDN 1.0 ![]() Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats ![]() Dieter Otter sevTabStrip: Rechtsklick auf Reiter erkennen Eine Funktion, mit der sich prüfen lässt, auf welchen Tab-Reiter ein Mausklick erfolgte sevWizard für VB5/6 ![]() Professionelle Assistenten im Handumdrehen Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) |
||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |