Codice categoria pubblico MyCheckedListBox
Eredita CheckedListBox
Const riservato WM_LBUTTONDOWN come il numero intero = &H201
Const riservato WM_LBUTTONUP come il numero intero = &H202
Const riservato WM_LBUTTONDBLCLK come il numero intero = &H203
Protettivo ignora WndProc secondario (ByRef m. come System.Windows.Forms.Message)
Selezionare il caso m.Msg
Mettere WM_LBUTTONDOWN, WM_LBUTTONUP, WM_LBUTTONDBLCLK
Oscurare la pinta come punto = Me.PointToClient (Cursor.Position)
Per la i come il numero intero = Me.TopIndex a Me.Items.Count - 1
Se Me.GetItemRectangle (i). Allora contiene (pinta)
MyBase.WndProc (m)
Uscire il sommergibile
Concluder se
Dopo
Uscire il sommergibile 'ha lasciato lo scatto si è presentato nello spazio bianco: sopprimere l'azione di difetto
Concludere prescelto
MyBase.WndProc (m)
Concludere il sommergibile
Concludere il codice categoria
|