Een screensaver

Een schermbeveiliging of screensaver is een programma dat

het hele scherm vult
grafisch gevarieerd is
automatisch wordt opgestart door Windows opgestart (daar moeten we ons geen zorgen over maken)
wordt gestopt als de gebruiker iets doet

We maken een schermbeveiliger met een formulier dat

gemaximaliseerd is (vbMaximized)
geen titel heeft
geen rand heeft

Het programma mag slechts een keer opstarten

Private Sub Form_Load()
If App.PrevInstance Then Unload Me
End Sub

Het programma moet stoppen als er invoer komt (de muisbeweegt of de gebruiker tikt iets in

Private Sub Form_MouseMove()
Unload Me
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub

Je moet iets voorzien dat grafisch gevarieerd is, bv. de achtergrondkleur die wijzigt door een timer

Sub Timer1_Timer
Dim rood As Integer
Dim groen As Integer
Dim blauw As Integer
rood = CInt(Rnd * 256)
groen = CInt(Rnd * 256)
blauw = CInt(Rnd * 256)
Form1.BackColor = RGB(rood, groen, blauw)
End Sub

Je moet de applicatie compileren met een .SCR extensie en opslaan in de Windows directory. Succes ermee!

Oefening
In Scherm hebben we deze schermbeveiliger uitgewerkt.
Labelscreensaver bevat een label dat verspringt