Clase pública MyCheckedListBox
Hereda CheckedListBox
Const privado WM_LBUTTONDOWN como número entero = &H201
Const privado WM_LBUTTONUP como número entero = &H202
Const privado WM_LBUTTONDBLCLK como número entero = &H203
Protegido elimina WndProc secundario (ByRef m como System.Windows.Forms.Message)
Seleccionar el caso m.Msg
Encajonar WM_LBUTTONDOWN, WM_LBUTTONUP, WM_LBUTTONDBLCLK
Amortiguar la pinta como el punto = Me.PointToClient (Cursor.Position)
Para i como número entero = Me.TopIndex a Me.Items.Count - 1
Si Me.GetItemRectangle (i). Entonces contiene (pinta)
MyBase.WndProc (m)
Salir el submarino
Terminar si
Después
Salir el submarino 'dejó tecleo ocurrió en el espacio blanco: suprimir la acción del defecto
Terminar selecto
MyBase.WndProc (m)
Terminar el submarino
Terminar la clase
|