我一直在考虑如何循环使用整数作为值的文本框并将其插入列表视图中。我的文本框从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
答案 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