Hirdetés

Keresés

Új hozzászólás Aktív témák

  • Tomaaasz
    aktív tag

    Sziasztok!

    Egy végtelenül egyszerű problémával állok szemben, de 2 óra masszív guglizás után se találtam meg a választ.

    TextBox okat szeretnék létrehozni a kódból, de tetszőleges számút, vagyis a "Visible" Ture/False váltogatásával nem igazán vagyok kisegítve... :)
    Maga a program egy adatbázis megjelenítő, és a rekordok száma lenne a textboxok száma is.

    Sub sorSzamol()
    Dim azonTomb(maxSor) As Integer
    Dim szamlalo As Integer
    szamlalo = 0
    Do While szamlalo < maxSor
    azonTomb(szamlalo) = ds.Tables("Azon").Rows(szamlalo).Item("Azonosító")




    szamlalo = szamlalo + 1
    Loop


    End Sub

    Eddig szép és jó. Milyen paranccsal tudom megoldani?

    Köszönöm! :R

    Nos, közben siker. :B

    Do While szamlalo < maxSor
    azonTomb(szamlalo) = ds.Tables("Azon").Rows(szamlalo).Item("Azonosító")
    Dim txt1 As New TextBox
    Me.Controls.Add(txt1)
    With txt1
    .Name = "txtAzon" & szamlalo
    .Text = azonTomb(szamlalo)
    .Height = 20
    .Width = 50
    .Left = 10
    .Top = 10 * szamlalo * 2
    End With
    txt1 = Nothing
    szamlalo = szamlalo + 1
    Loop

Új hozzászólás Aktív témák