Społeczeństwo Klasowy MyCheckedListBox
Dziedziczyć CheckedListBox
Intymny Const WM_LBUTTONDOWN Jako Integer = &H201
Intymny Const WM_LBUTTONUP Jako Integer = &H202
Intymny Const WM_LBUTTONDBLCLK Jako Integer = &H203
Ochraniać Być ważniejszym Okręt podwodny WndProc (ByRef m Jako System.Windows.Forms.Message)
Wybrany Skrzynka m.Msg
Skrzynka WM_LBUTTONDOWN, WM_LBUTTONUP, WM_LBUTTONDBLCLK
Ciemnawy pt Jako Punkt = Me.PointToClient (Cursor.Position)
Dla i Jako Integer = Me.TopIndex Me.Items.Count - (1)
Jeżeli Me.GetItemRectangle (i). Zawierać (pt) Wtedy
MyBase.WndProc (m)
Wyjście Okręt podwodny
Kończyć Jeżeli
Następnie
Wychodzić Okręt podwodny 'Opuszczać stuknięcie zdarzać się w the biały przestrzeń: tłumić brak akcja
Kończyć Wybiórka
MyBase.WndProc (m)
Kończyć Okręt podwodny
Kończyć Klasa
|