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

• #2234 Tomaaasz aktív tag Tomaaasz #2233

  Új Válasz 2013-11-06 19:12:42 #2234

  Ú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

  Privát üzenet küldése

  

  Tomaaasz

  aktív tag

  válasz Tomaaasz #2233 üzenetére

  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