刪除控件

Question

我在表單（144）上有很多按鈕需要刪除。他們的名字都以「R」開頭。所以我使用了這段代碼。

Sub RemoveBookingButtons() 
    Dim cntrl As Control 

    For Each cntrl In Me.Controls 
     If Mid(cntrl.name, 1, 1) = "R" Then 
      Me.Controls.Remove(cntrl) 
     End If 
    Next 

End Sub 

但是每當我運行這個子函數時，它會刪除以「R」開頭的其他每個按鈕。有人可能會提出更好的代碼或指出該缺陷是在該代碼段還是隱藏在程序中的其他位置。

Answer 1

您正在修改您正在迭代的集合，所以它肯定會出錯。我很驚訝它甚至運行。

您應該將所有匹配的控件檢索到一個新列表中，然後遍歷該列表，從第一個列表中刪除。

在C＃：

var toRemove = this.Controls.Where(ctrl => ctrl.Name.StartsWith("R")).ToList(); 
foreach(var ctrl in toRemove) 
{ 
    this.Controls.Remove(ctrl); 
} 

在VB：

dim toRemove = (from c in Me.Controls where c.StartsWith("R") select c).ToList() 

for each ctrl in toRemove 
    Me.Controls.Remove(ctrl) 
next 

Answer 2

最小的方法來解決你的問題是使用for循環，而不是一個For Each，
從該月底開始控件集合如

For i = Me.Controls.Count -1 To 0 
    Dim cntrl as Control = Me.Controls(i) 
    If Mid(cntrl.name, 1, 1) = "R" Then 
     Me.Controls.Remove(cntrl) 
    End If 
Next 

Answer 3

不要更改Collection迭代期間。

你可以使用OfType找到所有你Buttons：

Dim rButtons = Me.Controls.OfType(Of Button)(). 
    Where(Function(btn) btn.Name.StartsWith("R")).ToList() 
For Each btn In rButtons 
    Me.Controls.Remove(btn) 
Next 

要澄清驗證碼：

一般來說，這是LINQ-to-Objects。

Me.Controls.OfType(Of Button)() 

這將返回在窗體的ControlCollectionof Type Button所有控件。

.Where(Function(btn) btn.Name.StartsWith("R")) 

這限制了結果集中按鈕其中NameStartsWith「R」（注意，這是大小寫敏感的，你需要調用ToLower/ToUpper第一，如果希望它是情況insenstive）。

.ToList() 

這將創建從一個IEnumerable(OfButton)List(Of Button)。不是說任何LINQ查詢都會被延遲執行。 Deferred execution意味着表達式的評估被延遲直到其實際需要的值被實現。所以查詢不會實現，直到任何消耗它，在這種情況下ToList()它執行它並創建列表以及。