PROHARDVER! témák
Mobilarena témák
IT café témák
Keresés
Új hozzászólás Aktív témák
-
Homer
tag
Pl. vb.NET-ben:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = InputBox("Add meg a textboxok számát", "Program", 1)
For i As Integer = 0 To x - 1
Dim teksztboksz As New TextBox
teksztboksz.Location = New Point(10, 5 + i * 20)
Me.Controls.Add(teksztboksz)
Next
End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hanyadik As Integer = 0
For Each elem As Object In Me.Controls
If TypeOf elem Is TextBox Then
hanyadik += 1
If elem.text <> "" Then
MsgBox("A(z) " & hanyadik & ". textbox tartalma: " & elem.text)
End If
End If
Next
End Sub
Új hozzászólás Aktív témák
Aktív témák
- Miskolc és környéke adok-veszek-beszélgetek
- Samsung Galaxy S23 Ultra - non plus ultra
- Kuponkunyeráló
- Fotók, videók mobillal
- Milyen billentyűzetet vegyek?
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Samsung Galaxy S24 - nos, Exynos
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Milyen videókártyát?
- Helldivers 2 (PC, PS5)
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- Lenovo ThinkCentre M920q/ Dell OptiPlex 3070/ Hp EliteDesk 800 G4-G5 mini, micro PC-Számla/garancia
- GYÖNYÖRŰ iPhone 13 Pro 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3359
- Bowers & Wilkins Px7 S2 fejhallgatók (több darab akár, rendelésre)
- Dell Precision 5560 i7-11850H vPro FHD+ 100%sRGB 16GB 512GB Nvidia Quadro T1200 1 év teljeskörű gar!
- LG 27GR95UM - 27" MiniLED - UHD 4K - 160Hz 1ms - NVIDIA G-Sync - FreeSync Premium PRO - HDR 1000
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő