开讲啦苏权科:跪求 用VB制作关闭光驱的教程

来源：百度文库 编辑：高考问答 时间：2024/05/03 05:16:08
谁有啊 告诉我网站
我太菜 要视频教程

新建工程，添加一个窗体、三个按钮
按钮1：打开光驱。按钮2：关闭光驱。按钮3：退出
代码如下：
Option Explicit
Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Dim state1 As Boolean

Private Sub Command1_Click()
'打开光驱
state1 = True
Call CDdoor("set CDAudio door open", 0, 0, 0)
End Sub

Private Sub Command2_Click()
'关闭光驱
state1 = False
Call CDdoor("set CDAudio door closed", 0, 0, 0)
End Sub

Private Sub Command3_Click()
End
End Sub
参考资料：《VB编程200例》实例光盘

跪求 用VB制作关闭光驱的教程 求用VB.net制作最简单的COM组件的教程或者方法 求留言板的制作教程 求制作机器人的教程 求VB语言教程的电子书下载 求VB教程（入门级的） 求C++和 VB的学习教程 求vb免费视频教程！ 急求VB教程 求VB教程