Hirdetés
- Fotók, videók mobillal
- Vivo X200 Pro - a kétszázát!
- Garmin Instinct – küldetés teljesítve
- Samsung Galaxy A56 - megbízható középszerűség
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- iPhone topik
- Xiaomi 11 Lite 5G NE (lisa)
- Apple iPhone 15 Pro Max - Attack on Titan
- MWC 2026: Kezünkben a Vivo V70, megvan a magyar ára is
Ú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
- Elektromos autók - motorok
- Gyúrósok ide!
- Xiaomi Mi Box androidos médialejátszó 4K és HDR támogatással
- Andras-G: Az internet veszélyei [2. rész] - Facebook Marketpalce
- Mikrokontrollerek Arduino környezetben (programozás, építés, tippek)
- eMAG vélemények - tapasztalatok
- exHWSW - Értünk mindenhez IS
- BMW topik
- Autós topik
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- MICROSOFT Surface Book 2,13.5", i5-7200U,8GB RAM,256GB SSD,WIN11
- 156 - Lenovo LOQ (15IRH8) - Intel Core i5-13505H, RTX 4060 (ELKELT)
- Lenovo ThinkPad T480s,14",FHD,i5-7300U,8GB DDR4,256GB SSD,WIN11,TOUCH
- 270 - Lenovo Yoga Pro 9 (16IAH10) - Intel Core U9 285H, RTX 5070 (ELKELT)
- BESZÁMÍTÁS! ASUS H310M i5 8500 16GB DDR4 240GB SSD GTX 1060 6GB Zalman T3 Plus CoolerMaster 500W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest




