Make your own free website on
Working With Resource File

Lesson 2
Tutorials - Page 1 - Page 2 - Page 3 - Page 4 - Page 5

Play Wav file that found in Resource File
This example will show you how to play wav file that found in Resource File, using the LoadDataIntoFile function.

Add 1 Wav File to your resource file, and set the Wav file ID to be 101.

Add the following code to your form:

'the API declaration that play Wav file
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
     (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

'the LoadDataIntoFile function
Public Sub LoadDataIntoFile(DataName As Integer, FileName As String)
    Dim myArray() As Byte
myFile As Long
Dir(FileName) = "" Then
        myArray = LoadResData(DataName, "CUSTOM")
        myFile = FreeFile
        Open FileName For Binary Access Write As #myFile
        Put #myFile, , myArray
        Close #myFile
    End If
End Sub

Private Sub Form_Load()
'copy the Wav file to c:\tmpfile.$$$
    LoadDataIntoFile 101, "c:\tmpfile.$$$"
'Play the Wav file using the sndPlaySound API function
    sndPlaySound "c:\tmpfile.$$$", 1
End Sub

Run the program. The wav file will be played.

Back  Forward