Allmänhet klassificerar MyCheckedListBox
Övertar CheckedListBox
Privata Const WM_LBUTTONDOWN som heltal = &H201
Privata Const WM_LBUTTONUP som heltal = &H202
Privata Const WM_LBUTTONDBLCLK som heltal = &H203
Skyddade åsidosättanden underWndProc (ByRef M som System.Windows.Forms.Message)
Välj fallet m.Msg
Case WM_LBUTTONDOWN, WM_LBUTTONUP, WM_LBUTTONDBLCLK
Dunkel liter som pekar = Me.PointToClient (Cursor.Position)
För I som heltal = Me.TopIndex till Me.Items.Count - 1
Om Me.GetItemRectangle (I). Innehåller (liter) därefter
MyBase.WndProc (M)
Gå ut suben
Avsluta om
Därefter
Gå ut den lämnade suben 'klickar uppstått i vitutrymmet: dämpa standardhandlingen
Avsluta valt
MyBase.WndProc (M)
Avsluta suben
Avsluta klassificerar
|