Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim s As SubclassHWND = New SubclassHWND()
s.AssignHandle(Me[COLOR="Red"].AxQTControl1.[/COLOR]Handle)
' Now s should be listening to the AxQTControl1's messages.
AxQTControl1.URL = "c:\tempfiles\u-100.mpg"
End Sub
End Class
Public Class SubclassHWND
Inherits NativeWindow
Private Const WM_LBUTTONDOWN As Integer = &H201
Private Const WM_LBUTTONDBLCLK As Integer = &H203
Protected Overloads Overrides Sub WndProc(ByRef m As Message)
' do whatever custom processing you need for
Select Case m.Msg
Case WM_LBUTTONDOWN
' Disable mousedown/click
Case WM_LBUTTONDBLCLK
' Disable double click
Case Else
'It is important to pass unhandled messages back to the default message handler.
MyBase.WndProc(m)
End Select
End Sub
End Class