ボタンを制御する

Question

私は自分の問題を質問したかった。 ボタン1、ボタン2、ボタン3の3つのボタンを作ります。一つのボタンをクリックすると、ボタンの色が変わります。私はこのようなコードを使用しています。

For Each ctrl As Control In frm.Controls 
    If ctrl = button Then 
     ctrl.backcolor = color.red 
    End If  
Next 

まだエラーがあります。私

Answer 1

を助けてください右のコードは次のようになります。コードは以下の

For Each ctrl As Control In frm.Controls 
    If TypeOf ctrl Is Button Then 
     DirectCast(ctrl,Button).BackColor = Color.Red 
    End If 
Next 

Answer 2

用途：

For Each ctrl As Control In Controls 
     If TypeOf ctrl Is Button Then 
      ctrl.BackColor = Color.Red 
     End If 
    Next 

あなたは間違って何をしているがタイプとインスタンスを比較しています。あなたがする必要があるのは、あるインスタンスのTypeをもう1つのTypeと比較することです。

Answer 3

これは最善の方法ではありません。以下のオプションを見てください。

Sub buttons_click(sender as Object, e as event) Handles button1.Click, 
                 _ button2.Click, 
                 _ button3.Click 
    sender.backcolor = color.red 
End Sub 

申し訳ありませんが、構文が少しオフになっていると、私はVBを行ってからしばらくです。

これが役に立ちます。