我在combo里放了制表符，代碼如下：
combostr = sheng & Chr(9) & shi & Chr(9) & name
Combo1.AddItem combostr
用于字串隔開顯示，想要的效果是這樣：
河南 濮陽
河南 濮陽 濮陽縣
河南 駐馬店 平輿縣
但是實際效果是這樣的：
只是在combo1.text里有制表符，下拉框中沒有，請問如何能讓下拉框里也有制表符？
uj5u.com熱心網友回復：
不好辦，還是自己補空格吧uj5u.com熱心網友回復：
那這就不好辦了。。。
uj5u.com熱心網友回復：
辦法很多，可惜你是外觀控，所以就不好解決了。uj5u.com熱心網友回復：
簡單點的，比如就不用制表符了，換個橫線也好河南-濮陽
河南-濮陽-濮陽縣
河南-駐馬店-平輿縣
想要再看清楚一點的，夾兩個空格進去
河南 - 濮陽
河南 - 濮陽 - 濮陽縣
河南 - 駐馬店 - 平輿縣
你想要對齊效果的，計算出每列里最大字數的那欄，按那個來計算空格數。。。
再省事一點的，干脆用三個combo，地名聯動就行了。地名表網上很多，稍微改一下就可以用進去。
最不濟的，combo控制元件自己做，下拉欄可以用picturebox畫出效果來，代替掉，那就是多費點事。
uj5u.com熱心網友回復：
用tab字符本身就是一個錯誤的設計！比如你試試內蒙古察哈爾右翼后旗XXX村
uj5u.com熱心網友回復：
內蒙古達爾罕茂明安聯合旗uj5u.com熱心網友回復：
我試了一下，這個應該可以：sheng = "河南"
shi = "濮陽"
Name1 = "濮陽縣"
Combo1.AddItem "河南" & Space(3) & "駐馬店" & Space(3) & "平輿縣"
Combo1.AddItem sheng & Space(3) & shi & Space(3) & Name1
Space(x) 是在字串放置空格，x是空格的個數，你也試試。
uj5u.com熱心網友回復：
用 ComboBox 和 ListBox 拼一個。緊貼 ComboBox 下沿放一個 ListBox：
Private Sub Combo1_DropDown()
List1.Visible = True
List1.SetFocus
End Sub
Private Sub Form_Load()
Combo1.AddItem "河南" & vbTab & "濮陽" & vbTab & ""
List1.AddItem "河南" & vbTab & "濮陽" & vbTab & ""
Combo1.AddItem "河南" & vbTab & "濮陽" & vbTab & "濮陽縣"
List1.AddItem "河南" & vbTab & "濮陽" & vbTab & "濮陽縣"
Combo1.AddItem "河南" & vbTab & "駐馬店" & vbTab & "平輿縣"
List1.AddItem "河南" & vbTab & "駐馬店" & vbTab & "平輿縣"
List1.Height = List1.ListCount * 240
List1.ListIndex = 0
List1.Visible = False
End Sub
Private Sub List1_Click()
Combo1.ListIndex = List1.ListIndex
List1.Visible = False
End Sub
uj5u.com熱心網友回復：
可以加上：Private Sub Form_Click()當滑鼠點擊表單其他地方時，可以放棄點選 List 串列項。
List1.Visible = False
End Sub
uj5u.com熱心網友回復：
用空格好了。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/65423.html
標籤：控件
上一篇：新手請教
下一篇：vb用TEXT1建立多級檔案