Source Code VB6 “memberikan SUARA”

Sahabat xp-dc mungkin pernah ingin memberikan suara atau music pada program yang sahabat buat melalui visual basic 6.0 namun sahabat tidak mengetahui langkah apa yang harus sahabat anda lakukan atau code apa yang harus dimasukkan dalam forum

Seperti ini hasilnya :

  

Untuk lebih lanjut ini codenya

========================================================

Private Declare Function PlaySound Lib "winmm.dll" Alias _

    "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, _

        ByVal dwFlags As Long) As Long

Public Function PlayWaveFile(strFileName As String, Optional blnAsync As Boolean) As Boolean

    Dim lngFlags As Long

    Const snd_sync = &H0

    Const snd_Async = &H1

    Const snd_Nodefault = &H2

    Const snd_Filename = &H20000

    lngFlags = snd_Nodefault Or snd_Filename Or snd_sync

    If blnAsync Then lngFlags = lngFlags Or snd_Async

    PlayWaveFile = PlaySound(strFileName, 0&, lngFlags)

End Function

Private Sub Command1_Click()

    retval = PlayWaveFile(App.Path & "\suara.wav", True)

End Sub

========================================================

>> Kalau anda ingin mengambil suara/music lain ganti saja code “suara.wav” diatas.

Atau untuk lebih mudahnya download saja projectnya disini

Thanks…