- Fejhallgató erősítő és DAC topik
- A jövőben egy új foglalat több CPU-generációt is kiszolgál majd az Intelnél
- Windows 11: miért nem vált mindenki?
- Kormányok / autós szimulátorok topikja
- Milyen TV-t vegyek?
- Vezeték nélküli fülhallgatók
- Mini PC
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Hobby elektronika
- Milyen széket vegyek?
Ú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
- Formula-1
- Forza sorozat (Horizon/Motorsport)
- iPhone topik
- Futás, futópályák
- Hálózati / IP kamera
- sziku69: Fűzzük össze a szavakat :)
- Kingdom Come: Deliverance 2 fordító: "Kirúgtak, és AI-val pótolnak”
- Óvodások homokozója
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- MWC 2026: Bajnoki címre pályázik a Xiaomi Watch 5
- További aktív témák...
- Honor 400 Pro 12/512GB Újszerű,Kártyafüggetlen,Dobozos,Tartozékaival. 1 Év Garanciával!
- ASUS GeForce RTX 4070 DUAL 12GB GDDR6X OC
- ASUS TUF A14 (2024) Ryzen AI 9 370HX / RTX 4060 / 32GB / 1TB / dobozos, megkímélt
- XPS 9530 15.6" FHD+ IPS i7-13700H RTX 4050 16GB 512GB NVMe ujjlolv IR kam gar
- Asus Zenbook 14-OLED-,2.8K - Ultra 7 155H,16GB/1TB SSD-Garancia!
- 270 - Lenovo Yoga Pro 9 (16IAH10) - Intel Core U9 285H, RTX 5070 (ELKELT)
- HP ZBook Fury 17 G8 i7-11800H 32 GB RAM 1TB SSD NVIDIA RTX A3000 Garancia
- Konzol felvásárlás!! Xbox Series S, Xbox Serries X
- Bomba áron eladó Asus Vivobook S433EA /i7-1165G7/16GB/512 GB SSD/FHD/IPS
- Everycom Cubelite Ultra projektor
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest




