無法投型「System.Windows.Forms.Button」的對象鍵入>「System.Windows.Forms.TextBox」

Question

我寫的所有空文本框在我的表格的函數：

Private Sub effacer() 
     For Each t As TextBox In Me.Controls 
      t.Text = Nothing 
     Next 
    End Sub 

但我有這個問題：

無法轉換類型「System.Windows.Forms.Button」的對象鍵入 「System.Windows.Forms.TextBox」。

我嘗試添加該If TypeOf t Is TextBox Then但我有同樣的問題

Answer 1

Controls集合包含表單的所有控件，不僅包含TextBoxes。

相反，你可以使用Enumerable.OfType找到並投下所有TextBoxes：

For Each txt As TextBox In Me.Controls.OfType(Of TextBox)() 
    txt.Text = "" 
Next 

如果你想要做同樣的「老派」的方式：

For Each ctrl As Object In Me.Controls 
    If TypeOf ctrl Is TextBox 
     DirectCast(ctrl, TextBox).Text = "" 
    End If 
Next 

Answer 2

For Each t As TextBox In Me.Controls 

這條線就在這裏嘗試將每個控制轉換爲TextBox。
您需要將其更改爲As Control，或使用Me.Controls.OfType(Of TextBox)()在迭代之前過濾集合。

Answer 3

這裏是一個線的代碼將清除groupBox中的所有收音機按鈕，該組合框連接到button_click：

groupBoxName.Controls.OfType<RadioButton>().ToList().ForEach(p => p.Checked = false); 

使用適當的更改以適應您的需求。