单击时注册为按钮的表单的vb.net背景

Question

I have created a system in vb.net that allows you to click buttons and it will change colour accordingly. It uses code that will be used for each button without referencing each button individually.

Dim btn As Button = Nothing  
For Each ctrl As Control In Me.Controls  
    If TypeOf ctrl Is Button Then  
       btn = DirectCast(ctrl, Button)  
       AddHandler btn.Click, AddressOf Me.btn_Click  
    End   
Next  

This works correctly for the buttons, however when you miss-click and click the background of the form it registers the background as a button and breaks the system.

Hope this makes sense.

Answer 1

You can use the Me.Controls.OfType() function which will return a collection with the Controls of the specified Type:

Me.Controls.OfType(Of Button)().ToList.
   ForEach(Sub(bt As Button) AddHandler bt.Click, AddressOf Me.btn_Click)