ASP.NET如何做For循環與控制

Question

每個控制在Page.Header.Controls

我怎麼可以這樣做如上，此刻得到錯誤 「控制是一個類型，不能使用爲表達」

的完整代碼如下

Try 
     ' I only do this on my production servers, so I declare those here.' 
     If Request.ServerVariables("server_name") = "www.myproductionurl.com" Then 
      ' Allow scripts and css to logged in CMS users' 

      Dim checkLogin As New Controls.Login 
      If checkLogin.IsLoggedIn <> True Then 
       For Each Control In Page.Header.Controls 
        If Control.GetType.Name = "EktronJsControl" Or Control.GetType.Name = "EktronCssControl" Or Control.GetType.Name = "EktronModalCss" Then 
         Page.Header.Controls.Remove(Control) 
        Else 
         ' Removes the extra bubble inline style stuff that wasn't put in a CSS.'' 
         Dim litControl As LiteralControl = Control 
         If litControl.Text = Nothing Then 
          litControl.Text = "" 
         End If 

         ' Removing blank.css file' 
         Dim htmlLink As HtmlLink = Control 
         If htmlLink.Href = "/css/blank.css" Then 
          Page.Header.Controls.Remove(Control) 
         End If 
        End If 
       Next 
      End If 
     End If 
    Catch ex As Exception 

    End Try` 

Answer 1

變化Control變量名稱到別的東西。

For Each ctrl In Page.Header.Controls 

或

For Each ctrl As Control In Page.Header.Controls 

錯誤消息說，這一切：這個詞Control是Type所以你需要使用別的東西。

UPDATE回覆評論。

當您使用For Each循環遍歷它們時，您無法刪除控件。

考慮代碼更改爲類似：

For i as Integer = Page.Header.Controls.Length -1 to 0 Step -1 
    Dim ctrl As Control = CType(Page.Header.Control(i),Control) 

    If ctrl.GetType.Name = "EktronJsControl" Or ctrl.GetType.Name = "EktronCssControl" Or ctrl.GetType.Name = "EktronModalCss" Then 
     Page.Header.Controls.Remove(ctrl) 
    Else 

     Dim litControl As LiteralControl = ctrl 
     If litControl.Text = Nothing Then 
      litControl.Text = "" 
     End If 

    End If 
Next 

，你可以繼續被移除以控件的引用，並在循環後刪除。

Dim removables = New List(Of Control) 

For Each ctrl In Page.Header.Controls 
    If ctrl.GetType.Name = "EktronJsControl" Or ctrl.GetType.Name = "EktronCssControl" Or ctrl.GetType.Name = "EktronModalCss" Then 
     removables.Add(ctrl) 
    Else 

     Dim litControl As LiteralControl = ctrl 
     If litControl.Text = Nothing Then 
      litControl.Text = "" 
     End If 

    End If 
Next 

For Each c In removables 
    Page.Header.Controls.Remove(c) 
Next 

而且，其不太可能ctrl將能夠被轉換成LiteralControl和HtmlLink，所以你需要添加額外的檢查，以確定它是。

Answer 2

不幸的是...... VB.NET編譯器說你不能使用「Control」作爲變量名，因爲「Control」也是一種類型！

只需使用另一個標識符:)

Answer 3

首先，我想說我很抱歉，你有曄的工作:(。我覺得你的痛苦。

您的循環的語法是錯誤的，你需要指定一個變量的循環的語法是：

For Each [variable] As [type] In [collection] 

所以，你的循環更改爲：

For Each ctrl as Control In Page.Header.Controls 

並將代碼中變量Control的所有參考更改爲ctrl。

欲瞭解更多信息，請參閱For Each上的MSDN article。

Answer 4

由於「Control」是一個類，因此它不能用作變量名。將其更改爲另一個變量名，或將其置於方括號中... [Control]

括號將告訴編譯器將其視爲變量而不是類名。

Answer 5

列舉要枚舉並刪除它們後刪除的控件。

Dim controlsToRemove As New List(Of Control) 
For Each ctrl In Page.Header.Controls 
    If ctrl.GetType.Name = "EktronJsControl" Or ctrl.GetType.Name = "EktronCssControl" Or ctrl.GetType.Name = "EktronModalCss" Then 
     Page.Header.Controls.Remove(ctrl) 
    Else 

     Dim litControl As LiteralControl = ctrl 
     If litControl.Text = Nothing Then 
      litControl.Text = "" 
     End If 

     Dim htmlLink As HtmlLink = ctrl 
     If htmlLink.Href = "/css/blank.css" Then 
      'Page.Header.Controls.Remove(ctrl) 
      controlsToRemove.Add(ctrl) 
     End If 
    End If 

Next 

For Each ctrlToRemove In controlsToRemove 
    Page.Header.Controls.Remove(ctrlToRemove) 
Next