![]() |
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
|
|
|
|
|
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: [ 2735 ]
|
|
|