以下是引用TonyDeng在2015-5-15 13:09:43的发言:
要做好你的程序,必须慢慢摸熟摸透这个控件,我也是第一次用,测试是结果是证明可行性,无非是指路。我看你想我代劳的节奏。
教的再详细一点好不好,一步步教嘛,你就授人以渔嘛,拜托拜托,我现在是真的要去上课了,你耐心一点拜托拜托,一步步教,我回来等你。谢谢谢谢
要做好你的程序,必须慢慢摸熟摸透这个控件,我也是第一次用,测试是结果是证明可行性,无非是指路。我看你想我代劳的节奏。
* * 调用 API 播放声音文件 * MPEG,AVI,WAV,MP3 * SET DEFAULT TO ADDBS(JUSTPATH(SYS(16))) DECLARE LONG mciSendString IN Winmm STRING, LONG, LONG, LONG 播放("C:\TEMP\Test\抹去泪水(韩宝仪).mp3") *播放("C:\TEMP\Test\迷魂香(翁立友).wav") MESSAGEBOX("暂停播放") 暂停播放() MESSAGEBOX("继续播放") 继续播放() MESSAGEBOX("停止播放") 停止播放() MESSAGEBOX("关闭播放") 关闭播放() CLEAR ALL RETURN FUNCTION 播放(sz音乐文件名) IF FILE(sz音乐文件名) mciSendString("open " + sz音乐文件名 + " alias MyPlay", 0, 0, 0) mciSendString("play MyPlay", 0, 0, 0) ELSE MESSAGEBOX(sz音乐文件名 + "...文件不存在") ENDIF ENDFUNC FUNCTION 暂停播放() mciSendString("pause MyPlay", 0, 0, 0) ENDFUNC FUNCTION 继续播放() mciSendString("play MyPlay", 0, 0, 0) ENDFUNC FUNCTION 停止播放() mciSendString("stop MyPlay", 0, 0, 0) ENDFUNC FUNCTION 关闭播放() mciSendString("close MyPlay", 0, 0, 0) ENDFUNC