国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

播放2首曲子的源代碼

這個(gè)例子好像只能播放WAV文件，將兩個(gè)WAV文件添加到資源文件里，分別命名為
101 和 102

添加兩個(gè)command控件！

然后在form窗體中添加如下代碼：
Option Explicit

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_ASYNC& = &H1
Private Const SND_NODEFAULT& = &H2
Private Const SND_RESOURCE& = &H40004
Dim hInst As Long
Dim sSoundName As String
Dim lFlags As Long
Dim lRet As Long

Private Sub Command1_Click() '播放第一首
sSoundName = "101"
lRet = PlaySound(sSoundName, hInst, lFlags)
End Sub

Private Sub Command2_Click() ‘播放第二首
sSoundName = "102"
lRet = PlaySound(sSoundName, hInst, lFlags)
End Sub

Private Sub Form_Load()
hInst = App.hInstance
lFlags = SND_RESOURCE + SND_ASYNC + SND_NODEFAULT
End Sub

代碼編輯完成，保存生成可執(zhí)行程序后，運(yùn)行點(diǎn)擊窗體中相應(yīng)的按鈕就能聽到聲音了！