✔ Checkboxen generieren

[Jantz]

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.

    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?

 

[ronaldh]

Du solltest uns verraten, mit welchem VB Du arbeitest.

 

[Jantz]

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.

    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