使用一些在“使用 Multimedia 控件”中讨论的技术,就能够创建演示 Multimedia 控件特性的简单的音频 CD 播放器应用程序。本说明使用了一个窗体和一个 Multimedia 控件的实例,并假设在计算机中安装了与音频 CD 兼容的 CD-ROM 驱动器和声卡。
首先,在 Visual Basic 中启动新的工程。在窗体中添加 Multimedia 控件的实例。在该窗体的 Form_Load 事件过程中添加下面的代码:
'
设置媒体设备的初始属性值Form1.MMControl1.Notify = False
Form1.MMControl1.Wait = True
Form1.MMControl1.Shareable = False
Form1.MMControl1.DeviceType = "CDAudio"
'
打开媒体设备Form1.MMControl1.Command = "Open"
运行时在 Form_Load 过程中打开 MCI 设备,并初始化该设备。如果在 CD 驱动器中已经放置了音频 CD,则 Multimedia 控件中适当的按钮被激活。
简单的音频 CD 播放器
Multimedia 控件能够识别设备在当前状态下可进行的操作。因此,当 Multimedia 控件打开它支持的 MCI 设备时,适当的按钮会被自动激活。在本示例中,按下“播放”按钮后,“停止”和“暂停”按钮被激活。如果在应用程序运行期间,从 CD 驱动器中将 CD 取出,则所有按钮将被禁用。
示例应用程序 MCITest.vbp 列在 Samples目录中,它在本说明的基础上又提供了使用 Multimedia 控件的高级编程技术。