vb中打开光驱的代码？

答案:2 悬赏:80 手机版

解决时间 2021-04-01 15:33

提问者网友：沉默的哀伤
2021-04-01 10:45

vb中打开光驱的代码？

最佳答案

五星知识达人网友：渡鹤影
2021-04-01 11:16

Public Class Form1
    Private Declare FunctionmciSendString Lib "winmm.dll"Alias "mciSendStringA"(ByVal lpstrCommand AsString, ByVallpstrReturnString As String,ByVal uReturnLength AsInteger, ByValhwndCallback As Integer)As Integer
    Private Sub Button1_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesButton1.Click
        Dimretvalue As Object
        Dimreturnstring As Object
        IfButton1.Text = "打开光驱" Then
            Button1.Text = "关闭光驱"
            retvalue = mciSendString("set CDAudio door open", returnstring,127, 0)
        Else
            retvalue = mciSendString("set CDAudio door closed", returnstring,127, 0)
            Button1.Text = "打开光驱"
        End If
    End Sub
End Class

全部回答

1楼网友：三千妖杀
2021-04-01 12:53

你好，一般的生活牙膏对孕妇是没有什么害处的，如果有害处和禁忌症，国家一般都是会规定厂家明确指出的，也就是著名孕妇禁用等标志，所以只要自己使用的牌子没有说这个问题，放心使用即可，孕期主要是不要乱吃药为宜。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息