combo问题又来了

Question

在COMBO1里有三项，如1,2，3选一时，text1.text=“美丽”
选二时，text1.text=“you”
选三时，text1.text=“SS”用什么事件才行？程序运行，选1完后，我再选三，text1.text变跟着变！~

Answer 1

select case combo1.listindexcase 0
 Text1.text="美丽"
case 1
 Text1.text="you"
case 2
 Text1.text="SS"
end select

Answer 2

试过了。不行。我用click事件触发后，只得一个美丽,其它再也执行不下去

Answer 3

Option ExplicitPrivate Sub Combo1_Click()
Dim i As Integer
Select Case Combo1.List(i)
Case "ff"
Text1.Text = "ff"
Case "1"
Text1.Text = "1"
Case "m1"
Text1.Text = "m1"End Select
End SubPrivate Sub Form_Load()
Combo1.AddItem "ff"
Combo1.AddItem "1"
Combo1.AddItem "M1"
End Sub

Answer 4

text1.text总得ff，不得其它的！~

Answer 5

把二楼的：Select Case Combo1.List(i)
改成：Select Case Combo1.ListIndex就可以了。