VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Midi-Datei abspielen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und Extern