zoukankan      html  css  js  c++  java
  • 利用MCI的方法可以方便的实现光驱门的开关

    请看下例:
    >>步骤1----建立新工程,在窗体上放置一个CommandButton按钮.设置其Caption = "打开"
    >>步骤2----编写如下代码:

    Private 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()
        Static bOpen As Boolean
        Dim strStr As String
    
        If Not bOpen Then
            Screen.MousePointer = vbHourglass
            strStr = "set CDAudio door open"
        Command1.Caption = "关闭"
        Else
            Screen.MousePointer = vbHourglass
            strStr = "set CDAudio door closed"
         Command1.Caption = "打开"
        End If
    
        Call mciSendString(strStr, vbNull, 127, 0)
        Screen.MousePointer = vbDefault
        DoEvents
        bOpen = Not bOpen
    End Sub

    >>步骤3----编译运行,点击"打开",光驱弹出;点击"关闭",光驱关上. 

  • 相关阅读:
    iOS中的两种主要架构及其优缺点浅析
    iOS
    iOS开发人员不容错过的10大工具
    安装CocoaPods报错
    把你唱的歌用乐器表达出来

    String.Split函数
    四部和声
    SerializeField和HideInInspector
    十年许嵩雅俗共赏
  • 原文地址:https://www.cnblogs.com/Spacecup/p/3642873.html
Copyright © 2011-2022 走看看