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 列出當前目錄下所...