combo里怎么放制表符？

[omg211]

我在combo里放了制表符，代码如下：
combostr = sheng & Chr(9) & shi & Chr(9) & name
Combo1.AddItem combostr
用于字符串隔开显示，想要的效果是这样：
河南 濮阳
河南 濮阳 濮阳县
河南 驻马店 平舆县

但是实际效果是这样的：

只是在combo1.text里有制表符，下拉框中没有，请问如何能让下拉框里也有制表符？

[笨狗先飞]

不好办，还是自己补空格吧

[omg211]

引用 1 楼 bakw 的回复:

不好办，还是自己补空格吧

那这就不好办了。。。

[ZHRXJR]

我试了一下，这个应该可以： sheng = "河南" shi = "濮阳" Name1 = "濮阳县" Combo1.AddItem "河南" & Space(3) & "驻马店" & Space(3) & "平舆县" Combo1.AddItem sheng & Space(3) & shi & Space(3) & Name1 Space(x) 是在字符串放置空格，x是空格的个数，你也试试。

[笨狗先飞]

办法很多，可惜你是外观控，所以就不好解决了。

[笨狗先飞]

简单点的，比如就不用制表符了，换个横线也好 河南-濮阳 河南-濮阳-濮阳县 河南-驻马店-平舆县 想要再看清楚一点的，夹两个空格进去 河南 - 濮阳 河南 - 濮阳 - 濮阳县 河南 - 驻马店 - 平舆县 你想要对齐效果的，计算出每列里最大字数的那栏，按那个来计算空格数。。。 再省事一点的，干脆用三个combo，地名联动就行了。地名表网上很多，稍微改一下就可以用进去。 最不济的，combo控件自己做，下拉栏可以用picturebox画出效果来，代替掉，那就是多费点事。

[赵4老师]

用tab字符本身就是一个错误的设计！ 比如你试试内蒙古察哈尔右翼后旗XXX村

[赵4老师]

内蒙古达尔罕茂明安联合旗

[of123]

用 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

[of123]

可以加上：

Private Sub Form_Click()
    List1.Visible = False
End Sub

当鼠标点击窗体其他地方时，可以放弃点选 List 列表项。

[vansoft]

用空格好了。