wav sound player class - Visual Basic 6

Muhammad Saqib

http://www.mycplus.com/

This is a visual basic 6.0 wav sound player class that plays any selected sound file in .wav format. It has the filename property to select the file and play property to play the sound file.
...

Option Explicit 
Private mfilename As String 
Private mflags As Long 
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long 


Public Property Get filename() As String 
     filename = mfilename 
End Property 

Public Property Let filename(ByVal vnewvalue As String) 
     mfilename = vnewvalue 
End Property 

Public Property Get flags() As Long 
     flags = mflags 
End Property 

Public Property Let flags(ByVal vnewvalue As Long) 
     mflags = vnewvalue 
End Property 

Public Sub play() 
     Dim rc As Long 
     rc = sndPlaySound(mfilename, mflags) 
End Sub