Visual Basic程序设计第12章 多媒体程序.pptVIP

12-4 各控件的基本主要属性设置 控件 名称 Caption Label Label1 当前正在播放的曲目序号是： Label Label2 当前曲目已经播放的时间是： Label Label3 CD播放器暂停播放 Label Label4 0 Label Label5 00:00 Label Label6 Form Form1 CD播放器 MMControl MMControl1 图12-1 程序代码设计如下： Dim iTime As Integer 曲目播放总时(秒为单位) Dim iSecond As Integer 秒 Dim iMinute As Integer 分 打开设备 Private Sub Command1_Click() MsgBox (请将CD盘放在驱动器中,否则产生错误！) MMControl1.Command = Open ‘获得曲目数 Dim i As Integer For i = 1 To MMControl1.Tracks List1.AddItem 曲目→ Format(i) Next i MMControl1.TimeFormat = mciFormatTmsf 设置时间格式 Command1.Enabled = False 使按钮不可用,避免重载 设置最初曲目号 If List1.ListCount 0 Then Label4.Caption = 1 List1.ListIndex = 0 End If Exit Sub End Sub Private Sub Form_Load() MMControl1.Wait = True MMControl1.UpdateInterval = 0 MMControl1.DeviceType = CDAudio 设置设备类型 Label4.Caption = 0 设置曲目号为0 Label6.BackColor = H404040 显示停止播放状态 End Sub Private Sub Form_Unload(Cancel As Integer) MMControl1.Command = Stop MMControl1.Command = Close End End Sub 弹出CD光盘，使装载按钮可用 Private Sub MMControl1_EjectClick(Cancel As Integer) Command1.Enabled = True MMControl1.UpdateInterval = 0 MMControl1.Command = Eject 弹出CD MMControl1.Command = Close 关闭设备 Label4.Caption = 0 设置曲目号为0 List1.ListIndex = -1 Label6.BackColor = H404040 显示停止播放状态 Exit Sub End Sub 下一曲 Private Sub MMControl1_NextCompleted(ErrorCode As Long) 播放下一个曲目,则显示新的曲目号 Label4.Caption = Str$(MMControl1.Track) List1.ListIndex = MMControl1.Track - 1 iTime = 0 重新设置播放总时间 End Sub 暂停 Private Sub MMControl1_PauseClick(Cancel As Integer) MMControl1.UpdateInterval = 0 显示停止播放状态 Label6.BackColor = H404040 Label3.Caption = CD播放器暂停播放 End Sub 播放 Private Sub MMControl1_PlayClick(Cancel As Integer) MMControl1.UpdateInterval = 1000 显示当前曲目号 Label4.Caption = Str$(MMControl1.Track) List1.L