能不能自动关闭?
能不能自动关闭,代码怎么写?[此贴子已经被作者于2017-3-9 20:57编辑过]
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