vb按钮问题

来源：百度知道 编辑：UC知道 时间：2024/06/01 21:17:29
给段代码 按一下按钮 按钮就消失 过一会还弹出小窗口
比如 按按钮
等一会 探窗口 说已经完成

新建一个工程，有两个窗体： form1,form2.
form1上有两个控件：命令按钮command1和定时器timer1
form2上有两个控件：标签label1和定时器timer1
程序运行时单击命令按钮，命令按钮消失，等待1秒后弹出窗体2显示：按按钮，请稍等！。等待3秒后显示：已完成。再等三秒窗体2消失回到窗体1界面
窗体1代码：

Private Sub Command1_Click()
Command1.Visible = False '让按钮不可见"
Timer1.Interval = 1000 '启动定时器
End Sub

Private Sub Form_Load()
Command1.Caption = "按钮" '给按钮命名
End Sub

Private Sub Timer1_Timer()
Form2.Show '显示窗体2
Form1.Enabled = False '让窗体1不可用
Timer1.Interval = 0 '关闭窗体1的定时器
End Sub

窗体2代码：

Dim i As Integer
Private Sub Form_Load()
Label1.Caption = "按按钮，请稍等..." '显示按按钮，请稍等
Timer1.Interval = 3000 '启动定时器，时间间隔为3秒
i = 0
End Sub

Private Sub Timer1_Timer()
Label1.Caption = "已完成!" '显示已完成
If i = 1 Then '等待三秒后窗体2消失
Form1.Enabled = True
Form1.