Question

vb6中的combo控件怎么设置默认值？

Combo控件那个属性是控制里面选项对应的值？还有怎么设置第一个选项为默认值？
假如我有两个选项，第一个为默认的，当选择第二个的时候弹出2，在选第一个的时候弹出1，要怎么设置？

Answer 1

设置第一个选项为默认值:
Combo1.ListIndex = 0

当选择第二个的时候弹出2，在选第一个的时候弹出1:

Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
MsgBox "1"
ElseIf Combo1.ListIndex = 1 Then
MsgBox "2"
End If
End Sub

追问

为什么我测试的时候下拉框每次都要选一下才可以，不选就是空白的，怎么设置的打开就是第一个选项？选择2才变成2？

追答

Private Sub Form_Load()
'这里是添加Combo1内容的代码
Combo1.ListIndex = 0
End Sub

Answer 2

实现思路：在Combo1中增加元素，之后放入初始值，然后设置text属性。
参考代码如下：
Private Sub Form_Load()
Combo1.AddItem "test"
Combo1.Text = Combo1.List(0)
End Sub

Answer 3

ListIndex 表示当前选择项的索引，属性 List 是个数组，保存所有选项的内容。List(ListIndex) 就指向当前选择项的内容。
要默认选择某项，在其他事件（通常是 Form_Load）里设置
ListIndex = 0
鼠标选择某项会触发 Click 事件，并把选择项的内容显示在上面的文本框里，并触发 Change 事件，所以如果仅仅要对鼠标选择某项进行反应，还是在 Click 事件里处理的好。

Answer 4

这个不需要设置的，本来就是这样的．
所谓默认值的设置：
Combo1.text=combo1.list(0)

追问

Private Sub Combo1_Change()
Combo1.Text = Combo1.List(0)
MsgBox "1"
Combo1.Text = Combo1.List(1)
MsgBox "2"
End Sub
这样写进去为什么选择的时候没反应？我要的效果是，选择第一个的时候弹出1，选择第二个的时候弹出2，要怎么写？