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