提问提问，问一个简单的问题

Question

Private Sub Combo1_Change()
    End Sub
————————————————————————
    Private Sub Combo2_Change()
    End Sub
————————————————————————
    Private Sub Combo3_Change()
    End Sub
————————————————————————
    Private Sub Form_Load()
    combo1.additem " 2 "  ,  1
    combo1.additem " 3 "  ,  2
    combo2.visible = false
    combo3.visible = false
    end sub提问：当combo1.text = 1的时候，如何让combo2.visible = true
       当combo1.text = 2的时候，如何让combo3.visible = true
要求代码

Answer 1

Private Sub Combo1_Click()
     Select Case Combo1.ListIndex          Case 0               Combo2.Visible = Not Combo2.Visible          Case 1               Combo3.Visible = Not Combo2.Visible          Case 3     End SelectEnd SubPrivate Sub Form_Load()
     Combo1.AddItem "1"
     Combo1.AddItem "3"
     Combo1.AddItem "2"
     Combo1.AddItem "3"
    
     Combo2.Visible = False
     Combo3.Visible = False
End Sub

Answer 2

Private Sub Combo1_Click()
        if Combo1.text = "1" then 
            Combo2.Visible = True
        else
            Combo3.Visible = True
        end if
    End Sub
————————————————————————
    Private Sub Combo2_Change()
    End Sub
————————————————————————
    Private Sub Combo3_Change()
    End Sub
————————————————————————
    Private Sub Form_Load()
    combo1.additem "1"  ,  1
    combo1.additem "2"  ,  2
    combo2.visible = false
    combo3.visible = false
    end sub

Answer 3

zgvslch(烟花离落) 
正确

Answer 4

不可能吧
你在additem的时候 " 2 " 两边有空格，如果不去掉，判断的时候也要加上。也可以判断ListIndex

Answer 5

Private Sub Form_Load()
    combo1.additem " 2 "  ,  1'指定了ID
    combo1.additem " 3 "  ,  2
    combo2.visible = false
    combo3.visible = false
    end sub提问：当combo1.text = 1----------------按题意应该是ID为1 时 因为你 文本里你的list列表里并没有1 
的时候，如何让combo2.visible = true
       当combo1.text = 2的时候，如何让combo3.visible = true
要求代码

Answer 6

To hot1kang1(许仙) :
列表里没有1，可是他可以在运行时手动输入1阿