Dynamische Textfelder steuern

Question

Ich möchte ein Programm erstellen, das 6 TextBox Steuerelemente hinzufügt, indem Sie auf eine Schaltfläche klicken und dann die Summe von 6 Zahl in Textfeldern in einem Etikett anzeigen.

Ich habe Code geschrieben, der Textfelder hinzufügt, aber ich habe ein Problem mit ihrer Summe. Wie kann ich alle Textfelder Werte erhalten?

Public Class Form1 
    Dim txtn As Integer = 1 
    Dim sum As Integer 


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     AddNewTextBox() 
    End Sub 
    Public Function AddNewTextBox() As TextBox 
     Dim txt As New TextBox() 
     Controls.Add(txt) 
     txt.Top = txtn * 25 
     txt.Left = 200   
     If txtn < 6 Then 
      txtn = txtn + 1  
      Return txt 
     Else 
      MsgBox("sorry you reached the max number of text boxes") 
     End If 
    End Function 

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click 
     Label1.Text =  'problem??? 
    End Sub 

End Class 

Answer 1

Sie benötigen einen halten einen Verweis auf die Textfelder erhalten Sie erstellen dynamisch . Sie können dies tun, indem Sie sie zur Liste hinzufügen, wenn Sie sie erstellen und dann beim Zusammenfassen auf sie zugreifen.

Public Class Form1 
    Dim txtn As Integer = 1 
    Dim sum As Integer 

    Private _textboxesToSum As New List(Of TextBox) 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     AddNewTextBox() 
    End Sub 

    Public Function AddNewTextBox() As TextBox 
     Dim txt As New TextBox() 
     Controls.Add(txt) 
     _textboxesToSum.Add(txt) 
     txt.Top = txtn * 25 
     txt.Left = 200 
     If txtn < 6 Then 
      txtn = txtn + 1 
      Return txt 
     Else 
      MsgBox("sorry you reached the max number of text boxes") 
     End If 
    End Function 

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click 
     Label1.Text = _textboxesToSum.Select(Of Integer)(Function(t) If(IsNumeric(t.Text), t.Text(), 0)).Sum() 
    End Sub 

End Class 

Sie können es auch tun, durch alle Textfelder auf dem Formular eine Näherung durch Iteration, aber Sie könnten einige andere Textfelder dort haben, einen anderen Zweck dienen.

Answer 2

Vor diesem stellen Sie sicher, bestätigen Texbox Eingabe numerisch ist nur

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click 
    Dim i As Integer = 0 
    For Each T As Textbox In Me.Controls.OfType(Of TextBox)() 
     Try 
      i = i + Val(t.text) 
     Catch ex As Exception 

     End Try 

    Next 
    Label1.Text = i 
End Sub 

Schleife aktualisiert ...