能不能自动关闭？ - 编程论坛

#2

xiangyue05102017-03-04 22:49

在timer下加入unload me

#3

adffdda2017-03-05 09:46

回复 2楼 xiangyue0510

时间怎么设定，怎么提示要求对象？

#4

ZHRXJR2017-03-05 11:58

回复楼主 adffdda

下面的代码就是你需要的，希望对你有帮助。

程序代码：

Dim X As Integer    '变量X应该是模块级变量，在通用部分定义

Private Sub Form_Load()
Timer1.Enabled = True   '在 Form_Load 事件中设置 Timer1 控件的必要属性，Timer1.Enabled = True 是立即计时
Timer1.Interval = 1000    '计时时间设置为1秒
End Sub

Private Sub Timer1_Timer()
X = X + 1   '每1秒增加1，用于计时
Label1.Caption = X    '这个标签可以显示已经计时的秒数。
If X >= 10 Then Unload Form1    '在计时达到10秒，关闭窗体，如果要关闭程序，将 Unload Form1 修改为 End 即可
End Sub

#5

xiangyue05102017-03-05 12:33

以下是引用adffdda在2017-3-5 09:46:46的发言：

时间怎么设定，怎么提示要求对象？

timer控件这么简单都不学习……
如果你要这样用VB，乘早还是放弃吧。其他编程软件也是一样。

#6

adffdda2017-03-05 20:20

回复 4楼 ZHRXJR

谢谢！！

[此贴子已经被作者于2017-3-9 20:57编辑过]

#7

asad2019-12-06 13:23

学习了！