英文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]