1樓：匿名使用者
private sub combo1_keypress(keyascii as integer)
'① 只能輸入數字
select case keyascii
case 48 to 57, 13 '0～9數字和回車鍵為合法資料
if keyascii = 13 then '如果回車則新增一筆
combo1.additem combo1.text
end if
case else '否則為非法資料，去除非法字元
keyascii = 0 '0值意思就是除了上一個case裡數字與回車放行，其他全部在此攔截
end select
end sub
private sub command1_click()
dim min as integer, imin as integer
dim max as integer, imax as integer
dim t as integer
'②為了運算能正確做比較，這裡的值先設定相反。
min = 32767 '這裡寫個大值，不超過integer限定的32767
max = 0 '這裡寫個小值
for t = 0 to combo1.listcount - 1 step 1
'③ 開始迴圈取出每一個值跟 min、max做比較
'如果取出的值比max大（max就記錄它）
if max < val(combo1.list(t)) then
max = val(combo1.list(t))
imax = t '與max同步記錄位置
end if
'如果取出的值比min小（min就記錄它）
if min > val(combo1.list(t)) then
min = val(combo1.list(t))
imin = t '與min同步記錄位置
end if
next t
' t變數剛剛是做迴圈用途，底下開始的執行作為交換值的用途
'迴圈完畢，最小值、最小值下標、最大值和最大值下標已經完成賦值
'開始依照④要求，先做組合框的第0項與最小值交換
t = val(combo1.list(0))
combo1.list(0) = val(combo1.list(imin))
ombo1.list(imin) = t
'開始依照④要求，最大值與最後項交換（照抄前新增必要的val函式）
t = val(combo1.list(combo1.listcount - 1))
combo1.list(combo1.listcount - 1) = val(combo1.list(imax))
combo1.list(imax) = t
end sub
1.在窗體裡新增一個combo1然後到text屬性清空combo1，屬性style設定為1 ****** combo,然後用滑鼠把控制元件高度拉開。繼續到list屬性裡按照順序填入圖形內指定的值。
再把控制元件的高度寬度調整到適合即可。
2.新增一個命令按鈕command1,到caption屬性改為【交換】文字，可以到font裡面設定文字大小。
3.把窗體的佈局依照**位置調整一下就全部ok了
'說明寫的夠詳細了，如果是作業，就把文字說明刪掉些
2樓：崔玉巧求香
在使用select語句查資料庫的時候使用distinct可以去除重複項，比如：
select
distinct(a),b,c
from
table
這樣查出的結果中就不會有a欄位重複的結果出現
vb組合框設計時怎麼新增列表？
3樓：匿名使用者
combo1.additem "內容"
vb中對於簡單組合框如何將文字內容輸入到組合框中？
4樓：牛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中列表框與組合框的區別？
5樓：匿名使用者
列表框直接顯示和選擇列表項，組合框通過下拉選單選擇列表項
列表框可以多選，組合框只能單選
6樓：匿名使用者
左邊是列表框，右邊是組合框
列表框直接顯示和選擇列表項，組合框通過下拉選單選擇列表項
列表框可以多選，組合框只能單選
vb,組合框控制元件！
7樓：匿名使用者
列表需要新增的，可以在屬性面板的list屬性裡面新增，也可以用語句新增。例如：
combo1.additem "123"
8樓：匿名使用者
雙擊控制元件調整控制元件屬性，選擇特殊效果－>陰影，空白等就可以改變控制元件樣式了。 列表是在這個控制元件裡的源設定的啊，沒有源**來列表啊。
9樓：牛口的牛
就是這樣的，你點那個倒三角就行了
怎麼在vb組合框裡新增多個可選內容？？
10樓：匿名使用者
窗體載入時執行：
sub loadcmb()
combobox1.additem "長跑"
combobox1.additem "游泳"
combobox1.additem "跳遠"
．．．．．．．．．．．．．．．
end sub
如果是在控制元件屬性中在list的值，增加一個按一下回車增加第二個，再修改itemdata的順序即可
11樓：home傷心離別
通過窗體載入事件或list屬性
12樓：於寶苑碧蓉
'問題1:
vb組合框新增專案
combo1.additem
256'問題2:
vb6.0
listbox
不能輸入內容吧
vb中組合框的用法
13樓：匿名使用者
**如制
下，你bai需要自己定義du好zhi單價 private sub command1_click()
select case combo1.text
case "煙"
label1.caption = 8 * val(text1.text)
case "酒"
label1.caption = 15 * val(text1.text)
case "茶"
label1.caption = 12 * val(text1.text)
case "糖
dao"
label1.caption = 7 * val(text1.text)
end select
end subprivate sub form_load()
combo1.additem "煙"
combo1.additem "酒"
combo1.additem "茶"
combo1.additem "糖"
combo1.listindex = 0
end sub
列表框和組合框控制元件有什麼區別，組合框和列表框的區別
1 含義不同 列表框用於提供一組條目 資料項 使用者可以用滑鼠選擇其中一個或者多個條目，但是不能直接編輯列表框的資料 組合框的風格取值定義了組合框的具體屬性，包括是否自動排序，是否有滾動條。2 專案輸入方式不同 列表框的方式是先會顯示一系列的控制元件選項供使用者選擇，之後對選中的進行後續處理，使用者...
vb設計計時器，vb 設計一個計時器
10ms產生一次timer事件是不行的 因為vb的timer是有一個精度的，精度大約在55ms，所以interval再小就不起作用了，api gettickcount的精度大約也是在55ms，要想獲得更高的精度，可以用api timegettime，其精度大約在1 10ms，如果這個仍然滿足不了你的...
怎麼組合圖表和文字框，word怎麼組合圖表和文字框
搞了很久，圖表是無法直接插入到文字框裡面的，但可以組合起來。選擇所有圖表 右鍵版置於頂層，權 排好插入文字的文字框的位置，再ctrl 選中所有要組合的文字框和圖示，右鍵組合，以後就可以點一次滑鼠選中移動組合起來的圖表和對應的文字了。選中文字框，單擊 複製 或者 剪下 命令，再選中圖表，單擊 貼上 命...