用vb編寫為列表框新增刪除選項,用VB編寫一個為列表框新增刪除選項

時間 2021-10-14 21:23:07

1樓:一棵無所不知的小白菜

1、首先開啟vb軟體,繪製好相應的控制元件,兩個命令按鈕,一個列表框,一個文字框。

2、接下來大概更改一下各個控制元件的屬性。

3、然後編寫命令按鈕從鍵盤輸入文字框,並能能夠新增專案**。

4、編寫刪除**,記得要遍歷查詢。

5、執行後便可以看到這樣的程式。即編寫一個為列表框新增刪除選項成功。

2樓:匿名使用者

vb6.0中可使用additem 方法將專案新增到 listbox 或 combobox 控制元件中。也可使用

removeitem 方法從 listbox 或 combobox 控制元件中刪除專案。

additem 方法:用於將專案新增到 listbox 或 combobox 控制元件,或者將行新增到 ms flex grid控制元件。不支援命名引數。

removeitem 方法:用以從 listbox 或 combobox 控制元件中刪除一項,或從 ms flex grid

控制元件中刪除一行。不支援命名引數。

**示例:

先使用 addltem 方法增加 100 項給一個列表框。然後使用removeitem 方法按要求刪除偶數專案。

private sub form_click()

dim entry, i, msg   ' 宣告變數。

msg = "點確定增加100個專案到列表框。"

msgbox msg   ' 顯示資訊。

for i = 1 to 100   ' 計數值從 1 到 100。

entry = "entry " & i   ' 建立輸入項。

list1.additem entry   ' 新增該輸入項。

next i

msg = "點確定移除專案所有其它專案"

msgbox msg   ' 顯示資訊。

for i = 1 to 50   ' 確定如何

list1.removeitem i   ' 每隔一項

next i   ' 刪除。

msg = "點確認從列表框刪除所有專案。"

msgbox msg   ' 顯示資訊。

list1.clear

end sub

3樓:林賢佐

public class form1

private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles button2.

click

me.listbox1.items.clear()

end sub

private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.

click

me.listbox1.selecteditems.clear()

end sub

private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.

load

me.keypreview = true

end sub

private sub textbox1_keydown(byval sender as object, byval e as system.windows.forms.

keyeventargs) handles textbox1.keydown

if e.keycode = keys.enter then

dim id as integer = -1

if me.listbox1.items.contains(me.textbox1.text) then

id = me.listbox1.items.indexof(me.textbox1.text)

if id > -1 then

me.listbox1.setselected(id, true)

end if

else

me.listbox1.items.add(me.textbox1.text)

me.textbox1.text = string.empty

me.textbox1.focus()

end if

end if

end sub

end class

'助人為樂,不求分數。

怎麼設定VB列表框多行顯示,VB列表框multiselect屬性設定問題?求解

超人影視娛樂 要在list的屬性視窗設定 multiselect 多選屬性 基值可為 0 每次只選一個 1 同時選多個 2 可用shift連選,ctrl不連續選擇應該將mulstiselect設為1。問題2 在 中實現 private sub command1 click for i 0 to li...

VB將列表框1的內容全部複製到列表框2中

dim n,m as int.m 0for n 0 to 29 if list1.n 質數 then list2.m list1.n m m 1 end if vb中 怎樣使列表框1的專案新增到列表框2中 前提 給窗體加個 listbox 名為 list1private sub form load ...

在matlab的gui中弄列表框,列表框可以顯示某個路徑

if srclen m dbfilter.filterlen 1 灰姑娘的霸氣 使用fid直接加入路徑讀取即可 fid fopen x 路徑 jpg matlab使用dir函式獲得指定資料夾下的所有子資料夾和檔案,並存放在在一種為檔案結構體陣列中.dir函式可以有呼叫方式為 dir 列出當前目錄下所...