Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Midi-Datei abspielen
Gruppe
Extern
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