KlokFormulier

• Ook nu willen we de tijd tonen, maar we willen de gebruiker de kans geven om het formulier te minimaliseren. Als het formulier geminimaliseerd is, wordt de tijd in de taakbalk getoond.
  
• We nemen een formulier dat wel van formaat kan gewijzigd worden. We plaatsen er een timer op die Enabled is met een Interval van minder dan 1000, en een label waarin we de tijd gaan tonen.
• Als het formulier geminimaliseerd is, zetten we de tijd ook in de Caption van het formulier, zodat hij in de taakbalk verschijnt.
  lblTijd.Caption = Format(Now, "hh:mm:ss")
  If Form1.WindowState = vbMinimized Then Form1.Caption = Format(Now, "hh:mm:ss")
• Als het formulier van formaat wijzigt (Resize), plaatsen we Klok in de Caption. Op die manier verdijnt de tijd uit het opschrift van het formulier als het niet meer geminimaliseerd is.
  If Not Form1.WindowState = vbMinimized Then Form1.Caption = "Klok"
• Je kan het project downloaden.

[VB Web] - [hlrnet] - [copyright]