Общественный тип MyCheckedListBox
Наследует CheckedListBox
Приватное Const WM_LBUTTONDOWN как интежер = &H201
Приватное Const WM_LBUTTONUP как интежер = &H202
Приватное Const WM_LBUTTONDBLCLK как интежер = &H203
Защищено отвергает Sub WndProc (ByRef m как System.Windows.Forms.Message)
Выберите случай m.Msg
Покрывайте WM_LBUTTONDOWN, WM_LBUTTONUP, WM_LBUTTONDBLCLK
Затемните pt как пункт = Me.PointToClient (Cursor.Position)
Для I как интежер = Me.TopIndex к Me.Items.Count - 1
Если Me.GetItemRectangle, то (I). Содержит (pt) после этого
MyBase.WndProc (m)
Выходите подводная лодка
Закончитесь если
Затем
Выходите подводная лодка 'вышл щелчок произошл в белом космосе: подавите действие невыполнения обязательства
Закончите отборное
MyBase.WndProc (m)
Закончите подводную лодку
Закончите тип
|