| 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 | |
| |
zurück