2017年好玩的网页游戏:用vb实现自动退出的代码

Option Explicit
Dim sum_zj As Byte
Private Sub Timer1_Timer()
Timer1.Interval = 500
If Label1.Caption <> CStr(Time$) Then
Label1.Caption = Time$
sum_zj = sum_zj + 1
Text1 = sum_zj
If sum_zj >= 60 Then '此处设为60秒关闭程序
End
End If
End If
End Sub

程序开始时触发Timer
用变量每秒或每分中累加一次
累加到一顶时Unload FormXXX
OK??

Private Sub Form_Load()
unload me
End Sub

使用END语句

End 语句不调用 Unload、QueryUnload、或 Terminate 事件或任何其它 Visual Basic 代码，只是生硬地终止代码执行。窗体和类模块中的 Unload、QueryUnload、和 Terminate 事件代码未被执行。类模块创建的对象被破坏，由 Open 语句打开的文件被关闭，并且释放程序所占用的内存。其它程序的对象引用无效。

End 语句提供了一种强迫中止程序的方法。Visual Basic 程序正常结束应该卸载所有的窗体。只要没有其它程序引用该程序公共类模块创建的对象并无代码执行，程序将立即关闭。

icelaker - 秀才 二级 和 xzp1984 - 见习魔法师 二级都是用UNLOAD方法

当所占内存另有它用，或需要重新设置窗体、控件的属性为初始值时，就有必要卸载窗体或控件。

在卸载窗体前，会发生 Query_Unload 事件过程，然后是 Form_Unload 事件过程。在其中任一过程中设置 cancel 参数为 True 可防止窗体被卸载。若为 MDIForm 对象，先发生 MDIForm 对象的 Query_Unload 事件过程，接着是各 MDI 子窗体 的 Query_Unload 事件过程和 Form_Unload 事件过程，最后是 MDIForm 对象的 Form_Unload 事件过程。

当窗体卸载之后，所有在运行时 放到该窗体上的控件都不再是可访问的。在设计时放到该窗体上的控件将保持不变；但是，当窗体重新加载时，在运行时对这些控件及其属性的任何更改将丢失。所有对于窗体属性的更改也将丢失。对窗体上任何控件的访问会导致窗体重新加载。

注意 在卸载窗体时，只有显示的部件被卸载。和该窗体模块相关联的代码还保持在内存中。

只有在运行时添加到窗体上的控件数组元素才能用 Unload 语句卸载。重新加载被卸载的控件时，其属性会被重新初始化。

换句话说,UNLOAD方法只是关闭一个窗口,并没有真正退出.

以上是关闭的使用方法,至于时间,查看系统时间或者自动记数(使用STATIC变量)完成定时.