Classe publique MyCheckedListBox
Hérite de CheckedListBox
Const privé WM_LBUTTONDOWN comme nombre entier = &H201
Const privé WM_LBUTTONUP comme nombre entier = &H202
Const privé WM_LBUTTONDBLCLK comme nombre entier = &H203
Protégé dépasse WndProc secondaire (ByRef m comme System.Windows.Forms.Message)
Choisir le cas m.Msg
Enfermer WM_LBUTTONDOWN, WM_LBUTTONUP, WM_LBUTTONDBLCLK
Obscurcir la pinte comme point = Me.PointToClient (Cursor.Position)
Pour I comme nombre entier = Me.TopIndex à Me.Items.Count - 1
Si Me.GetItemRectangle (i). Contient (pinte) alors
MyBase.WndProc (m)
Sortir le sous-marin
Finir si
Après
Sortir le sous-marin 'a laissé le clic s'est produit dans l'espace blanc : supprimer l'action de défaut
Finir choisi
MyBase.WndProc (m)
Finir le sous-marin
Finir la classe
|