Allgemeine Kategorie MyCheckedListBox
Übernimmt CheckedListBox
Privates Const WM_LBUTTONDOWN als ganze Zahl = &H201
Privates Const WM_LBUTTONUP als ganze Zahl = &H202
Privates Const WM_LBUTTONDBLCLK als ganze Zahl = &H203
Geschützt hebt VorWndProc auf (ByRef m als System.Windows.Forms.Message)
Fall m.Msg vorwählen
WM_LBUTTONDOWN, WM_LBUTTONUP, WM_LBUTTONDBLCLK umkleiden
Pint als Punkt = Me.PointToClient (Cursor.Position) verdunkeln
Für i als ganze Zahl = Me.TopIndex zu Me.Items.Count - 1
Wenn Me.GetItemRectangle (i). Enthält (Pint) dann
MyBase.WndProc (m)
Unterseeboot herausnehmen
Beenden wenn
Zunächst
Unterseeboot herausnehmen 'ließ Klicken auftrat im weißen Raum: Rückstellungstätigkeit unterdrücken
Auserwähltes beenden
MyBase.WndProc (m)
Unterseeboot beenden
Kategorie beenden
|