怎样使用媒体播放器?(100分)

  • 主题发起人 主题发起人 rushing
  • 开始时间 开始时间
R

rushing

Unregistered / Unconfirmed
GUEST, unregistred user!
在Mediaplayer中重载click事件。
对于左键(button=1)的响应,在全屏状态(Fullscreen)存在问题。
只响应左上区域的单击,其他区域没有响应。

同时,重载KeyPress事件也无法执行。
只响应Esc,Space,m,del几个键。

请问该怎么解决?

我新建了一个Form,只有MediaPlayer和CommonDialog及Menu控件。
按照你的方法设置SendMouseClickEvents和SendKeyboardEvents,并且在mousedown中写代码,
结果在全屏状态,只响应左上角的鼠标事件,而且不响应键盘事件(非全屏时响应)。
我用的是Windows98,和Mediaplayer7.0,PII 400/64M/20G.
代码如下:
Private Sub ExitForm_Click()
Unload Me
End Sub

Private Sub MediaPlayer1_KeyDown(KeyCode As Integer, ShiftState As Integer)
MsgBox Chr(KeyCode)
End Sub

Private Sub MediaPlayer1_MouseDown(Button As Integer, ShiftState As Integer, x As Single, y As Single)
If Button = 1 then

MsgBox "click"
End If
End Sub

Private Sub openmediafile_Click()
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "所有媒体文件(*.mpg;*.wmv;*.avi)¦*.mpg;*.wmv;*.avi"
CommonDialog1.ShowOpen
MediaPlayer1.FileName = CommonDialog1.FileName
End Sub

谢谢!


 
这里不是有很多高手吗?
 
dephi的媒体播放器好象问挺多,Capabilities属性值总是不正确!
 
后退
顶部