- Huawei Watch GT 5 Pro - egészség + stílus
- Google Pixel 8 Pro - mestersége(s) az intelligencia
- Garmin Forerunner 970 - fogd a pénzt, és fuss!
- QWERTY billentyűzet és másodlagos kijelző is lesz a Titan 2-ben
- Samsung Galaxy A56 - megbízható középszerűség
- Google Pixel topik
- A Galaxy Z Fold7, minden színben és oldalról
- Macrodroid
- Nem fogy a Galaxy S25 Edge?
- Fotók, videók mobillal
Ú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
- Gitáros topic
- Kerékpársportok
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- GeForce RTX 5050 VGA-k hármasfogata a Gigabyte elképzelése alapján
- One otthoni szolgáltatások (TV, internet, telefon)
- Milyen digitális videókamerát?
- Facebook és Messenger
- Konteó topic
- Huawei Watch GT 5 Pro - egészség + stílus
- Filmvilág
- További aktív témák...
- Csere-Beszámítás! Intel Core I5 14600K Processzor!
- Csere-Beszámítás! Lenovo Legion 5 White ! R5 5600H / RTX 3050Ti 6GB / 16GB / 500GB SSD
- T14 Gen1 14" FHD IPS i5-10310U 16GB 256GB NVMe magyar vbill ujjlolv IR kam gar
- FÓLIÁS! LG UltraWide 35WN75C-B Ívelt Monitor! 3440x1440 VA / 100Hz / 5ms / FreeSync
- Tom Clancy's The Division - Sleeper Agent Edition Xbox One
- Bomba ár! Dell Latitude 5495 - Ryzen 5 I 16GB I 256SSD I 14" FHD I HDMI I Radeon I Cam I W10 I Gari!
- Samsung Galaxy A14 64GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPhone 15 Pro Max - Natural Titanium - Újszerű karcmentes állapotban! 100% akku! Gyári garis!
- 119 - Lenovo Legion Pro 5 (16ARX8) - AMD Ryzen 7 7745HX, RTX 4070 (48 hónap garancia!) (ELKELT)
- Bomba ár! Dell Inspiron 15 3511 - i5-11GEN I 8GB I 256SSD I HDMI I 15,6" FHD I Cam I W11 I Gari
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest