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

• Tomaaasz aktív tag

  #2234

  #2233 Tomaaasz

  2013-11-06 19:12:42

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Tomaaasz

  aktív tag

  #2233 Tomaaasz

  #2233 Tomaaasz

  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!

  Nos, közben siker.

  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