2011-05-24 94 views
0

我必须创建一个带有几个(8)名称的列表框&双击列表框中的名称将从中删除名称。visual basic:帮助从列表框中删除项目

我已经使用listbox.items.add方法&将名称添加到表单中将显示其中的名称。

然后我使用“listbox.items.remove”方法在double_click过程(listbox)中输入8个名字的编码。 但是,当我尝试双击列表框中的名称时,它会删除所有名称。 我需要什么编码?帮助赞赏!

回答

1
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 
+0

奖励功能:双击空白处粘贴列表的末尾。 – 2011-05-24 05:42:48