Memainkan file WAV dengan Windows API di Visual Basic 6

Menanggapi permintaan dari salah satu tamu di blog saya, tentang bagaimana memainkan file dengan ekstensi WAV ( biasa digunakan oleh Windows untuk suara pada event – eventnya) di Visual Basic 6. Langsung saja ke potongan source codenya.
Kita akan menggunakan fungsi Windows API sndPlaySound dan kita deklarasikan seperti berikut ini:

 

Private Declare Function sndPlaySound Lib "winmm.dll" Alias

"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags

 As Long) As Long

Private Const SND_ASYNC = &H1

Setelah itu kita gunakan dalam event Form_Load()

Private Sub Form_Load()

  Call sndPlaySound("D:\Sample\Splash.wav", SND_ASYNC)

End Sub

 

 Anda bisa mengganti lokasi file WAV sesuai dengan kebutuhan anda.