乐曲的播放、暂停和停止.frm

来自「Windows API函数,希望大伙有用哦」· FRM 代码 · 共 61 行

VERSION 5.00
Begin VB.Form Form3 
   Caption         =   "Form3"
   ClientHeight    =   1140
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4545
   LinkTopic       =   "Form3"
   ScaleHeight     =   1140
   ScaleWidth      =   4545
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command3 
      Caption         =   "停   止"
      Height          =   315
      Left            =   2880
      TabIndex        =   2
      Top             =   360
      Width           =   1275
   End
   Begin VB.CommandButton Command2 
      Caption         =   "暂   停"
      Height          =   315
      Left            =   1590
      TabIndex        =   1
      Top             =   360
      Width           =   1275
   End
   Begin VB.CommandButton Command1 
      Caption         =   "播   放"
      Height          =   315
      Left            =   300
      TabIndex        =   0
      Top             =   360
      Width           =   1275
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
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 Form_Load()
' 打开 CD 设备
    mciSendString "Open cdaudio alias CDRom", vbNullString, 0, 0
End Sub
Private Sub Command1_Click()
'播放 CD
    mciSendString "Play CDRom", vbNullString, 0, 0
End Sub
Private Sub Command2_Click()
'暂停播放
    mciSendString "Pause CDRom", vbNullString, 0, 0
End Sub
Private Sub Command3_Click()
'停止播放
    mciSendString "Stop CDRom", vbNullString, 0, 0
End Sub