泰国斯米兰群岛天气:VB问题,求助!

来源：百度文库编辑：查人人中国名人网时间：2024/04/29 04:45:58

在窗体上新建一个按钮控件command1 要求按下这个按钮的时候会打开光驱.代码应该是怎么样的?

'先添加一个模块，写下以下API函数。
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

'在窗体中，以下代码为打开光驱
Private Sub Command1_Click()
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
End Sub
'以下代码为关闭光驱
Private Sub Command2_Click()
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

VB问题求助~~~~~~~~~~~~~~ VB问题求助~~~~~~~~~~~~~~ VB问题,求助~~~~~ vb问题，高手求助 VB问题,求助! vb源码问题求助一个VB问题求助！谢谢两个VB设计问题!!~~~求助!!~~~~ 菜鸟求助 vb安装问题.急!!!!!!!!!! VB中的一些简单问题！求助！