我必须创建一个带有几个(8)名称的列表框&双击列表框中的名称将从中删除名称。visual basic:帮助从列表框中删除项目
我已经使用listbox.items.add方法&将名称添加到表单中将显示其中的名称。
然后我使用“listbox.items.remove”方法在double_click过程(listbox)中输入8个名字的编码。 但是,当我尝试双击列表框中的名称时,它会删除所有名称。 我需要什么编码?帮助赞赏!
我必须创建一个带有几个(8)名称的列表框&双击列表框中的名称将从中删除名称。visual basic:帮助从列表框中删除项目
我已经使用listbox.items.add方法&将名称添加到表单中将显示其中的名称。
然后我使用“listbox.items.remove”方法在double_click过程(listbox)中输入8个名字的编码。 但是,当我尝试双击列表框中的名称时,它会删除所有名称。 我需要什么编码?帮助赞赏!
如果您正在查看动态删除项目,我认为您应该查看Jquery,Ajax,DOM 有几个不错的教程可以帮助您。我只是碰到这一个,觉得它很有趣 http://www.satya-weblog.com/2010/02/add-input-fields-dynamically-to-form-using-javascript.html
Option Strict On
Option Explicit On
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Clear()
ListBox1.Items.Add("1")
ListBox1.Items.Add("2")
ListBox1.Items.Add("3")
ListBox1.Items.Add("4")
ListBox1.Items.Add("5")
ListBox1.Items.Add("6")
ListBox1.Items.Add("7")
ListBox1.Items.Add("8")
End Sub
Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
Dim i As Integer = ListBox1.SelectedIndex
If i >= 0 And i < ListBox1.Items.Count Then
ListBox1.Items.RemoveAt(i)
End If
End Sub
End Class
奖励功能:双击空白处粘贴列表的末尾。 – 2011-05-24 05:42:48