Hirdetés
- Luck Dragon: MárkaLánc
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Meggyi001: Áram nélkül....méltóság nélkül.....
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Luck Dragon: Óraátállítás
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- MasterDeeJay: Intel Optane M10: mire lehet használni?
Ú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
- Szomjan halunk, míg az AI dolgozik
- Mi lesz a Facebook fiókoddal, ha meghalsz?
- Kompakt vízhűtés
- Luck Dragon: MárkaLánc
- sziku69: Fűzzük össze a szavakat :)
- Vezetékes FÜLhallgatók
- Kötelező frissítésnek számít a Microsoft legújabb csomagja a Windows 11-hez
- Azonnali fáradt gőzös kérdések órája
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Milyen Android TV boxot vegyek?
- További aktív témák...
- ÁRGARANCIA!Épített KomPhone i5 10400F 16/32/64GB RAM RTX 3050 6GB GAMER PC termékbeszámítással
- Eladó ÚJ TCL 501 2/32GB fekete / 12 hó jótállás
- Telefon felvásárlás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
- Cisco Catalyst C1000-48T-4G-L 48xRJ45 4xSFP switch
- iPhone 15 Pro 256GB 88% (1év Garancia)- ÚJ EREDETI AKKUMULÁTOR - AKCIÓ
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



