VB程序设计第章多媒体程序.ppt

12.3实训指导 12.3.1技能训练目的☆ ☆ 熟练掌握使用用多媒体控件（MMControl）编写多媒体程序的方法 ☆ 掌握使用Animation控件编写多媒体程序的方法 ☆ 掌握使用Windows Media Player控件编写多媒体程序 ☆ 了解其他常用多媒体控件的基本功能 ☆ 基本掌握使用API函数编写多媒体程序的方法 Company Logo 第二十九页，共五十三页。 12.3.2技能训练内容 【实训12.1】制作一个CD播放器。 窗体界面设计：在窗体上添加一个多媒体控件（MMControl1）、一个列表框（List1）、一个命令按钮（Command1）、两个图像框（Image1和Image2）、和六个标签控件（Label1~Label6）。各个控件的具体摆放如图12-1所示。两个图像框加载了两幅图片来装饰窗体界面；六个标签的AutoSize属性均为True，其它相关属性设置如表12-4所示。 Company Logo 第三十页，共五十三页。 12-4 各控件的基本主要属性设置 控件 名称 Caption Label Label1 当前正在播放的曲目序号是： Label Label2 当前曲目已经播放的时间是： Label Label3 CD播放器暂停播放 Label Label4 0 Label Label5 00:00 Label Label6 Form Form1 CD播放器 MMControl MMControl1 Company Logo 第三十一页，共五十三页。 图12-1 Company Logo 第三十二页，共五十三页。 程序代码设计如下： 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 使按钮不可用,避免重载 Company Logo 第三十三页，共五十三页。 设置最初曲目号 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 Company Logo 第三十四页，共五十三页。 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 显示停止播放状态