Classe pública MyCheckedListBox
Herda CheckedListBox
Const confidencial WM_LBUTTONDOWN como o inteiro = o &H201
Const confidencial WM_LBUTTONUP como o inteiro = o &H202
Const confidencial WM_LBUTTONDBLCLK como o inteiro = o &H203
Protegido cancela WndProc secundário (ByRef m como System.Windows.Forms.Message)
Selecionar o caso m.Msg
Encaixotar WM_LBUTTONDOWN, WM_LBUTTONUP, WM_LBUTTONDBLCLK
Escurecer a pinta como o ponto = o Me.PointToClient (Cursor.Position)
Para i como o inteiro = o Me.TopIndex a Me.Items.Count - 1
Se Me.GetItemRectangle (i). Contem (pinta) então
MyBase.WndProc (m)
Retirar o submarino
Terminar se
Em seguida
Retirar o submarino 'deixou o clique ocorreu no espaço branco: suprimir a ação do defeito
Terminar seleto
MyBase.WndProc (m)
Terminar o submarino
Terminar a classe
|