双子座和摩羯座的友情:VB当中如何对整个打开的程序进行倒计时,就比如考试系统一样???

来源:百度文库 编辑:高校问答 时间:2024/04/28 13:24:05
在vb设计当中怎么样才能实现对整个程序控制运行时间。还有如果做一个窗体文件,不允许使用者打开两个一摸一样的窗体,如果点了两次的话就直接调出第一个窗体。怎么样实现

Sub Timer1_Timer()
tm = tm - 1
Label9.Caption = Str(tm)
If tm = 0 Then
Unload Form1
End If
End Sub

一个Timer

Private Sub Form_Load()
If App.PrevInstance = True Then End '如果重复进程,则退出
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
If n = 60 Then End '运行一分钟结束
End Sub

我来回答第二个问题,只要在窗体加载时,让其以模态方式打开就行啦。