controls dynamisch in einer schleife erstellen

[bmuli2000]

hallo

ich möchte gern checkboxen in einer schleife erstellen.

For Each __drive As IO.DriveInfo In My.Computer.FileSystem.Drives


Next

herzlichen dank für eure hilfe
dietrich

[Andreas Kosch]

Hallo,

das geht ganz einfach, wie das folgende Beispiel zeigt:

For n As Integer = 1 To NumericUpDown1.Value
  Dim check As New CheckBox
  check.Name = String.Format("cb{0}", n)
  check.Text = String.Format("Nr. {0}", n)
  check.Top = 20 * n
  check.Left = 15
  check.Width = 120
  check.Height = 15
  Me.Controls.Add(check)
Next

Auch das spätere Auswerten der vom Benutzer angekreuzten Checkboxen führt zur Controls-Sammlung des Formulars:

Dim aCurrentCtrl As Object
Dim aCurrentCB As CheckBox
For Each aCurrentCtrl In Me.Controls()
  ' Ist das aktuelle Control eine Checkbox
  If TypeOf aCurrentCtrl Is CheckBox Then
    aCurrentCB = DirectCast(aCurrentCtrl, CheckBox)
    If (aCurrentCB.Checked) Then
       ListBox1.Items.Add(aCurrentCB.Text)
    End If
  End If
Next

[bmuli2000]

herzlichen dank, dass war sehr hilfreich.