The code below shows you how to play a WAV sound file (with the extension wav)
Public Declare Function playa Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Sub PlayWav(sFile As String)
If Dir(sFile$) <> "" Then Call playa(sFile,
SND_FLAG)
End Sub
So, to play a file using this code, enter the following:
'// plays C:\west.wav
Call PlayWav("C:\west.wav")
James first started this website when learning Visual Basic back in 1999 whilst studying his GCSEs. The site grew steadily over the years while being run as a hobby - to a regular monthly audience ...
Our guest this week is Eric Lippert – language architect extraordinaire and famous for all his work at Microsoft in developing their languages Eric joined Microsoft right out of college and was originally working on VB It’s time for everyone’s favorite game: Name the Worst Feature of that Microso.
Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!
We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.
Comments