Gruppe
Dialog
Problem
Wie kann ich eine Midi-Datei, deren Pfad und Name in Zelle A1 stehen, über ein UserForm-Steuerelement abspielen lassen?
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