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
谢谢!
对于左键(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
谢谢!