Tipp 0054 AVI-Animationen abspielen
Autor/Einsender:
Datum:
  Detlev Schubert
07.05.2001
Entwicklungsumgebung:   VB 5
In diesem Beispiel wird anschaulich gezeigt, wie es mit wenigen Handgriffen möglich ist, mit dem Animationsobjekt von VB Kopier- und/oder Sortiervorgänge sehr einfach zu animieren.
 
Option Explicit

Private Sub Form_Load()
  Combo1.AddItem "Kopieren"
  Combo1.AddItem "Suchen"
  Combo1.ListIndex = 0
End Sub

Private Sub Combo1_Click()
  If Combo1.ListIndex = 1 Then
    Animation1.Open App.Path & "\search.avi"
  Else
    Animation1.Open App.Path & "\filecopy.avi"
  End If
  Command1(1).Caption = "&Start"
End Sub

Private Sub Command1_Click(index As Integer)
  Select Case index
    Case 1
      If Command1(1).Caption = "&Start" Then
         Animation1.Play
         Command1(1).Caption = "St&op"
      Else
         Animation1.Stop
         Command1(1).Caption = "&Start"
      End If
    Case Else
      Unload Me
      End
  End Select
End Sub
 
Weitere Links zum Thema
AVI-& MPEG-Dateien ohne Control abspielen

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (10,5 kB) Downloads bisher: [ 2668 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Mittwoch, 31. August 2011