Topic: Wav File Playing...

[Swift]

try inserting this in a new module in the vbaide

Code: [Select]

Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Const SND_ASYNC = &H1         '  play asynchronously
Private Const SND_FILENAME = &H20000  '  file name
Private Const NO_ERROR = 0

Public Sub MakeANoise()
PlaySound "c:\windows\media\ding", ByVal 0&, SND_FILENAME Or SND_ASYNC

End Sub



[Dommy2Hotty]

That works!  Thanks...now to put that with the Erase reactor...after work...

[Andrea]

if you try to use simple beep sound..

you can use  (acet-sys-beep Yoursoundhere)

or

(startapp "c:/windows/system32/sndrec32.exe /play /close"  "C:/windows/media/tada.wav")

but this will show the soundrecorder...
maybe it have a switch / to play background...but i don't know..

[MP]

One more time ... ACET* = Evil.

If you don't want to roll your own functions use DOSLIB's (dos_wav filename) function, but please don't use the ACET* crap, you're just begging for problems down the road and your users are the ones that will pay.

[deegeecees]

Code: [Select]

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
 If (VBA.UCase$(CommandName) = "ERASE") Then
 Call PlayItSam
 End If
End Sub

This will not work the way it should, so please disregard.

[Keith™]

See this thread ....
http://www.theswamp.org/forum/index.php?topic=993.0

[MP]

lol, this thread reminds me that I used to have the sound of a toilet flush everytime members of Microstation / PDS group changed projects (I had written a project management utility to map the network, modify the registry etc). I didn't keep the code active very long but it was funny while it was enabled.

 

[Andrea]

One more time ... ACET* = Evil.

If you don't want to roll your own functions use DOSLIB's (dos_wav filename) function, but please don't use the ACET* crap, you're just begging for problems down the road and your users are the ones that will pay.

MP could you explain exactly why ACET* is crap ?
I'm new with it...and for my own...seem to work.