英文VB教程 简体Visual Basic教程 繁体Visual Basic教程

第十九课: 光碟播放器



您可以在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


 


❮ 上一课 下一课 ❯



版权所有©2008 Dr.Liew Voon Kiong。保留所有权利 。联系我们: VB面子书

[Privacy Policy]