Gruppe
Dialog
Problem
In einer UserForm soll eine AVI-Datei abgespielt werden.
ClassModule: frmAVI
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim sFile As String
sFile = ThisWorkbook.Path & "\fishtank.avi"
If Dir(sFile) = "" Then
Beep
MsgBox sFile & " wurde nicht gefunden!"
Else
MediaPlayer1.Filename = sFile
MediaPlayer1.AutoStart = True
End If
End Sub
StandardModule: Modul1
Sub CallForm()
frmAVI.Show
End Sub