2013-09-22 82 views
-1

我想清除這種形式的數據。 你能告訴我這段代碼有什麼問題嗎?清除表單中的數據。 Visual Basic

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 

回答

0

試試這個:

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

在你現在的代碼,你通過所有的控制循環,但只更新RadioButton2的Checked屬性。

+0

不工作。這個看起來很正常的代碼不起作用。 ElseIf TypeOf ctrl是RadioButton Then CType(ctrl,RadioButton).Checked = False End If – Hfirst

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 

你會循環在窗體的所有控件。