Question

vb 关于combo1.listindex属性，窗口中一个combobox一个commandbutton，代码如下：

Private Sub Combo1_Change()
Combo1.ListIndex = 2
End Sub

Private Sub Command1_Click()
Print Combo1.ListIndex
End Sub

Private Sub Form_Load()
Combo1.AddItem ("aaa")
Combo1.AddItem ("baa")
Combo1.AddItem ("caa")
Combo1.AddItem ("daa")
End Sub
首先触发combo1的change事件，这时Combo1.ListIndex 就赋值为2，但是为什么点击command1后，屏幕上却显示-1而不是2呢？？注意这里是change事件。
那位大神救救我。。。

Answer 1

你是怎么触发Change事件的，这里的代码没有触发该事件。只有在改变Combo1.Text的值时才会触发。比如在load时件中加一句 combo1.listindex=1就会触发它。

追问

通过在combo1的text中输入字符触发的

追答

也许它这么规定，在change结束时就恢复-1了。

Answer 2

change是用键盘触发的，CLICK才是用鼠标触发，点击点击command1并不能触发change事件

追问

您说的这个我懂。
比如我用键盘在combo1里输入a，那么就触发change事件，这时赋值Combo1.ListIndex = 2。但是点击button后屏幕还是显示-1的。

追答

失去焦点了等于没选中吧，何必纠结这个

追问

这个问题和失去焦点没有关系吧？在change事件触发后为combo1.listindex赋值了。

但是点击button还是输出-1

Answer 3

始终处于Change状态,并且在第三次的时候终止了Change状态,前两次触发的ListIndex属性的变化被清理了,最终并没有触发的ListIndex属性的变化,这可能是控件的问题,你又何必纠结于此...

Answer 4

Print(Combo1.SelectedIndex)

追问

这个Combo1.SelectedIndex和combo1.ListIndex有什么区别呢？我的vb里好像没有Combo1.SelectedIndex这个属性

追答

看看有没有这个事件
Combo1.SelectedIndexChanged

Answer 5

Combo1.ListIndex = 2不成功。

追问

如果在Combo1.ListIndex = 2后面加一句print Combo1.ListIndex 还是会输出2的，这说明Combo1.ListIndex = 2在这里已经赋值了

追答

经测试，发现change事件是在按键盘的过程中发生的。鼠标操作不会触发。
SelectedIndex是在多选的情况下才有用的。和listbox一样。
经测试，change事件完成后，listIndex的值会恢复为上一次的值。

追问

是需要键盘触发，这个我知道，我现在能使change事件触发，而且在Combo1_Change()中已经为Combo1.ListIndex 赋值为2，并且肯定是成功的，因为Combo1.ListIndex = 2后面加一句print Combo1.ListIndex 还是会输出2的。

但是接下来点击button就会输出-1，而不是2
这是为什么呢？

追答

测试结果就是这样，change事件完成之后，listIndex的值会恢复为-1。