Inhaltsverzeichnis

23.4.5 Klasse Moviebox

BILD1

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.

23.4.5.1 Eigenschaften

Die Klasse MovieBox verfügt über diese wesentlichen Eigenschaften:

EigenschaftDatentypBeschreibung
AnimationAnimationGibt das anzuzeigende animierte Bild zurück oder legt es fest.
BorderIntegerGibt den Rahmentyp des Steuerelements zurück oder setzt ihn.
PaddingIntegerGibt den inneren Abstand (in Pixeln) um den Bildinhalt an oder setzt ihn.
PlayingBoolenGibt an, ob der Film abgespielt wird oder setzt den Wert.
StretchBooleanZeigt an, dass das vom Steuerelement angezeigte Bild gestreckt wird, um es an seinen Inhalt anzupassen.

Tabelle 23.4.5.1 : Eigenschaften der Klasse Moviebox

23.4.5.2 Klasse Animation

Die Klasse Animation verfügt über diese Methoden:

MethodeRückgabetypBeschreibung
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 ) AnimationLä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

23.4.5.3 Projekt

In dem folgenden Programm können Sie eine animierte Grafik im GIF-Format starten und stoppen:

BILD 2

Abbildung 23.4.5.2: Moviebox – Animation einer GIF-Datei

23.4.5.4 Quelltext

' 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

Download