我想根据combox1的内容来决定combox2的内容。该怎么办了?
比如说:
combox1.addItem "202left"
combox1.addItem "202right"
combox2.addItem "871left"
combox2.addItem "871right"
现在我想根据combox1的不同选择来显示combox2里面的内容,请教各位高手该怎么做了?

解决方案 »

  1.   

    Private Sub Combo1_Click()
        Select Case Combo1.Text
            Case "202left"
                '控制 Combo2 的代码
        End Select
    End Sub
      

  2.   

    Private Sub Combo1_Click()
    Select Case Me.Combo1.ListIndex
    Case 0
    Me.Combo2.Clear
    Me.Combo2.AddItem "1---1"
    Me.Combo2.AddItem "1---2"
    Case 1
    Me.Combo2.Clear
    Me.Combo2.AddItem "2---1"
    Me.Combo2.AddItem "2---2"
    End Select
    End SubPrivate Sub Form_Load()
    Me.Combo1.AddItem "1"
    Me.Combo1.AddItem "2"
    End Sub
      

  3.   

    Private Sub Combo1_Click()
    Select Case Me.Combo1.ListIndex
    Case 0
    Me.Combo2.Clear
    Me.Combo2.AddItem "1---1"
    Me.Combo2.AddItem "1---2"
    Case 1
    Me.Combo2.Clear
    Me.Combo2.AddItem "2---1"
    Me.Combo2.AddItem "2---2"
    End Select
    End SubPrivate Sub Form_Load()
    Me.Combo1.AddItem "1"
    Me.Combo1.AddItem "2"
    End Sub