Microsoft Excel

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