Thema: Wandergrafik

Home

Eine GIF-Grafik wird in einem Image-Objekt zeitgesteuert bewegt.

Prozedur: cmdStart_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Wandergrafik
Ablaufbeschreibung:
- Variablendeklaration
- Schleife über 4 Zeilen bilden
- Schleife über die Spalten 6 bis 216 bilden
- Funktion zur API-Wartefunktion mit dem Wert des SpinButtons als Parameter aufrufen
- Grafik horizontal verschieben
- Steuerung an System übergeben
- Grafik vertikal verschieben
- Schleife über die Spalten rückwärts bilden
- Funktion zur API-Wartefunktion mit dem Wert des SpinButtons als Parameter aufrufen
- Grafik horizontal verschieben
- Steuerung an System übergeben
- Grafik vertikal verschieben
- Grafik an ihre Ursprungsposition zurücksetzen

Code:


Private Sub cmdStart_Click()
   Dim iCol As Integer
   Dim iRow As Integer
   For iRow = 1 To 4
      For iCol = 6 To 216
         Sleep SpinButton1.Value
         Image1.Left = Image1.Left + 1
         DoEvents
      Next iCol
      Image1.Top = Image1.Top + 12
      For iCol = 216 To 6 Step -1
         Sleep SpinButton1.Value
         Image1.Left = Image1.Left - 1
         DoEvents
      Next iCol
      Image1.Top = Image1.Top + 12
   Next iRow
   Image1.Top = 6
   Image1.Left = 6
End Sub