- mefistofeles: Az elhízás nem akaratgyengeség! 2 Ahogy én csinálom.......
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Geri Bátyó: Agglegénykonyha 13 – Néhány egyszerű, de finom étel
- MasterDeeJay: Legújabb retró beszerzésem - 3Dfx Voodoo4 4500 32Mb
- mefistofeles: Az elhízás nem akaratgyengeség!
- aquark: RETRO: Idén lesz 30 éves az első full 3D-s játék!
- potyautas: Norvég nyár
- D1Rect: Nagy "hülyétkapokazapróktól" topik
Új hozzászólás Aktív témák
-
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 -
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 SubEddig szép és jó. Milyen paranccsal tudom megoldani?
Köszönöm!

Új hozzászólás Aktív témák
- mefistofeles: Az elhízás nem akaratgyengeség! 2 Ahogy én csinálom.......
- VGA kibeszélő offtopik
- pfSense - Avagy az okosított házirouter
- Allegro vélemények - tapasztalatok
- Anglia - élmények, tapasztalatok
- Villanyszerelés
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Gyúrósok ide!
- Telekom mobilszolgáltatások
- A fociról könnyedén, egy baráti társaságban
- További aktív témák...
- Telefon felvásárlás!! Apple Watch Series 6/Apple Watch Series 7/Apple Watch Series 8
- Xiaomi Redmi 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- Dell Latitude 9420 i5-1145G7 14" FHD+ 16GB 512GB 1 év garancia
- Bomba ár! Lenovo IdeaPad B71-80: Intel 4415U I 8GB I 500GB I 17,3" HD+ I Cam I W11 I Garancia!
- Telefon felváráslás!! Xiaomi Redmi Note 11, Xiaomi Redmi Note 11 Pro, Xiaomi 11 Lite
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest




