Vba til Wav

Option Explicit

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszSoundName As String, _
ByVal hMod As Long, ByVal uFlags As Long) As Long

'  flag values for uFlags parameter
Public Const SND_SYNC = &H0            ' Play synchronously (default)
Public Const SND_ASYNC = &H1            ' Play asynchronously
Public Const SND_NODEFAULT = &H2        ' Don't play default sound if sound not found
Public Const SND_MEMORY = &H4          ' lpszSoundName points to a sound in memory

Public Const SND_LOOP = &H8            ' loop the sound until next sndPlaySound
Public Const SND_NOSTOP = &H10          ' don't stop any currently playing sound
Public Const SND_NOWAIT = &H2000        ' don't wait if the driver is busy

Public Const SND_ALIAS = &H10000        ' name is a WIN.INI [sounds] entry
Public Const SND_FILENAME = &H20000    ' name is a file name
Public Const SND_RESOURCE = &H40004    ' name is a resource name or atom
Public Const SND_ALIAS_ID = &H110000    ' name is a WIN.INI [sounds] entry identifier

Sub ping()
  PlaySound "C:\windows\MEDIA\ding.wav", 0&, SND_SYNC
End Sub

Niels

Til Niels.
Koden er afprøvet og kører perfekt, og jeg er meget tilfreds og en glad mand, jeg var ved at være bange for der ikke var nogle der ville svare.
VH Henrik

Henrik

Et eller andet sted har jeg noget kode, der finder indstillingerne i windows registry og afspiller de lydfiler, der er angivet under eks. kritisk stop, new mail (kontrolpanel -> lyde).
Kan desværre ikke finde dem :(

Mht. til de manglende svar skyldes det nok at katagorien mest er til databaser - prøv i katagorien VB programering, når karakteren i spørgsmålet er 'ren' VBA.

mvh Niels

Til Niels.
Det vil jeg meget gerne havde. Jeg roder kun med vba. Hvis du vil sende det er min email adresse: oz1bua@wanadoo.dk
På forhånd tak.
VH Henrik