用VB实现光驱的出入盘操作 朱海 1997-01-01 　　通常光驱盘片的退出和装入是采用“手动”方式，即按光驱面板上的Ｅｊｅｃｔ按钮，称为硬操作。如果用软件实现上述操作，则称为软操作。 　　下面介绍一种用Ｖｉｓｕａｌ　ＢＡＳＩＣ　３．０　ｆｏｒ　Ｗｉｎｄｏｗｓ专业版中的ＭＣＩ．ＶＢＸ多媒体控件来实现的软操作方法。 　　首先必须确定你的Ｗｉｎｄｏｗｓ系统中，ＳＹＳＴＥＭ．ＩＮＩ文件［ＭＣＩ］小节中有ＣＤＡｕｄｉｏ＝Ｍｃｉｃｄａ．ｄｒｖ，否则应增加此驱动程序。 　　接下来就是在Ｖｉｓｕａｌ　ＢＡＳＩＣ中使用［ＡＤＤ　Ｆｉｌｅ］将Ｗｉｎｄｏｗｓ＼ＳＹＳＴＥＭ目录中的ＭＣＩ．ＶＢＸ加至ＴｏｏｌＢｏｘ里。用鼠标双击ＴｏｏｌＢｏｘ中的媒体控制项或拖放至Ｆｏｒｍ上，调整其大小，并显示出九个按钮，从左至右分别是Ｐｒｅｖ、Ｎｅｘｔ、Ｐｌａｙ、Ｐａｕｓｅ、Ｂａｃｋ、Ｓｔｅｐ、Ｓｔｏｐ、Ｒｅｃｏｒｄ及Ｅｊｅｃｔ。我们只保留Ｅｊｅｃｔ按钮，在代码中将其它按钮的Ｖｉｓｉｂｌｅ属性设定为Ｆａｌｓｅ，即运行时不可见。 　　程序代码如下： 　　Ｓｕｂ　Ｆｏｒｍ－Ｌｏａｄ（） 　　ＭＭＣｏｎｔｒｏｌ１．ＤｅｖｉｃｅＴｙｐｅ＝＂ＣＤＡｕｄｉｏ＂　　　 　　’指定媒体类型　　　 　　ＭＭＣｏｎｔｒｏｌ１．Ｃｏｍｍａｎｄ＝＂Ｏｐｅｎ＂　　　　 　　’打开媒体设备　　　 　　ＭＭＣｏｎｔｒｏｌ１．ＰｒｅｖＶｉｓｉｂｌｅ＝Ｆａｌｓｅ 　　ＭＭＣｏｎｔｒｏｌ１．ＮｅｘｔＶｉｓｉｂｌｅ＝Ｆａｌｓｅ 　　ＭＭＣｏｎｔｒｏｌ１．ＰｌａｙＶｉｓｉｂｌｅ＝Ｆａｌｓｅ 　　ＭＭＣｏｎｔｒｏｌ１．ＢａｃｋＶｉｓｉｂｌｅ＝Ｆａｌｓｅ 　　ＭＭＣｏｎｔｒｏｌ１．ＳｔｅｐＶｉｓｉｂｌｅ＝Ｆａｌｓｅ 　　ＭＭＣｏｎｔｒｏｌ１．ＳｔｏｐＶｉｓｉｂｌｅ＝Ｆａｌｓｅ 　　ＭＭＣｏｎｔｒｏｌ１．ＰａｕｓｅＶｉｓｉｂｌｅ＝Ｆａｌｓｅ 　　ＭＭＣｏｎｔｒｏｌ１．ＲｅｃｏｒｄＶｉｓｉｂｌｅ＝Ｆａｌｓｅ 　　Ｅｎｄ　Ｓｕｂ 　　Ｓｕｂ　Ｆｏｒｍ－Ｕｎｌｏａｄ（Ｃａｎｃｅｌ　Ａｓ　Ｉｎｔｅｇｅｒ） 　　ＭＭＣｏｎｔｒｏｌ１．Ｃｏｍｍａｎｄ＝＂Ｃｌｏｓｅ＂　　　’关闭媒体设备 　　Ｅｎｄ　Ｓｕｂ 　　程序中ＭＭＣｏｎｔｒｏｌ１是系统内定的媒体控制对象名称，用户可以根据具体情况自己更改。 　　这时你可以调试并调整Ｆｏｒｍ和控件的大小，调试正常后，可设置Ｆｏｒｍ对象的标题、颜色、图标等。然后编译成．ＥＸＥ文件，即可在Ｗｉｎｄｏｗｓ下运行。 　　本方法在４８６ＤＸ２／６６兼容机上（配ＣＤ－ＩＳ２０１光驱），Ｗｉｎｄｏｗｓ　３．２中文版和Ｗｉｎｄｏｗｓ　３．１西文版下运行通过。