如何用VB6.0在编程中插入音乐？（是在一个命令按钮之下的）
展开全部
Option Explicit
Private 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
Private Sub Command1_Click()
mciSendString "open d:\1.mp3 alias mc", 0, 0, 0 ‘’‘改成自己的音乐
mciSendString "play mc", 0, 0, 0
End Sub
Private 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
Private Sub Command1_Click()
mciSendString "open d:\1.mp3 alias mc", 0, 0, 0 ‘’‘改成自己的音乐
mciSendString "play mc", 0, 0, 0
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
"winmm.dll" Alias "mciSendStringA" (ByVal ‘’‘改成自己的音乐 mciSendString "play mc", 点按钮的时候让多媒体空间播放就性了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
加个多媒体控件 部件里自己找 隐藏 设好路径 点按钮的时候让多媒体空间播放就性了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
