第19课:设计多媒体应用程序-第1部分
时间:2014-07-24 11:40 来源: 我爱IT技术网 作者:山风
您可以在VB中创建各种多媒体应用程式，如音频CD播放器 ， 音频文件播放器，光碟播放器，视频文件播放器等。为了建立能够播放多媒体文件或多媒体设备的VB程式，你必须把Microsoft多媒体控制插入到您的VB应用程序 里。不过，微软的多媒体控制是通常不包括在启动工具箱，因此，您需要把MMControl（多媒体控件）加入到工具箱里。您可按下CTRL +T，并从对话框显示的组件里选择Microsoft Multimedia Control 6.0, 之后多媒体控件就会出现在工具箱中。
19.1 建立一个CD播放器
|
CD播放器界面  |
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()
- '更新CD音轨号码
- 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
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-