有一个问题不知道是不是bug

Question

Private Sub Combo1_Click()
Combo1.Text = "Problem"
End SubPrivate Sub Form_Load()
Combo1.AddItem "hello"
Combo1.AddItem "World"
End Sub以上的代码中，我想在改变Combo1的内容的时候使Combo1的内容是Problem，但是怎么Combo1的内容不是Problem，而是什么都没有，信请试一下。

Answer 1

Private Sub Combo1_Change()
Combo1.Text = "Problem"
End Sub

Answer 2

Private Sub Combo1_Click()
Combo1.Text = "Problem"
End SubPrivate Sub Form_Load()
Combo1.AddItem "hello"
Combo1.AddItem "World"
End Sub
Private Sub Combo1_Change()
Combo1.Text = "Problem"
End Sub都应该有才行,click是下拉框选择条目情况下激发,change是编辑内容的时候激发

Answer 3

首先，想改变其text属性，就必须在设计时将style属性设置为0
Private Sub Form_Load()
 Combo1.AddItem "hello"
 Combo1.AddItem "World"
End SubPrivate Sub Combo1_Change()
 Combo1.Text = "Problem"
End Sub
经测试，click事件中无法实现，只好使用change事件

Answer 4

都不行啊！我要求选择"hello"或"World"的时候 ，Combo1的内容是"Problem"

Answer 5

combo1.style=1
Private Sub Combo1_Click()
Combo1.listindex = A ( A 为"Problem"在列表中的序数)
End Sub

Answer 6

我要的效果不是这个,列表里面没有"Problem"