Adding a sound file to the system? "Welcome"?

[GoldenFireTiger]

Hi, is it possible to add the automatic playing of a welcome sound file to an autoexec macro? IThe macro presently opens the password form, and on entry of the correct password, opens the main menu page. Would it be possible to play a welcome sound when the main menu form is displayed? If so, can anyone reccommend where I could get hold of one? Thanks!

 

[PHV]

On a XP box, in VBA:
Set vo = CreateObject("SAPI.SpVoice")
vo.Speak "welcomme"
Set vo = Nothing

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[obli]

I forgot where I found it but this is another method I have used in the past to play a sound. Just set an event such as a form's OnOpen to:

=PlaySound("C:\winnt\chimes.wav")

Paste the declaration and function into a module, and save:


Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
(ByVal filename As String, ByVal snd_async As Long) As Long


Function PlaySound(sWavFile As String)
' Purpose: Plays a sound.
' Argument: the full path and file name.

If apisndPlaySound(sWavFile, 1) = 0 Then
MsgBox "The Sound Did Not Play!"
End If
End Function

 

[GoldenFireTiger]

PHV and OBLI.

Thank you for your help, but I am confused as to how to go about implementing this code... How do I use these codes to get a welcome sound?

 

[obli]

GoldenFireTiger,

Lacking any sophisticated tools or knowledge myself, if I want to use a particular word I go to an on-line dictionary such as

http://www.m-w.com/

that has an audio pronunciation feature, type in the word I want, click the audio icon to hear the word and click the link that allows you to listen with your default audio player. When the sound is being played on my Real Audio player I make note of the file name,find it on my PC, rename it to whatever I want and substitute the path for the one in the example.

 

[GoldenFireTiger]

Thanks for that, I will check out the website. When I find one, do I ionly need to alter the first line of the code to include the name of the file?

 

[obli]

Alter the path in =PlaySound("C:\winnt\chimes.wav[/color")to point to where you actually saved the wav file.

 

[obli]

oops..

Alter the path in =PlaySound("C:\winnt\chimes.wav")to point to where you actually saved the wav file.