如何使用列表框项减去文本框 [英] How to subtract Textbox with listbox items

问题描述

Hy Everyone

如何减去列表框项目使用Textbox On Button按

listbox第一项sutract with textbox1

和listbox第二项减去textbox2

等等

这里我的代码工作但很冗长

 私有  Sub  Button1_Click（发件人作为 对象，e 作为 EventArgs）句柄 Button1 .Click 
 TextBox1.Text =  CDbl （ListBox1.Items.Item（ 0 ）） -  CDbl （TextBox1.Text）
 TextBox2.Text =  CDbl （ListBox1.Items.Item（  1 ）） -   CDbl （TextBox2.Text）
 结束  Sub  

等等

请帮助

解决方案

< blockquote>您可以尝试创建一个文本框数组，然后您可以通过它们的索引号迭代这些文本框。参见示例：

 Public Class Form8 
 Dim textboxes（2）As TextBox 
 Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As System .EventArgs）处理Button1.Click 
索引As Integer = 0 To 2 
 textboxes（index）.Text = CDbl（ListBox1.Items.Item（index）） -  CDbl（textboxes（index）.Text ）
 Next 
 End Sub 
 
 Private Sub Form8_Load（ByVal sender As System.Object，ByVal e As System.EventArgs）Handles MyBase.Load 
 For i = 0 to textboxes.Length  -  1 
 textboxes（i）= New TextBox 
 textboxes（i）.Left = 150 
 textboxes（i）.Top = 25 * i + 25 
 Me .Controls.Add（textboxes（i））
 Next 
 End Sub 
 End Class 

Hy Everyone
How to subtract Listbox item With Textbox On Button press
listbox first item sutract with textbox1
and listbox 2nd item subtract with textbox2
and so on
here my code its work but so lengthy

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

and so on
Please help

解决方案

You can try creating an array of textboxes, then you can iterate through these textboxes by their index numbers. See example:

Public Class Form8
    Dim textboxes(2) As TextBox
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For index As Integer = 0 To 2    
            textboxes(index).Text = CDbl(ListBox1.Items.Item(index)) - CDbl(textboxes(index).Text)
        Next
    End Sub

    Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 0 To textboxes.Length - 1
            textboxes(i) = New TextBox
            textboxes(i).Left = 150
            textboxes(i).Top = 25 * i + 25
            Me.Controls.Add(textboxes(i))
        Next
    End Sub
End Class

这篇关于如何使用列表框项减去文本框的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！