-1

このフォームのデータを消去したいと思います。このコードの何が問題なのか教えてください。

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is RadioButton Then
            RadioButton2.Checked = False
        End If
    Next
End Sub
4

2 に答える 2

0

これを試して:

If TypeOf ctrl Is RadioButton Then
     ctrl.Checked = False
End If

現在のコードでは、すべてのコントロールをループしていますが、RadioButton2 の Checked プロパティのみを更新しています。

于 2013-09-22T12:00:41.923 に答える
0

以下のコードは私のために働きます:

For Each ctrl As Control In Me.Controls
    If TypeOf ctrl Is RadioButton Then
    'reset the checked property to ALL your radioButtons     
    DirectCast(ctrl, RadioButton).Checked = False
        End If
    Next

フォーム内のすべてのコントロールをループします。

于 2016-03-16T09:02:47.570 に答える