先用VB6資源編輯器建立了一個(gè)包含WAV文件的資源文件，然后再窗體的按鈕的click事件上寫(xiě)入以下代碼，按F5出現(xiàn)運(yùn)行出現(xiàn)“編譯錯(cuò)誤:在end sub,end End function或end屬性后面只能出現(xiàn)注釋?zhuān)　?。?qǐng)講解為盼。按鈕click事件代碼如下：



Private Sub Command1_Click()

Option Explicit

Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long

Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long

Private Const SND_ASYNC = &H1&

Private Const SND_MEMORY = &H4&

'Private Sub Command1_Click()

Dim bArr() As Byte

bArr = LoadResData(101, "wave")

sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY

End Sub



End Sub