Musik abspielen

Forumthread: Musik abspielen

Musik abspielen

10.04.2005 11:18:44

Marco

Hallo
ich möchte im Userform via Option-Button
ein paar Lieder in ein Dauerschleife abspielen lassen.
Vielen Dank für die Hilfe
Marco

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Musik abspielen

10.04.2005 11:54:54

Nepumuk
AW: Musik abspielen

10.04.2005 14:28:57

Marco
AW: Musik abspielen

10.04.2005 14:42:08

Ramses
AW: Musik abspielen

10.04.2005 14:47:14

Marco
AW: Musik abspielen

10.04.2005 14:50:32

Ramses
AW: Musik abspielen

10.04.2005 14:59:36

Marco
Noch offen...

10.04.2005 15:18:22

Ramses
AW: Noch offen...

10.04.2005 19:02:30

Marco
Erledigt. o.T.

10.04.2005 19:23:00

Ramses

AW: Musik abspielen

10.04.2005 11:54:54

Nepumuk

Hallo Marco,
ein Beispielcode:

Option Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As 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

AW: Musik abspielen

10.04.2005 14:28:57

Marco

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

AW: Musik abspielen

10.04.2005 14:42:08

Ramses

Hallo
hast du den Pfad zu deiner Musikdatei angepasst ?
Gruss Rainer

AW: Musik abspielen

10.04.2005 14:47:14

Marco

ja klar!?

AW: Musik abspielen

10.04.2005 14:50:32

Ramses

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

AW: Musik abspielen

10.04.2005 14:59:36

Marco

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

Noch offen...

10.04.2005 15:18:22

Ramses

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

AW: Noch offen...

10.04.2005 19:02:30

Marco

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

Erledigt. o.T.

10.04.2005 19:23:00

Ramses

...

Forumthread: Musik abspielen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread