zurück zur Startseite des Workshops

Schritt 5 :

In die Ereignisprozedur des Timers ( im Code-Modul )

wird dann der Code eingegeben der für den Farbwechsel, die Datums- und Uhrzeitausgabe auf dem Label-Control verantwortlich ist.

Private Sub Timer1_Timer()

'Farbe durch Zufall ermitteln.

iColors = Rnd * 15

'Textfarbe setzen.

Label1.ForeColor = QBColor(iColors)

'Datum und Uhrzeit anzeigen.

Label1 = Now()

End Sub

Schritt 6 :

Damit wäre das Steuerelement fertig. Speichern Sie das Projekt.

Copyright by : Heinz Prelle Lenbachstraße 42 30655 Hannover (www.Visual-Basic5.de) mail