用mediaplayer控件时,如何才能收到单击界面各个按键的消息
【急】用mediaplayer控件时,怎么才能收到单击界面各个按键的消息
mediaplayer控件能播放的格式太少了,但是我想用他的播放器操作界面,就是开始,停止,音量控制这些按钮,但是怎么才能收到这些按钮的单击事件??还有音量的变化事件??急用~
------解决方案--------------------
是wmp控件吗?只要安装了解码器,都能播放。wmp的控制面板是可以隐藏的,隐藏之后,编程控制打开、播放、停止等操作。
------解决方案--------------------
'form1的窗体代码
'下面是Form2的窗体代码
mediaplayer控件能播放的格式太少了,但是我想用他的播放器操作界面,就是开始,停止,音量控制这些按钮,但是怎么才能收到这些按钮的单击事件??还有音量的变化事件??急用~
------解决方案--------------------
是wmp控件吗?只要安装了解码器,都能播放。wmp的控制面板是可以隐藏的,隐藏之后,编程控制打开、播放、停止等操作。
------解决方案--------------------
'form1的窗体代码
'在其上添加一个WMP控件
Option Explicit
'wmp播放器缩放
Private Sub Form_Resize()
WindowsMediaPlayer1.Move 0, 0, Me.Width, Me.Height
End Sub
'下面是Form2的窗体代码
'form1作为播放窗体
'form2作为启动窗体。播放控制。
'在Form2上添加10个命令按钮command1---command10(控件数组),1个通用对话框控件CommonDialog1
Option Explicit
Private Sub Command1_Click(Index As Integer)
'On Error Resume Next
Select Case Index
Case 0
Form1.WindowsMediaPlayer1.fullScreen = True '全屏
Case 1
Form1.WindowsMediaPlayer1.Controls.play '播放
Exit Sub
Case 2
Form1.WindowsMediaPlayer1.Controls.pause '暂停
Exit Sub
Case 3
Form1.WindowsMediaPlayer1.Controls.stop '停止
Exit Sub
Case 4
Form1.WindowsMediaPlayer1.Controls.currentPosition = Form1.WindowsMediaPlayer1.Controls.currentPosition + 100 '快进
Exit Sub
Case 5
Form1.WindowsMediaPlayer1.Controls.currentPosition = Form1.WindowsMediaPlayer1.Controls.currentPosition - 100 '快退
Exit Sub