循环每2个TextBox

时间:2016-11-25 19:47:08

标签: vb.net

我一直在考虑如何循环使用整数作为值的文本框并将其插入列表视图中。我的文本框从Textbox2.Text开始,以Textbox41.Text结束。问题是我需要检查每两个文本框(例如textbox2和textbox3)并插入listview。我不知道如何循环其他文本框。

Try
   If TextBox2.Text <> Nothing And TextBox3.Text <> Nothing Then
      Pid += 1
      At = TextBox2.Text
      Bt = TextBox3.Text

      Table = ListView1.Items.Add(Pid)
      With Table
         .SubItems.Add(At)
         .SubItems.Add(Bt)
      End With

      TextBox2.Text = Nothing
      TextBox3.Text = Nothing
   End If
Catch ex As Exception
    MsgBox("Must be numbers!")
End Try

1 个答案:

答案 0 :(得分:0)

如果您的应用程序是Windows窗体,这就是获取所有整数值的方法......

Dim intList As New List(Of Integer)()
For Each c As Control In Me.Controls
    If c.GetType Is GetType(TextBox) Then
        Dim txtControl As TextBox = CType(c, TextBox)
        If Integer.TryParse(txtControl.Text, 0) Then
            intList.Add(Convert.toInt32(txtControl.Text))
        End If
    End If
Next