【VB开源代码栏目提醒】：本文主要为网学会员提供Cdrom.frm，希望对需要Cdrom.frm网友有所帮助，学习一下!

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "硬件光驱的控制"
       ClientHeight    =   2655
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   4890
       LinkTopic       =   "Form1"
       ScaleHeight     =   2655
       ScaleWidth      =   4890
       StartUpPosition =   3  '窗口缺省
       Begin VB.TextBox Text1 
          Height          =   615
          Left            =   360
          TabIndex        =   4
          Top             =   480
          Width           =   4215
       End
       Begin VB.CommandButton CmdJudge 
          Caption         =   "判断"
          Height          =   495
          Left            =   360
          TabIndex        =   3
          Top             =   1920
          Width           =   975
       End
       Begin VB.CommandButton CmdExit 
          Caption         =   "退出"
          Height          =   495
          Left            =   3720
          TabIndex        =   2
          Top             =   1920
          Width           =   975
       End
       Begin VB.CommandButton CmdClose 
          Caption         =   "关闭"
          Height          =   495
          Left            =   2640
          TabIndex        =   1
          Top             =   1920
          Width           =   975
       End
       Begin VB.CommandButton CmdOpen 
          Caption         =   " 打开"
          Height          =   495
          Left            =   1560
          TabIndex        =   0
          Top             =   1920
          Width           =   975
       End
       Begin VB.Frame Frame1 
          Caption         =   "显示光驱操作信息"
          Height          =   1215
          Left            =   240
          TabIndex        =   5
          Top             =   120
          Width           =   4575
       End
       Begin VB.Frame Frame2 
          Caption         =   "光驱的控件操作"
          Height          =   1095
          Left            =   240
          TabIndex        =   6
          Top             =   1440
          Width           =   4575
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    '声明API
    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
    
    '查CDROM中是否有碟
    Public Function FindCdrom() As Boolean
    Dim RetSet As String * 50
    Dim ErRunm As Long
    ErRunm = mciSendString("status cdaudio media present", RetSet, 50, 0)
    If ErRunm = 0 Then
    FindCdrom = CBool(RetSet)
    End If
    End Function
    
    '打开仓门
    Public Sub OpenCdrom()
    Dim RetSet As String * 50
    Dim ErRunm As Long
    ErRunm = mciSendString("set cdaudio door open", RetSet, 50, 0)
    If ErRunm <> 0 Then
    MsgBox "光驱可能有问题，请检查后重试！", 16, "错误"
    Exit Sub
    End If
    End Sub
    
    '关闭仓门
    Public Sub CloseCdrom()
    Dim RetSet As String * 50
    Dim ErRnum As Long
    ErRnum = mciSendString("set cdaudio door closed", RetSet, 50, 0)
    If ErRnum <> 0 Then
    MsgBox "光驱可能有问题，请检查后重试！", 16, "错误"
    Exit Sub
    End If
    End Sub
    
    Private Sub CmdClose_Click()
      CloseCdrom
    End Sub
    
    Private Sub CmdExit_Click()
      Unload Me
    End Sub
    
    Private Sub CmdJudge_Click()
      If FindCdrom Then
        Text1.Text = "有光驱，并且光驱中已有碟片！"
      Else
        Text1.Text = "有光驱，但光驱中尚未装入碟片！"
      End If
    End Sub
    
    Private Sub CmdOpen_Click()
      OpenCdrom
    End Sub
    
    

上一篇：cd.frm
下一篇：科研管理杂志简介