让VB运行10秒后退出_无影脚

个人资料

微博

正文字体大小：大中小

让VB运行10秒后退出

(2024-02-29 11:14:26)

分类： VB程式

Private Sub Form_Load()

Dim ST As Long, ED As Long, C As Long '声明开始时间、结束时间、时长

C = 90 ''单位秒

ST = Timer '获取开始运行程序的时间

ED = Timer '获取现在时间

DoEvents '释放控制

Loop Until ED - ST >= C '开始时间-现在的时间等于10秒就退出，可自行修改。

If ED - ST >= C Then '{BANNED}{BANNED}最佳佳后加个判断

End '退出程序

End If

End sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report