 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
VB Forum / General 2 / December 2007Using Multimedia with VB 6.0
Hi: I want to add a *.wav file to my program so that when the operator makes a menu selection, the *.wav file automatically plays. I'm using a MDI form as my main form and the multimedia form cannot be placed on it (so it seems). I can put the multimedia control on another form and make that form invisible, but is there a way to play the wave file automatically? Thanks JP > I want to add a *.wav file to my program so that when the operator makes a > menu selection, the *.wav file automatically plays. I'm using a MDI form > as > my main form and the multimedia form cannot be placed on it (so it seems). > I can put the multimedia control on another form and make that form > invisible, but is there a way to play the wave file automatically? You don't need a separate form, just add a BAS Module to your project (click Project/AddModule from VB's menu bar) and copy/paste this code into its code window... Public Declare Function sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Public Const SND_SYNC = &H0 Public Const SND_ASYNC = &H1 Public Const SND_NODEFAULT = &H2 Now, put this statement in your menu items Click event... sndPlaySound "c:\windows\media\chimes.wav", SND_ASYNC The SND_ASYNC constant plays the sound while the program is executing and SND_SYNC make the program wait for the sound to finish. SND_NODEFAULT stops the error sound when the file is not valid. You would start a WAV file playing by executing this code substituting the WAV filename and its path in place of the chimes.wav I show as an example. If you find it necessary to stop the sound from playing before it would normally end, you can use this statement to do that... sndPlaySound "", SND_NODEFAULT Rick |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2009 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.