【问】超简单的，如何让ComboBox显示出&符号？（版本 VB5）

Question

不知大家有没有试过以下代码：Private Sub Form_Load()
Me.Combo1.Text = "1&2&3"
End SubComboBox的Text实际值为 1&2&3
可是显示出来的效果为 123不知有没有办法让它显示全呢？特别注明：版本 VB5 
（不知道VB6里有没有这种问题，反正这里只用VB5）

Answer 1

Private Sub Form_Load()   Combo1.Text = "There's a " & Chr(38) & " character."End Sub

Answer 2

很遗憾，经过测试，没用的。Private Sub Form_Load()
Combo1.Text = "1" & Chr(38) & "2" & Chr(38) & "3"
End Sub实际显示 123

Answer 3

Combo1.AddItem "1&2&3"
Combo1.ListIndex = Combo1.NewIndex

Answer 4

楼上的强！谢谢！但是我怎么给Combo的Text赋值呢？因为下拉列表中没有这个值（而且也不打算把它加入List)，所以不能用ListIndex我如何能让Combo的当前内容显示全？它的Text是由  Combo1.Text="1&2&3" 赋值的，
而且用 Print Combo1.Text 也能正确取到值，
但就是屏幕上显示的为 123 最可恶的是，因为OLEDragMode=1 所以可以直接拖动选定文字，
但实际拖动的确是 123
OLE这部分由于是自动的所以并没有VB代码参与有没有什么办法能让Combo1.Text的值能正确显示呢？
(已试过 Combo1.Text=Combo1.List(1) 不行！）注：本主题现在加分了VB6＋最新SP 中也有这种情况吗？（回者有分）
有谁能说说出现这个问题的原因吗？（好让俺心里塌实点）

Answer 5

Combo1.AddItem "1&2&3" 这里就是赋值阿

Answer 6

VB6中还与所用字体有关：
宋体显示"123"（中间乱码）
MS Sans Serif 显示 "1 2 3"可以用 Microsoft Forms 2.0 Object Library 中的 ComboBox 替代解决

Answer 7

To cdsun()：
Combo1.AddItem "1&2&3" = Combo1.Text ??? 我不要加到列表可不可以？
经过测试，用设置 Combo1.ListIndex的办法来显示 与直接设置 Combo1.Text ，会有两样的结果！To Tiger_Zhao(VB老鸟) ：
VB5中宋体显示的就是"123"（中间没有乱码，只是少了几个&符号）
另外，由于要做绿色软件（For 98），所以不考虑使用外部控件来代替（这就是为什么只用VB5的原因）谢谢，不知还有没有其它办法？

Answer 8

HOHO,自己编写一个吧!!这一定是可以的!!

Answer 9

怀疑这又是vb的一个bug吧当&以这样的形式出现时就会被过滤掉 c&[n]&c呵呵,奇怪的现象,估计vb产品组的人又要说"oh~~really?"

Answer 10

VB6没这事，估计是VB5的BUG用API的setwindowtext行不行？没VB5，不能试