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"