Musik abspielen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Musik abspielen
von: Marco
Geschrieben am: 10.04.2005 09:18:44
Hallo
ich möchte im Userform via Option-Button
ein paar Lieder in ein Dauerschleife abspielen lassen.
Vielen Dank für die Hilfe
Marco

Bild

Betrifft: AW: Musik abspielen
von: Nepumuk
Geschrieben am: 10.04.2005 09:54:54
Hallo Marco,
ein Beispielcode:


Option Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As StringByVal uFlags As LongAs Long
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Private Const SND_ASYNC = &H1
Private Const SND_LOOP = &H8
Private bolHaveSoundcard As Boolean
Private Sub CommandButton1_Click()
    Call prcPlay("C:\Programme\ahead\Nero\Beeth5th.wav")
End Sub
Private Sub CommandButton2_Click()
    Call prcPlay("C:\Programme\ahead\Nero\Beeth9th.wav")
End Sub
Private Sub CommandButton3_Click()
    sndPlaySound "NULL", SND_ASYNC
End Sub
Private Sub CommandButton4_Click()
    Unload Me
End Sub
Private Sub UserForm_Activate()
    bolHaveSoundcard = waveOutGetNumDevs > 0
End Sub
Private Sub UserForm_Terminate()
    sndPlaySound "NULL", SND_ASYNC
End Sub
Private Sub prcPlay(strFilename As String)
    If bolHaveSoundcard Then sndPlaySound strFilename, SND_ASYNC Or SND_LOOP
End Sub


Gruß
Nepumuk
Bild

Betrifft: AW: Musik abspielen
von: Marco
Geschrieben am: 10.04.2005 12:28:57
Hallo Nepumuk
Vielen Dank.
Leider funktioniert es noch nicht so, wie ich mir das vorstelle,
da nach Drücken eines der Button,die den Sound abspielen sollten,
sich ein Clickton ständig wiederholt, jedoch keine Musik kommt!?
Marco
Bild

Betrifft: AW: Musik abspielen
von: Ramses
Geschrieben am: 10.04.2005 12:42:08
Hallo
hast du den Pfad zu deiner Musikdatei angepasst ?
Gruss Rainer
Bild

Betrifft: AW: Musik abspielen
von: Marco
Geschrieben am: 10.04.2005 12:47:14
ja klar!?
Bild

Betrifft: AW: Musik abspielen
von: Ramses
Geschrieben am: 10.04.2005 12:50:32
Hallo
Bist du sicher ?
Existiert die Datei auch ?
Wenn nicht, wird der Standardsound, nämlich das "Clicken" abgespielt
Der Code funktioniert bei mir einwandfrei.
Gruss Rainer
Bild

Betrifft: AW: Musik abspielen
von: Marco
Geschrieben am: 10.04.2005 12:59:36
Hallo Rainer
Du hast recht, der Code funktioniert.
Ich habe es nun mal mit einer Standartmusikdatei
von Nero versucht und da funktionierts,
jedoch, wenn ich es mit meiner Musikdatei versuche,
die auch um einiges größer ist (600MB) geht´s nicht!?
Gruss Marco
Bild

Betrifft: Noch offen...
von: Ramses
Geschrieben am: 10.04.2005 13:18:22
Hallo
Das funktioniert mit allen WAV-Dateien.
Wie man da MIDI oder MP3 reinkriegt zum abspielen weiss ich nicht.
Vermutlich muss man dort über eine Objekt- oder Sheell Zuweisung den Media-Player öffnen.
Hier mal ein Beispiel
https://www.herber.de/forum/index.htm?https://www.herber.de/forum/archiv/128to132/t128347.htm
Bei 600 MB ist eine Wiederholung wohl nicht vonnöten ;-)
Keine Ahnung was du für Musikdateien verwendest,... aber 600 MB für eine Datei erscheint mir nun doch etwas übertrieben ;-)
Welcher Dateityp ist das ?

Gruss Rainer
Bild

Betrifft: AW: Noch offen...
von: Marco
Geschrieben am: 10.04.2005 17:02:30
Hallo
Es funktioniert ja jetzt,
keine Ahnung, warum es mit der grossen Wave-Datei nicht
funktioniert hat. Ursprünglich war es als MP3 abgespeichert
und etwa 60 MB gross, natürlich waren es meherere aneinandergehängte
Lieder, deshalb so gross!
Danke nochmals für die Hilfe
Gruss Marco
Bild

Betrifft: Erledigt. o.T.
von: Ramses
Geschrieben am: 10.04.2005 17:23:00
...
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Musik abspielen"