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
- Veszprém és környéke adok-veszek-beszélgetek
- Android alkalmazások - szoftver kibeszélő topik
- Elemlámpa, zseblámpa
- Linux kezdőknek
- Óvodások homokozója
- sziku69: Fűzzük össze a szavakat :)
- Milyen program, ami...?
- Kertészet, mezőgazdaság topik
- Androidos tablet topic
- Milyen autót vegyek?
- További aktív témák...
Új fizetett hirdetések
- 10.gen PC // i5 10400F / RTX 2060 6GB / 16GB RAM / SSD+HDD //
- Ryezn PC // Ryzen 5 4500 / RTX 2060 6GB / 32GB DDR4 / 256GB SSD + 1TB HDD //
- MSI PRO X870-P WIFI
- 2014 Opel Adam 1.4Benzin GLAM White 87Le 175.000km Megkímélt Eladó-Cserélhető
- 2008 Fiat 500 1.2 8V 69Le Sport 139.000Km Hibakódmentes Eladó-Cserélhető
Üzleti előfizetők hirdetései
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Gamer PC-Számíógép! Csere-Beszámítás! I7 13700F / RTX 4070Ti Super 16GB OC / 32GB DDR5 / 1TB SSD
- HIBÁTLAN iPhone 14 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3238
- Telefon felváráslás!! Xiaomi Redmi Note 11, Xiaomi Redmi Note 11 Pro, Xiaomi 11 Lite
- HIBÁTLAN iPhone 15 Pro Max 256GB Black Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3497
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

