vb伴唱的代码

来源：百度知道 编辑：UC知道 时间：2024/07/04 22:21:12
用的是window mediaplay 控件，如何用vb 实现

朋友,以下二种方法希望能帮你解决问题...方法一,用了WindowsMediaPlayer1控件.方法二,用了sndPlaySound API函数,你自己看喜欢用那个就用那个吧
'方法一
'需要控件：command1,WindowsMediaPlayer1
Private Sub Command1_Click()
WindowsMediaPlayer1.URL = "c:\123.mp3" '123.mp3是你的声音文件
WindowsMediaPlayer1.Controls.play
End Sub

'方法二
'播放声音 sndPlaySound
'模板
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
' 完

Public Sub PlaySound(strSound As String)
sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT
End Sub

'在窗体中输入以下代码
Private Sub Form_Load()<