i want to play wav file on my form.
ex : media file on windows -> C:\WINDOWS\MEDIA\TADA.WAV
how can i do this??
please help me

thanks. best regards :)

Recommended Answers

All 9 Replies

but i don't wanna to use media player or other component, cause it make me to add new component.

please help me Gurus...

if u didn't want to use any component, u can use api file to play it.

commented: thanks for direction +1
commented: :D +3

please give an example...i don't know how to use api...

try this following code :

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()
End Sub
commented: Really great code :) +1
commented: hard to see +1
commented: Good +1
commented: Running Good +1

thanks sawamura for the direction..

thanks for the example jx_man.
you're very helping, it was i looking for.

you're welcome friend.
Happy coding :)

commented: thanks again sir +1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Public Sub Playsound()

    Dim MyPlayer As New Media.SoundPlayer()

    MyPlayer.SoundLocation = "C:\WINDOWS\MEDIA\TADA.WAV"


End Sub

This is coded in vb.net 2010 :) Enjoy

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.