Hirdetés
- Luck Dragon: Asszociációs játék. :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- GoodSpeed: Ágymatrac keresési kálvária
- sziku69: Fűzzük össze a szavakat :)
- gban: Ingyen kellene, de tegnapra
- sh4d0w: Kalózkodás. Kalózkodás?
- btz: Internet fejlesztés országosan!
- Pajac: száz pí
Ú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
- RENNSPORT
- VR topik (Oculus Rift, stb.)
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- PH! aranyköpések
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Óra topik
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Milyen légkondit a lakásba?
- Milyen TV-t vegyek?
- További aktív témák...
- Epson Workforce DS-530II dokumentumszkenner
- AKCIÓ! HP EliteBook x360 830 G7 i5-10210U 16GB 512GB 1 év garancia
- BESZÁMÍTÁS! ASRock Fatal1ty Z97 Killer alaplap garanciával hibátlan működéssel
- HP Z8 G4 Workstation (gamer célra is) dupla CPU Xeon Gold 6134
- iKing.Hu-Nothing Phone 3a Pro Grey Glyph stílus, 3 optikai zoom 12/256 GB -3 hónap garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő




