Geschrieben von gordon-huhn am 21.12.2004, 11:23

Es ist total einfach und schnell gemacht:

Ihr könnt die Uhrzeit und das Datum quasi Überall anzeigen lassen.
Private Sub Form_Load()
Form1.Caption = Now
End Sub
jetzt wird dir Systemtzeit + Datum oben in der "Formtitelleiste" angezeigt.

Private Sub Form_Load()
label1.Caption = Now
End Sub
Und so wird alles in einen Labelfeld gezeigt.

Damit die Zeit nicht stehen bleibt sondern "weiterläuft" braucht man 'nen Timer. Also kann der Quellrtext von oben
(siehe oben [für Form1 bzw. Label1 gelöscht werden ])
Jetzt reicht das aus:
Private Sub Timer1_Timer()
Form1.Caption = Now
End Sub
Der timer aktualisiert immer wieder! Dazu müssen aber die Eigenschaften ENABLED = TRUE und INTERVAL = (Zum Bespiel für kurze aktualisierungsabstände) 1000 gesetzt werden.

Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub

Die Uhrzeit + Datum kann auch auf Button's oder andere Komponenten angezeigt werden.
Außerdem kann man auch den Quelltext so um schreiben das die Uhrzeit + Datum nur angezeugt wird wenn man Zum Beispiel auf einem Timer klickt.
Man kann also sehr kreativ werden.

Hoffe ich konnte Hiermit einigen VB-Neulingen etwas helfen.
Sollte es noch fragen geben dann schreibt mir 'ne PN (Private Nachricht).

Bewertung Anzahl
6
50,0 %
2 Bewertungen
4
50,0 %
2 Bewertungen