标题用VB实现光驱的出入盘操作

　　通常光驱盘片的退出和装入是采用“手动”方式，即按光驱面板上的Eject按钮，称为硬操作。如果用软件实现上述操作，则称为软操作。
　　下面介绍一种用Visual BASIC 3.0 for Windows专业版中的MCI.VBX多媒体控件来实现的软操作方法。
　　首先必须确定你的Windows系统中，SYSTEM.INI文件[MCI]小节中有CDAudio=Mcicda.drv，否则应增加此驱动程序。
　　接下来就是在Visual BASIC中使用[ADD File]将Windows\SYSTEM目录中的MCI.VBX加至ToolBox里。用鼠标双击ToolBox中的媒体控制项或拖放至Form上，调整其大小，并显示出九个按钮，从左至右分别是Prev、Next、Play、Pause、Back、Step、Stop、Record及Eject。我们只保留Eject按钮，在代码中将其它按钮的Visible属性设定为False，即运行时不可见。
　　程序代码如下：
　　Sub Form-Load()
　　MMControl1.DeviceType="CDAudio"　
　　’指定媒体类型　
　　MMControl1.Command="Open"　　
　　’打开媒体设备　
　　MMControl1.PrevVisible=False
　　MMControl1.NextVisible=False
　　MMControl1.PlayVisible=False
　　MMControl1.BackVisible=False
　　MMControl1.StepVisible=False
　　MMControl1.StopVisible=False
　　MMControl1.PauseVisible=False
　　MMControl1.RecordVisible=False
　　End Sub
　　Sub Form-Unload(Cancel As Integer)
　　MMControl1.Command="Close"　 ’关闭媒体设备
　　End Sub
　　程序中MMControl1是系统内定的媒体控制对象名称，用户可以根据具体情况自己更改。
　　这时你可以调试并调整Form和控件的大小，调试正常后，可设置Form对象的标题、颜色、图标等。然后编译成.EXE文件，即可在Windows下运行。
　　本方法在486DX2/66兼容机上(配CD-IS201光驱)，Windows 3.2中文版和Windows 3.1西文版下运行通过。