Website Design United States, Website Design California, Website Designing United States, Website Designing California

Wav Sound Player Class - Visual Basic 6

Muhammad Saqib

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



© 2008-2009