Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 11:08:47
Text in Spalten zählen
16.04.2024 10:55:21
Welche Angaben sind Zeile- und Spaltenhöhe
16.04.2024 10:31:56
Bilder in Userform per VBA aus Sharepoint Ordner anzeigen
16.04.2024 10:29:44
Mittelwert für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Musik abspielen

Musik abspielen
10.04.2005 09: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
Anzeige
AW: Musik abspielen
10.04.2005 09: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
Anzeige
AW: Musik abspielen
10.04.2005 12: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 12:42:08
Ramses
Hallo
hast du den Pfad zu deiner Musikdatei angepasst ?
Gruss Rainer
AW: Musik abspielen
10.04.2005 12:47:14
Marco
ja klar!?
AW: Musik abspielen
10.04.2005 12: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 12: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
Anzeige
Noch offen...
10.04.2005 13: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
Anzeige
AW: Noch offen...
10.04.2005 17: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 17:23:00
Ramses
...

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige