VB 中的 时间控件问题，请大侠们帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/18 17:29:24
我想 动态改变(可以不用时间控件) Label9.Caption 的值,
Label9.Caption=“状态1” 到1秒
Label9.Caption=“状态2” 到2秒
Label9.Caption=“空” 到3秒结束
我使用时间控件确达不到目的~请大侠们给我一个
楼下似乎没有明白我的意思。
怎么都没有时间延时？
状态根据时间变化而改变~

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Command1_Click()
Dim Ti As Long

Ti = GetTickCount '计时开始时刻

Label9.Caption = "状态1" '到1秒
Do
DoEvents
Loop While GetTickCount < Ti + 1000

Label9.Caption = "状态2" '到2秒
Do
DoEvents
Loop While GetTickCount < Ti + 2000

Label9.Caption = "空" '到3秒结束
Do
DoEvents
Loop While GetTickCount < Ti + 3000

End Sub '如果得到的结果不是你想要的，可以按你想要的结果再改改判断条件，可以灵活修改的，至于状态，你可以声明一个全局变量ZT，Label9.Caption改变时ZT也跟着改变就是，然后其他该变的都跟着ZT变

if Label9.Caption=“ ” then Label9.Caption=“状态1”

if Label9.Caption=“状态1” then Label9.Caption=“状态2”

if Label9.Caption=“状态3” then Label9.Caption=“ ”