Új hozzászólás Aktív témák

• #1946 Homer tag EkSYS #1943

  Új Válasz 2013-01-27 20:42:26 #1946

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Homer

  tag

  válasz EkSYS #1943 üzenetére

  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 Sub

  Private 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