アレイリストに追加されたチェックボックスのみを追加するには？

Question

チェックボックスがオンの場合のみ、チェックボックスのテキストを挿入します。 ..薄暗い文字列として分割さどのようにそれをするために...サブをPage_Load（オブジェクトとしてByVal送信者、System.EventArgsとしてByVal e）のMe.Load TextBox1.Text =場合、Request.QueryString（ "TXT"）を扱い、保護

文字列内のコントロール= Page.FindControl（ "チェックボックス "& ID）として

 If Not ctrl Is Nothing Then 
      Dim chkbox As CheckBox = DirectCast(ctrl, CheckBox) 
      chkbox.Enabled = False 
      Dim arrList As New ArrayList() 
      'populate the list with some temp values 
      arrList.Add(CheckBox1.Text) 
      arrList.Add(CheckBox2.Text) 

      'databind the list to our repeater 
      Repeater1.DataSource = arrList 
      Repeater1.DataBind() 
     End If 
    Next 
End Sub 

を 薄暗いCTRLを分割されるように（）= TextBox1.Text.Split（"、"） IDごとにこのコードは、すべてのチェックボックスを追加しますそれがチェックされているかどうか！

すべてのボディが...唯一のチェックボックスにチェックするように

Answer 1

がこれです配列リストに追加されることを行うことができますが、あなたが期待している何ですか？

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

TextBox1.Text = Request.QueryString("txt") 
Dim splitted As String() = TextBox1.Text.Split(",") 

For Each id As String In splitted 
    Dim ctrl As Control = Page.FindControl("checkbox" & id) 

     If Not ctrl Is Nothing Then 
      Dim chkbox As CheckBox = DirectCast(ctrl, CheckBox) 
      chkbox.Enabled = False 
      Dim arrList As New ArrayList() 
      'populate the list with some temp values 
      if chkbox.Checked then 
        arrList.Add(chkbox.Text) 
      end if 

      'databind the list to our repeater 
      Repeater1.DataSource = arrList 
      Repeater1.DataBind() 
     End If 
    Next 
End Sub