vb中combo与text的问题

2025-01-07 15:04:40

推荐回答（2个）

回答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

回答2：

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