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

[gang75vb]

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

Private Sub Form_Load()
Combo1.AddItem "hello"
Combo1.AddItem "World"
End Sub

以上的代码中，我想在改变Combo1的内容的时候使Combo1的内容是Problem，但是怎么Combo1的内容不是Problem，而是什么都没有，信请试一下。

[cryptonym]

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

[3661512]

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

Private Sub Form_Load()
Combo1.AddItem "hello"
Combo1.AddItem "World"
End Sub
Private Sub Combo1_Change()
Combo1.Text = "Problem"
End Sub

都应该有才行,click是下拉框选择条目情况下激发,change是编辑内容的时候激发

[boydgmx]

首先，想改变其text属性，就必须在设计时将style属性设置为0
Private Sub Form_Load()
Combo1.AddItem "hello"
Combo1.AddItem "World"
End Sub

Private Sub Combo1_Change()
Combo1.Text = "Problem"
End Sub
经测试，click事件中无法实现，只好使用change事件

[gang75vb]

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

[__ANDY__WU]

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

[gang75vb]

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