请教VB语言的MMCONTROL控件问题

来源：百度知道 编辑：UC知道 时间：2024/06/05 11:03:44
最近在搞一个查询系统，想在系统里添加音乐，我把MMCONTROL控件拉到窗口之后，却不知道怎样在属性里调（汉化不完全），添加了一首WAV格式的歌曲，我记得VB支持WAV格式！运行数据库没音乐响起！在这里想问下大侠们是怎样实现背景音乐的！拜谢

MMControl.Play "文件名"
MMControl.Stop

MMControl.Visible = False
背景音乐

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim songname$, appdisk$, aa$
Private Sub Command1_Click()
Dim time As Integer
If Command1.Caption = "暂停" Then
If WindowsMediaPlayer1.URL = "" Then
mciSendString "pause " & songname, vbNullString, 0, 0 '暂停歌曲播放
Else
WindowsMediaPlayer1.Controls.pause
End If
Command1.Caption = "继续"
ElseIf Command1.Caption = "继续" Then
If WindowsMediaPlayer1.URL = "" Then
mciSendString "play " & songname & " repeat", vbNullString, 0, 0 '歌曲循环播放，去除 & " repeat&q