VB 4/6- und VBA-Forum - Beitragsübersicht -
ThemaVB6: Sound aus einer Resource abspielen
Von Lexx24
Datum 01. September 2017 um 20:02:45
Frage Hallo VB-Fans,

ein Problem hätte ich da noch.
Ich möchte einen Sound aus einer Resource abspielen.

Funktioniert wie folgt auch wunderbar, BeginPlaySound 11.
Mit „EndPlaySound“ kann ich auch den Sound vorzeitig beenden.

Nun zum Problem:
Ich bräuchte eine Mitteilung wann ein Sound sein Ende erreicht hat.

Option Explicit
#If Win32 Then
Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long
#Else
Declare Function sndPlaySound Lib "MMSYSTEM.DLL" (ByVal lpszSoundName As Any, ByVal wFlags As Integer) As Integer
#End If
Public Sub BeginPlaySound(ByVal ResourceId As Integer) ' Sound abspielen
Dim ret As Variant
#If Win32 Then
SoundBuffer = StrConv(LoadResData(ResourceId, "WAVESOUND"), vbUnicode)
#Else
SoundBuffer = LoadResData(ResourceId, "WAVESOUND")
#End If
ret = sndPlaySound(SoundBuffer, SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY)
DoEvents
End Sub
Public Sub EndPlaySound() ' Sound Ende
Dim ret As Variant
ret = sndPlaySound(0&, 0&)
End Sub

Liebe Grüße
Lexx24
Antwort:
Von Frank
Datum 06. September 2017 um 08:02:22
Antwort Hi

Hmm. Wenn Dir die Länge (Zeit) der Sounddatei bekannt ist, dann lasse einen Timer mitlaufen beim Starten der Wiedergabe der die Zeit mit zählt und wenn die Zeit vom Timer => der
Länge der Sounddatei ist, dann ist mit großer Wahrscheinlichkeit das Soundfile fertig mit abspielen.

Mfg Frank
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ]
Antworten
VB6: Sound aus einer Resource abspielen - Lexx24 01. September 2017 um 20:02:45
Re: Sound aus einer Resource abspielen - Frank 06. September 2017 um 08:02:22

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  Visual Basic 6 (*.exe)
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB 4/6- und VBA-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | .Net-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015