playing a .wav file in a VB6.0 program

[Capodice]

I am creating a splashscreen for my program and all i want to do is play a .wav file when the splashscreen comes up. I don't want the user to have to click on a button or do anything at all, I just want the sound to play all by itself.
The path for the .wav file is:
c:\windows\media\explode.wav

I am totally a beginner and I am not getting any help from the book I have.
Please help me...
James

[TheProgrammingZone]

The easist way to play sound is to use the PlaySound api call.
Heres the example from api Guide
[vb]Private Const SND_APPLICATION = &H80         '  look for application specific association
Private Const SND_ALIAS = &H10000     '  name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000    '  name is a WIN.INI [sounds] entry identifier
Private Const SND_ASYNC = &H1         '  play asynchronously
Private Const SND_FILENAME = &H20000     '  name is a file name
Private Const SND_LOOP = &H8         '  loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4         '  lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2         '  silence not default, if sound not found
Private Const SND_NOSTOP = &H10        '  don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000      '  don't wait if the driver is busy
Private Const SND_PURGE = &H40               '  purge non-static events for task
Private Const SND_RESOURCE = &H40004     '  name is a resource name or atom
Private Const SND_SYNC = &H0         '  play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub[/vb]

[AyoiMalaysian]

can someone elaborate more of this code??

i don understand... is that easy to code to play a music??

[Qex]

can someone elaborate more of this code??

i don understand... is that easy to code to play a music??

Yes, it is easy. Heres what you do.

Code:

Private Sub Form_Load()
   'KPD-Team 2000
   'URL: http://www.allapi.net/
   'E-Mail: KPDTeam@Allapi.net

   'Change the below C:\WINDOWS\MEDIA\TADA.WAV to the location of
   'the wav file you are wishing to use.
   PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

If you want to play a sound when a user clicks a command button you will do this: (note: We will use Command1 as the control name.)

Code:

Private Sub Command1_Click()
Call PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

You might have to change the Function to Public.

Also you can call the Command1_Click anywhere on the form.

Code:

Dim bPlay as Boolean
'You don't need End If if the If Statment is 1 line
If bPlay = True Then Call Command1_Click

Hope this helps you understand more.

Qex