发布网友 发布时间:2022-04-25 04:51
共3个回答
热心网友 时间:2023-10-27 05:40
先定义~
Declare Function mciExecute Lib "winmm.dll" (ByVal commandstring As String) As Long
再引用~
dim temp as long
temp=mciexecute("play XXXXX")
'其中XXXXX为你歌所在路径。
不过这样不太方便,歌只能一直播。
可以向上面说的,加入MMControl控件。
热心网友 时间:2023-10-27 05:41
加入MMControl控件,
MMC.FileName = App.Path + "\water.mp3"
MMC.Command = "Open"
MMC.Command = "Play"
热心网友 时间:2023-10-27 05:41
就是添加文件 如果是要选择的话就在建个新的连接添加到里面就行了