---

您可以在VB中创建各种多媒体应用程序，音频文件播放器，光碟播放器，视频文件播放器等。为了建立能够播放多媒体文件或多媒体设备的VB程序，你必须把Microsoft多媒体控制插入到您的VB应用程序 中。不过，微软的多媒体控制是通常不包括在启动工具箱，因此，您需要把MMControl（多媒体控件）加入到工具箱中。您可按下CTRL +T，并从对话框显示的组件中选择 Microsoft Multimedia Control 6.0, 之后多媒体控件就会出现在工具箱中。

19.1 建立一个光碟播放器

光碟播放器界面

CD播放器程序代码如下

Private Sub Form_Load()

'把播放器定位在屏幕中心
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2

'启动CD
myCD.Command = "Open"

End Sub

Private Sub myCD_StatusUpdate()
'更新光碟音轨号码
trackNum.Caption = myCD.Track
End Sub

Private Sub Next_Click()

‘下一首歌
myCD.Command = "Next"
End Sub

Private Sub Play_Click()

’开始播放
myCD.Command = "Play"

End Sub

Private Sub Previous_Click()

‘前一首歌
myCD.Command = "Prev"
End Sub

Private Sub Stop_Click()

’停止播放
myCD.Command = "Stop"
End Sub