Question

Hy Everyone 如何减去列表框项目按下文本框按钮列表框第一个项目与textbox1 sutract 和listbox第二项用textbox2减去等等这里我的代码工作但是很长

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    TextBox1.Text = CDbl(ListBox1.Items.Item(0)) - CDbl(TextBox1.Text)
TextBox2.Text = CDbl(ListBox1.Items.Item(1)) - CDbl(TextBox2.Text)

End Sub 等等请帮忙

Answer 1

您可以使用For Loop执行此操作，但请确保TextBoxes的数量等于ListBox项：

For iIndex As Integer = 0 To ListBox1.Items.Count - 1
    Result = CDbl(Me.ListBox1.Items(iIndex)) - CDbl(Me.Controls.Item("TextBox" & iIndex + 1).Text)
Next

如何使用列表框项减去文本框

1 个答案: