Openbare Klasse MyCheckedListBox
Erft CheckedListBox
Privé Const WM_LBUTTONDOWN als Geheel = &H201
Privé Const WM_LBUTTONUP als Geheel = &H202
Privé Const WM_LBUTTONDBLCLK als Geheel = &H203
Beschermd treedt SubWndProc (ByRef m als System.Windows.Forms.Message) met voeten
Selecteer Geval m.Msg
Geval WM_LBUTTONDOWN, WM_LBUTTONUP, WM_LBUTTONDBLCLK
Schemerig PT als Punt = Me.PointToClient (Cursor.Position)
Voor I als Geheel = Me.TopIndex aan Me.Items.Count - 1
Als Me.GetItemRectangle (I). Bevat (PT) Dan
MyBase.WndProc (m)
Sub van de uitgang
Eind als
Daarna
Verlaten Sub van de uitgang 'klikt voorgekomen in de witte ruimte: onderdruk standaardactie
Beëindig Uitgezocht
MyBase.WndProc (m)
Sub van het eind
De Klasse van het eind
|