level 9
如果可以要怎么添加呢?,还有请问一下你的小尾巴是怎么设置的?
2015年02月13日 01点02分
1
level 12
添加一个OLE【MMControl多媒体】控件。
PROCEDURE 播放声音()
cWJ = "音乐表中曲目(路径和文件名)"
If .NOT.File("&cWJ") Then
cTS = "没有发现音乐文件【" + cWJ + "】。"
MsgBox cTS, 0 + 64, "系统提示"
Else
* 关闭正在播放的音乐
ThisForm.MMControl1.Command = "Close"
With ThisForm.MMControl1
.Visible = True && MMControl1 可见
.FileName = cWJ && 指定声音文件
.Command = "Open" && 打开多媒体文件
.Command = "Play" && 播放多媒体文件
End With
End If
RETURN
2015年08月06日 16点08分
7