Datum ve StatusBaru aplikace
Postup:
Na formulář přidejte
statusbar. V jeho kartě vlastností, kde se definují jednotlivé panely,
nastavte panel 2 na typ Text a jeho šířku na 2000.
Na událost Load formuláře
zapište následující kód:
StatusBar.Panels(2).Text
= UCase(Mid(Format(Date, "dddd"), 1, 1)) + Mid(Format(Date, "dddd"),
2) + ", " + Format(Date, "LONG DATE")
* celé
je to na jedné řádce
A teď aplikaci spusťte.