Scherm: code

• We mogen de schermbeveileiger maar één ker opstarten.
  Private Sub Form_Load()
  If App.PrevInstance Then Unload Me
  End Sub
  
• De schermbeveiliger moet stoppen als de muis beweegt of als er een toets wordt ingedrukt.
  Private Sub Form_KeyPress(KeyAscii As Integer)
  'KeyPreview staat op True
  Unload Me
  End Sub
  
  Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Unload Me
  End Sub
  
• De eigenlijke animatie ziet er zo uit:
  
  Private Sub Timer1_Timer()
  'Interval staat op 2000 en enabled is True
  Dim rood As Integer
  Dim groen As Integer
  Dim blauw As Integer
  rood = Rnd * 255
  groen = Rnd * 255
  blauw = Rnd * 255
  Me.BackColor = RGB(rood, groen, blauw)
  End Sub
  

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