1樓：勤紫瓊
private sub command1_click() combo1.additem ("馬爾地夫") end sub 這樣就可以新增一項,內容為"馬爾地夫" 希望對你有所幫助!
vb組合框設計時怎麼新增列表？
2樓：霸道的浴霸
vb可使用additem 方法在組合框中新增專案。
為在組合框中新增專案，應使用 additem 方法，其語法如下：
通常在 form_load 事件過程中新增列表專案，但也可在任何時候使用 additem 方法。這樣一來就能夠動態地（響應使用者的操作）在列表中新增專案。
組合框控制元件將文字框和列表框的功能結合在一起。有了這個控制元件，使用者可通過在組合框中輸入文字來選定專案，也可從列表中選定專案。
組合框向使用者提供了供選擇的列表。如果專案數超過了組合框能夠顯示的專案數，控制元件上將自動出現滾動條。使用者即可上下或左右滾動列表。
vb組合框設計時怎麼新增列表？
3樓：匿名使用者
combo1.additem "內容"
怎麼在vb組合框裡新增多個可選內容？？
4樓：匿名使用者
窗體載入時執行：
sub loadcmb()
combobox1.additem "長跑"
combobox1.additem "游泳"
combobox1.additem "跳遠"
．．．．．．．．．．．．．．．
end sub
如果是在控制元件屬性中在list的值，增加一個按一下回車增加第二個，再修改itemdata的順序即可
5樓：home傷心離別
通過窗體載入事件或list屬性
6樓：於寶苑碧蓉
'問題1:
vb組合框新增專案
combo1.additem
256'問題2:
vb6.0
listbox
不能輸入內容吧
vb的combobox如何新增項？
7樓：匿名使用者
1.combobox1.items.add("aaaaa")combobox1.items.add("bbbbb")......
combobox1.items.add("zzzzz")--------------------------------------
2.手動在屬性list 中添回加答
vb組合框執行後，其中不可以新增新的內容，怎麼弄啊
8樓：匿名使用者
怎麼新增不了，可以吧你**貼出來。
比如新增一項ddd，用法是:
com控制元件.add "ddd"
9樓：菸斗郎
不太理解你問的是什麼
vb中對於簡單組合框如何將文字內容輸入到組合框中？
10樓：牛a和牛c間徘徊
假設你的組合框是combo1,在窗體中加入如下**private sub combo1_keypress(keyascii as integer)
if keyascii = 13 then '如果按鍵是回車keyascii = 0 '防止出現咚咚聲combo1.additem combo1.text '新增到列表裡面
combo1.text = "" '清空文字框end if
end sub
vb中單擊組合框中的某一項時,此項新增到列表框中?該程式怎麼編寫?
11樓：匿名使用者
在窗體上新增一個combo1和一個list1控制元件，輸入以下**：
private sub form_load()combo1.additem "aaa"
combo1.additem "bbb"
combo1.additem "ccc"
combo1.additem "ddd"
end sub
private sub combo1_click()list1.additem combo1.textend sub
12樓：流星劍
private sub form_load()with combo1
.additem "a"
.additem "b"
.additem "c"
.listindex = 0
end with
end sub
private sub combo1_click()list1.additem combo1.textend sub
VB將文字框中的漢字按拼音排序
首先將漢字轉為ascii碼陣列，然後對ascii碼陣列排序。再將ascii碼陣列轉換為字元，大功告成了。以下 經測試完全正確。dim lasc j as long private sub command1 click dim i as long,j as long,k as long dim r a...
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 ...
vb中我想在文字框中輸入某個數，然後按enter鍵之後，呼叫function
聽不清啊 private sub command1 click dim x as long x text1 yes true for i 2 to sqr x if x mod i 0 then yes false exit for end if next i if yes then label1....