Microsoft Excel

Herbers Excel/VBA-Archiv

Wav Datei während der Wiedergabe beenden | Herbers Excel-Forum


Betrifft: Wav Datei während der Wiedergabe beenden von: Peter
Geschrieben am: 18.11.2009 02:01:18

Hallo,
wie kann während der Wiedergabe einer WAV- Datei, diese vorzeitig
per VBA beendet werden?

( Ich habe es nur dadurch hinbekommen, dass Excel geschlossen wurde. )

https://www.herber.de/bbs/user/65993.xls

Danke im voraus
Peter

  

Betrifft: AW: Wav Datei während der Wiedergabe beenden von: Tino
Geschrieben am: 18.11.2009 08:04:34

Hallo,
versuche mal und übergib an sndPlaySound32 einen NullString.

Private Sub CmdEndSong_Click()
 sndPlaySound32 vbNullString, 1
End Sub
Gruß Tino


  

Betrifft: AW: Wav Datei während der Wiedergabe beenden von: Nepumuk
Geschrieben am: 18.11.2009 08:10:14

Hallo,

so:

Option Explicit

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" ( _
    ByVal lpszSoundName As String, _
    ByVal uFlags As Long) As Long

Private Const SND_ASYNC As Long = &H1

Public Sub StopMusic()
    Call sndPlaySound("NULL", SND_ASYNC)
End Sub

Gruß
Nepumuk


  

Betrifft: AW: Vielen Dank von: Peter
Geschrieben am: 18.11.2009 10:36:11

Ich bedanke mich ganz herzlich.
Jetzt konnte ich die Sub nach meinen Vorstellungen umbauen
und es funktioniert wie ich es mir vorgestellt habe.

Peter


Beiträge aus den Excel-Beispielen zum Thema "Wav Datei während der Wiedergabe beenden"