vb程序里有多个label控件，怎么用一个按钮让label控件一个一个显示出来，

vb程序里有多个label控件，怎么用一个按钮让label控件一个一个显示出来，求全程序

Dim i
Dim sc As Object
Private Sub Form_Load()
    Set sc = CreateObject("scriptcontrol")
    sc.Language = "VBscript"
    sc.AddObject "form1", Form1
    Timer1.Enabled = False
    Timer1.Interval = 1000
    For j = 1 To 4
        sc.ExecuteStatement "Form1.Label" & j & ".Visible= false"
    Next
End Sub
Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    Set sc = CreateObject("scriptcontrol")
    sc.Language = "VBscript"
    sc.AddObject "form1", Form1
    i = i + 1
    If i <= 4 Then sc.ExecuteStatement "Form1.Label" & i & ".Visible= true"
End Sub

不知道有什么用。。。。

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fff2s8v48f8s88pmq2m.html