Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/loops/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 如何通过读取、插入和删除来编辑列表框中的所有值?VB_Vb.net_Loops_Listbox - Fatal编程技术网

Vb.net 如何通过读取、插入和删除来编辑列表框中的所有值?VB

Vb.net 如何通过读取、插入和删除来编辑列表框中的所有值?VB,vb.net,loops,listbox,Vb.net,Loops,Listbox,我在VB2010中有一个列表框,需要将所有值乘以文本框中键入的数字。必须使用循环读取、删除和插入该值 谢谢当您只想修改现有值时,为什么要删除并重新插入?试试这个: Dim mult = Val(TextBox1.Text) For vIndex = 0 To ListBox1.Items.Count - 1 Dim newVal = Val(ListBox1.Items(vIndex)) * mult ListBox1.Items(vIndex)

我在VB2010中有一个列表框,需要将所有值乘以文本框中键入的数字。必须使用循环读取、删除和插入该值


谢谢

当您只想修改现有值时,为什么要删除并重新插入?试试这个:

    Dim mult = Val(TextBox1.Text)
    For vIndex = 0 To ListBox1.Items.Count - 1
        Dim newVal = Val(ListBox1.Items(vIndex)) * mult
        ListBox1.Items(vIndex) = Trim(Str(newVal))
    Next

更新列表框中的项目很简单。只需在更新按钮的单击事件中编写上述代码

Dim index As Integer=Listbox1.SelectedIndex
Listbox1.Items.Remove(Listbox1.SelectedItem)
Listbox1.Items.Insert(index,Textbox1.Text)

此处文本框包含要更新的值。首先在文本框中写入值。然后选择您希望使用textbox值更新的项目,然后单击更新按钮更新该项目。

一个示例将使事情更加清楚。您的列表框是否只包含数字?这些数字是多重应用程序的初始输入吗?该列表框中的值是否应替换为结果?到目前为止你做了什么?请澄清。你很有把握:)列表框只包含数字。列表框中的数字必须乘以文本框中键入的金额。列表框中的值应替换为结果。”对于vIndex=0到ListBox1.Items.Count-1'vCount=ListBox1.Items(vIndex)'ListBox1.Items.RemoveAt(vIndex)'ListBox1.Items.Insert(vCount,Val(TextBox1.Text)+Val(TextBox1.Text)*0.1)