我必須創建一個帶有幾個(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