Gruppe
Dialog
Bereich
Extern
Thema
Midi-Datei abspielen
Problem
Wie kann ich eine Midi-Datei, deren Pfad und Name in Zelle A1 stehen, über ein UserForm-Steuerelement abspielen lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
ClassModule: Tabelle1
Private Sub cmdDialogAufruf_Click()
frmMidi.Show
End Sub
StandardModule: basMain
Sub CallForm()
frmMidi.Show
End Sub
ClassModule: frmMidi
Private Sub cmdWeiter_Click()
mdp.Stop
Unload Me
End Sub
Private Sub UserForm_Initialize()
mdp.Filename = Range("A1").Value
mdp.AutoStart = True
End Sub