|
在“我的电脑”中右击光驱图标，单击“弹出”项，便弹出光驱，比手工方式开/关光驱方便、快捷，可它只能实现弹出而不能关闭，如何弥补此项不足呢？为此，笔者巧用VB 6．0提供的多媒体控件成功地设计了一个实用的光驱“软开关”程序：运行程序，单击“光驱弹出”按钮便能够使光驱弹出，“光驱弹出”钮也变为“入盘” 状态、单击“入盘”，光驱便关闭，“入盘”钮又变为“光驱弹出”状态，光驱的开、关仅需点击鼠标即可！
现将光驱“软开关”程序设计的过程列举如下：
1．新建工程及窗体Form1，单击“工程”菜单中“部件”项，选中“Microsoft Multimedia Control6．0”项，单击“应用”，将控件MMControl添加在工具条中。
2．将MMControl1控件、命令控件Command1、Command2加入Form1中，设置MControl1的Visible属性为Flase、设置Command1、Command2的Caption属性分别为： “光驱弹出”、“退出程序”。
3．列程序清单如下： Private Sub Command1＿Click?? MMControl1．DeviceType ＝ ″CDAudio″ MMControl1．Command ＝ ″Open″ MMControl1．Command ＝ ″Play″ MMControl1．Command ＝ ″Eject″ MMControl1．Command ＝ ″Close″ If Command1．Caption ＝ ″光驱弹出″ Then Command1．Caption ＝ ″入盘″ Else Command1．Caption ＝ ″光驱弹出″ End If End Sub Private Sub Command2＿Click?? Unload Me End Sub Private Sub Form＿Initialize?? Command1．Caption ＝ ″光驱弹出″ End Sub
4．将该工程编译成可独立执行文件，然后单击“我的电脑→查看→文件夹选项，选择“文件类型”，在“已注册的文件类型”框选中“文件夹→编辑→新建”，在“操作”框输入“On/OffCDRom”，在“用于完成操作的应用程序”框输入或使用浏览按钮选择前面所生成的可执行文件的路径，单击“确定”按钮完成加入操作。 现在右击任意文件夹，弹出的快捷菜单中就多了一个“弹出/ 关闭光驱”的功能项：“On/OffCDRom”。（范明之 魏小红）
| 
