16(1).txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

Visual Basic影音控制

　　播放背景音乐 

　　声明： 

　　 Declare Function MCISendString＆ Lib ″MMSYSTEM″ (ByVal LPSTRCOMMAND＄, ByVal LPSTRRETURNSTR As Any, ByVal WRETURNLEN％, ByVal HCALLBACK％) 

　　开始播放： 

　　 R％ = MCISendString＆(″OPEN EXAMPLE.MID TYPE SEQUENCER ALIAS NN″, 0＆, 0, 0) 

　　 R％ = MCISendString＆(″PLAY NN FROM 0″, 0＆, 0, 0) 

　　 R％ = MCISendString＆(″CLOSE ANIMATION″, 0＆, 0, 0) 

　　停止： 

　　R％ = MCISendString＆(″OPEN EXAMPLE.MID TYPE SEQUENCER ALIAS NN″, 0＆, 0, 0) 

　　 R％ = MCISendString＆(″STOP NN″, 0＆, 0, 0) 

　　R％ = MCISendString＆(″CLOSE ANIMATION″, 0＆, 0, 0) 

　　其中EXAMPLE.MID 为播放的文件，NN为自定义名称标志。 

　　使XMPlayer自动播放VCD 

　　XingMPEG Player是软解压播放VCD的优秀软件，但调入XM—player、进入播放状态、隐藏面板等一系列操作，需要多次点击鼠标，较为麻烦。下面用VB程序首先检查光驱是否准备好或光驱中是否为 VCD光碟，然后利用VB模拟XingMPEG的键盘动作，通过短短的几行程序，实现 VCD光盘的自动播放。 

　　1.进入VB环境，设置窗体Form1的Visible属性为 False，然后在窗体上建立一个驱动器列表框Drivel，亦设其Visible属性为False，以使窗体和列表框在程序调入时不被显示出来。其它属性均取默认值。 

　　2.双击窗体，编写过程代码 

　　 Private Sub Form—Load（） 

　　 On Error GoTo finderr ′检查光驱是否准备好或光驱中是否为VCD光碟 

　　 startline： 

　　 drvnmb=Drive1