| 本月文章推荐 |
用API函数Mcisendstring直接播放背景音乐发表日期：2006-2-27
|
|
源代码：
PrivateSubCommand1_Click() Dimback back=mciSendString&("CLOSENN",0,0,0) EndSub PrivateSubCommand2_Click() Dimback back=mciSendString&("OPEN" App.Path "\TEST.mid" "TYPESEQUENCERALIASNN",0&,0,0) back=mciSendString&("PLAYNNFROM0",0&,0,0) R=mciSendString&("CLOSEANIMATION",0&,0,0) EndSub PrivateSubForm_Load() Dimback back=mciSendString&("OPEN" App.Path "\TEST.mid" "TYPEWaveAudioALIASNN",0&,0,0) back=mciSendString&("PLAYNNFROM0",0&,0,0) R=mciSendString&("CLOSEANIMATION",0&,0,0) EndSub-> |
| 上一篇：VB中播放三维动画编程一例
人气:3070 下一篇：用VB实现屏幕滚屏保护效果 人气:3806 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
