Abbildung 23.4.5.1: GIF-Bild auf der Website https://gambaswiki.org/wiki/comp/gb.qt4/moviebox
Die Klasse MovieBox (gb.qt4) bietet ein Steuerelement, das animierte GIF-Bilder (Graphics Interchange Format) anzeigt. GIF-Bilder bestehen aus mehreren Einzelbildern, die wie bei einem Film hintereinander für eine einstellbare Zeitdauer angezeigt werden.
Die Klasse MovieBox verfügt über diese wesentlichen Eigenschaften:
Eigenschaft | Datentyp | Beschreibung |
---|---|---|
Animation | Animation | Gibt das anzuzeigende animierte Bild zurück oder legt es fest. |
Border | Integer | Gibt den Rahmentyp des Steuerelements zurück oder setzt ihn. |
Padding | Integer | Gibt den inneren Abstand (in Pixeln) um den Bildinhalt an oder setzt ihn. |
Playing | Boolen | Gibt an, ob der Film abgespielt wird oder setzt den Wert. |
Stretch | Boolean | Zeigt an, dass das vom Steuerelement angezeigte Bild gestreckt wird, um es an seinen Inhalt anzupassen. |
Tabelle 23.4.5.1 : Eigenschaften der Klasse Moviebox
Die Klasse Animation verfügt über diese Methoden:
Methode | Rückgabetyp | Beschreibung |
---|---|---|
Start() | - | Startet die Wiedergabe der Animation. |
Pause() | - | Die Animation anhalten. |
Stop() | - | Stoppt die Animation und spult sie an den Anfang zurück. |
Rewind() | - | Setzt die Animation auf den Anfang zurück. |
Load ( Path As String ) | Animation | Lädt ein animierten Bild. `Path` ist der Pfad des zu ladenden Bildes. Das Format GIF wird unterstützt. Die Funktion ist statisch. |
Tabelle 23.4.5.2 : Methoden der Klasse Animation
In dem folgenden Programm können Sie eine animierte Grafik im GIF-Format starten und stoppen:
Abbildung 23.4.5.2: Moviebox – Animation einer GIF-Datei
' Gambas class file Public Sub Form_Open() MovieBox1.Animation = Animation.Load("images/tanzen.gif") MovieBox1.Stretch = True MovieBox1.Visible = True MovieBox1.Border = Border.Solid MovieBox1.Animation.Play() btnStart.Enabled = False End Public Sub btnStart_Click() If Not MovieBox1.Playing Then MovieBox1.Animation.Play() btnStart.Enabled = False btnStopp.Enabled = True End Public Sub btnStopp_Click() MovieBox1.Playing = False btnStopp.Enabled = False btnStart.Enabled = True End Public Sub btnClose_Click() If MovieBox1.Animation.Playing Then MovieBox1.Animation.Stop() btnStart.Enabled = False Wait 0.6 FMain.Close() End