AniGif-Control

Programmierung AniGif-Control, mit Beispiel AniGIF1.Play
AniGif über "Werkzeuge - Komponenten" hinzufügen (Animation GIF OLE Control).
Das AniGif-Control auf einem Formular platzieren und dem AniGif über Eigenschaften "GIF" ein Bild zuweisen.
Private Sub cmdPlay_Click()
AniGIF1.Play
End Sub
Private Sub cmdStop_Click()
AniGIF1.Stop
End Sub
Private Sub Dir1_Change() Linkes AniGif-Bild ist auf Formular platziert.
File1 = Dir1 Rechtes AniGif-Bild ist das sich bewegende Control.
End Sub
Private Sub Drive1_Change()
Dir1 = Drive1
End Sub
Private Sub File1_Click()
Dim s$
s = File1.Path
If Right$(s, 1) = "\" Then
s = s & File1
Else
s = s & "\" & File1
End If
If Not AniGIF1.ReadGIF(s) Then
MsgBox "Read Wrong", 16
End If
lblFrame = AniGIF1.Frames & " Frames"
End Sub
Private Sub Form_Load()
lblFrame = AniGIF1.Frames & " Frames"
End Sub

Mehr Tipps: PictureBox ausdrucken

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt