如何让标签依次消失

来源：百度知道 编辑：UC知道 时间：2024/05/13 19:47:44
我想让三个标签依次消失，就是按一下命令按钮就消失第一个，按第二下就消失第二个……
我这样写：
Private Sub Command1_Click()
For i = 1 To 3
If i = 1 Then
lbl1.Visible = False
Exit For
End If
Next i

For i = 1 To 3
If i = 2 Then
lbl2.Visible = False
Exit For
End If
Next i

For i = 1 To 3
If i = 3 Then
lbl3.Visible = False
Exit For
End If
Next i

End Sub
为什么一按三个都一起消失了。
按照 wowhhz 朋友说的试了 结果出现：过程声明与同名事件或过程的描述不匹配
这是什么原因？

Private Sub Command1_Click()
k=k+1
if k>3 then
k=0
lbl1.Visible = True
lbl2.Visible = True
lbl3.Visible = True
end if
if k=1 then lbl1.Visible = False
if k=2 then lbl2.Visible = False
if k=3 then lbl3.Visible = False
End Sub

变量k声明为模块级变量

你有三个For，每个都会从1至3循环，每次都有一个lbl消失，三个For后当然都消失了
解决办法是去掉FOR，加入接收参数。

Private Sub Command1_Click(i)
If i = 1 Then
lbl1.Visible = False
End If
End Sub