Question

VB combo1.listindex 问题

Private Sub Form_Load()
Dim I As Integer
End Sub

Private Sub Combo1_LostFocus()
Select Case Combo1.ListIndex = I
Case I = 0
Text1.Text = "a"
Case I = 1
Text1.Text = "b"
Case I = 2
Text1.Text = "c"
Case I = 3
Text1.Text = "d"
End Select
End Sub

运行后为什么只有上边两个能运行，后边的就不对了。
主要是C。和D运行不出来。。。。

Answer 1

把你上边的代码删掉，改成下面的
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Text1.Text = "a"
Case 1
Text1.Text = "b"
Case 2
Text1.Text = "c"
Case 3
Text1.Text = "d"
End Select
End Sub

Answer 2

改为这样
Private Sub Combo1_LostFocus()
Select Case Combo1.ListIndex
Case Is = 0
Text1.Text = "a"
Case Is = 1
Text1.Text = "b"
Case Is = 2
Text1.Text = "c"
Case Is = 3
Text1.Text = "d"
End Select
End Sub

Answer 3

Public i As Integer
Private Sub Form_Load()
'Dim I As Integer
End Sub

Private Sub Combo1_LostFocus()
Select Case Combo1.ListIndex = i
Case i = 0
Text1.Text = "a"
Case i = 1
Text1.Text = "b"
Case i = 2
Text1.Text = "c"
Case i = 3
Text1.Text = "d"
End Select
End Sub