GAMBAS-BUCH 3.19.5

Inhaltsverzeichnis

23.4.5 Klasse Moviebox
23.4.5.1 Eigenschaften
23.4.5.2 Klasse Animation
23.4.5.3 Projekt
23.4.5.4 Quelltext
Download

23.4.5 Klasse Moviebox

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:

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

23.4.5.2 Klasse Animation

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

Die boolsche Eigenschaft Animation.Playing gibt an, ob die Animation aktuell abgespielt wird.
Das Ereignis Animation_Change() wird jedes Mal ausgelöst, wenn ein neues Animationsbild angezeigt werden muss.
Verwenden Sie die Eigenschaft Animation.Image, um das anzuzeigende Bild abzurufen.

23.4.5.3 Projekt

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

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

Artikel

Kapitel 23.4.5 Klasse MovieBox

Projekt 'MovieBox'

Download