Question

vb中combo与text的问题

就是现在有一个combo1 和 15个text combo1当中有4个选项。 combo1中是2的时候 显示6个text 其他的隐藏 combo1中是3的时候显示9个text 以此类推 现在 到5后 想在回到2时 15个text全都显示 3、4 都能正常 有没有高手 帮忙写一下代码 或者告诉我 怎么才能回到2时 只显示6个text

Answer 1

'text1数字控件0-14
Option Explicit
Private Sub Combo1_Click()
    Dim i, n
    Select Case Combo1.Text
    Case 2: n = 5
    Case 3: n = 8
    Case 4: n = 11
    Case 5: n = 14
    End Select
    For i = 0 To 14
        Text1(i).Visible = IIf(i > n, False, True)
    Next
End Sub
Private Sub Form_Load()
    Dim i
    For i = 2 To 5
        Combo1.AddItem i
    Next
    Combo1.ListIndex = 0
End Sub

Answer 2

帮人为快乐之本！请采纳！谢谢！