Checkboxen generieren

Jantz

Erfahrenes Mitglied
Hallo!
Ich bin gerade am verzweifeln, wie ich mehrere Checkboxen generieren kann.

Folgende situation:
Ich habe ein RecordSet mit Werten. Diese Werte sollen als Caption den generieten Checkboxen übergeben werden.

Code:
    Dim i As Integer
    Dim CheckBox As CheckBox
    i = 0
    While Not rs.EOF
 
        Set CheckBox = Me.Controls.Add("VB.Checkbox", "check" & i)
        CheckBox.Move 10, 10 + (i * 5), 1000, 225
        CheckBox.Visible = True
        CheckBox.Caption = NZ(rs("blubb"))
        i = i + 1
        rs.MoveNext

    Wend
    rs.Close

Hier war mal mein ansatz, wobei diem positionierung natürlich erstmal schwachfug ist.

Hat jmd einen Tip?
 

Jantz

Erfahrenes Mitglied
Hallo, es wäre vb6 gewesen.

Nun das hat sich nun erledigt. Ich habe das Checkbox Array erstellt und dementsprechnent über load (control) erstellen können.

Code:
    Dim i As Integer
    
    i = 1
    While Not rs.EOF
        
        Load Check(i)
        Check(i).Caption = NZ(rs("Test" & i))
        Check(i).Visible = True
        Check(i).Top = Check(i - 1).Top + Check(i).Height
        
        i = i + 1
        rs.MoveNext
    Wend
    rs.Close

Wobei check das Array ist.
So nun fix wieder in Visual Studio 08 und meinem C# ;)

MfG