AddHandler mpOCX.MouseMoveEvent, AddressOf doMouseMove
Private Sub doMouseMove(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_MouseMoveEvent)
OnMouseMove(New MouseEventArgs(MouseButtons.None, 0, e.fX, e.fY, 0))
End Sub
' ... not sure if these will have some effect
mpOCX.uiMode = "none"
mpOCX.Ctrlenabled = False
mpOCX.enableContextMenu = False
mpOCX.stretchToFit = True ' bonus
' ... to change the mouse cursor, override OnMouseEnter in your mpOCX object, which inherits from AxWindowsMediaPlayer:
Protected Overrides Sub OnMouseEnter(ByVal e As EventArgs)
' ... again, this goes in the
Cursor = Cursors.Arrow
MyBase.OnMouseEnter(e)
End Sub
' ... also, to short-circuit keyboard messages, you will have to Override PreProcessMessage in the mpOCX class, so might as well make one.
' ... these fire for keydown for WMP shortcut keys, keyup for all regular keys, but they don't fire keyup for WMP shortcut keys. this WILL disable all navigation via keyboard in WMP, so you can't press ctrl+O for example.
Public Overrides Function PreProcessMessage(ByRef m As Message) As Boolean
Return True
'Return MyBase.PreProcessMessage(m) ' do not uncomment
End Function
' ... other methods you could Override instead are ProcessCmdKey, ProcessDialogChar, ProcessDialogKey, ProcessKeyMessage, ProcessKeyEventArgs, ProcessKeyMessage, ProcessKeyPreview, ProcessMnemonic - but it's like playing whack-a-mole...
Ой извините, я неправильно понял ваш вопрос, лол, р На самом деле, я даже не могу вспомнить, если это отключает щелчков мыши или нет .. похоже, что он делает, его в моем коде WMP, но я «Мне нужно исправить некоторые строки и перестроить, поэтому я не могу проверить на данный момент, но я надеюсь, что это поможет.
На самом деле, есть MouseDownEvent(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_MouseDownEvent)
, который должен позволять вам обрабатывать то же самое. Я не уверен, для чего нужен мой код mousemove, но он что-то делает, я могу это гарантировать. Вероятно, просто вызывает события для перемещения курсора, поскольку сообщения отправляются в элемент управления.
Хм, да, вы, похоже, смутили меня своим предыдущим ответом. Если бы ошибки не добавляли ваш код, но это беспокоило меня, что у него не было никаких эффектов lol. О MouseDownEvent я также добавил, но не совсем уверен, что еще добавить, чтобы заставить его работать. Событие с мышью - это событие движения? Также я нашел этот маленький трюк, который помогает мне достичь моей цели, но имеет некоторые побочные эффекты. Невероятно, может быть, вы справитесь. После добавления этого кода моя форма складывается в мои окна с моей панелью задач внизу, не позволяя мне делать это на весь экран или полностью скрывать панель задач. http://pastebin.com/2zp5r1mp – user3288047
Не осталось больше писем, оставшихся на моем предыдущем ответе. Таким образом, этот новый метод, который я опубликовал, в основном делает форму в полноэкранном режиме и отключает действия, но это как-то заставляет панель задач застревать поверх нее. Должен ли я как-то попытаться скрыть панель задач, и она будет работать правильно? – user3288047
Вот мой рабочий стол после скрытия курсора http://s30.postimg.org/mu4g1qp4h/mydesktop.png – user3288047