dotNETportal.cz

Caute pouzivam na dynamicky vypis checkBoxov nasledujuci kod(urcite udaje citam z DB)

Na zvysly vypis

    Dim con As New OleDbConnection(pripojovaci_retazec)
        Dim com As New OleDbCommand("SELECT * FROM ciselnikSkupina", con)

        Dim i As Integer = 1
        Dim x As Integer = 100

        con.Open()
        Dim dataReader As OleDbDataReader = com.ExecuteReader
        Do While dataReader.Read ' posun na další řádky, dokud jsou k dispozici

            Dim checkBox As CheckBox = New CheckBox
            ' Console.WriteLine(String.Format("Záznam: {0}", dataReader("id"))) ' zobrazí záznam
            Me.Controls.Add(checkBox)
            checkBox.Name = i
            checkBox.Text = i
            checkBox.Location = New Point(500, x)
            i = i + 1
            x = x + 50
        Loop
        con.Close()

bez problemov funguje

ale problem je ked chcem dat vypisat vodorovne a pouzijem tento kod

    Dim con As New OleDbConnection(pripojovaci_retazec)
        Dim com As New OleDbCommand("SELECT * FROM ciselnikSkupina", con)

        Dim i As Integer = 1
        Dim x As Integer = 100

        con.Open()
        Dim dataReader As OleDbDataReader = com.ExecuteReader
        Do While dataReader.Read ' posun na další řádky, dokud jsou k dispozici

            Dim checkBox As CheckBox = New CheckBox
            ' Console.WriteLine(String.Format("Záznam: {0}", dataReader("id"))) ' zobrazí záznam
            Me.Controls.Add(checkBox)
            checkBox.Name = i
            checkBox.Text = i
            checkBox.Location = New Point(x, 500)
            i = i + 1
            x = x + 50
        Loop
        con.Close()

vypise len prvy a ostatne nie.

Nechapem,.......

vdaka

cujan

Vodorovně se další textbox nemá kam zobrazit, protože není definovaná velikost textboxů.

Přidejte do kódu:

  checkBox.AutoSize = True