| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
学习型 ASP/PHP/ASP.NET 主机 35元/年全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付
赛孚耐:软件保护加密专家身份认证令牌USB KEY虚拟主机 域名注册 主机托管 
共有 593 人关注过本帖
标题:问题已解决2
收藏  推荐  打印 
菜鸟VB
Rank: 2
等级:注册会员
帖子:90
积分:954
注册:2008-5-2
结帖率:100%
  问题点数:0  回复次数:12   
问题已解决2

怎样才能实现程序运行一段时间后自动关闭呢?
比如一个程序打开后过了5分钟自动关闭
这样的代码该怎么写呢?
跪求高手帮忙想想

[ 本帖最后由 菜鸟VB 于 2008-5-11 21:17 编辑 ]
2008-5-11 20:16
leilei88
Rank: 3Rank: 3
来自:青岛
等级:中级会员
帖子:181
积分:1864
注册:2008-3-30
  得分:0 

晕。。这么简单的东西还需要高手解答啊。。VB里不是有timer控件吗?那个就可以实现
2008-5-11 20:21
菜鸟VB
Rank: 2
等级:注册会员
帖子:90
积分:954
注册:2008-5-2
  得分:0 

我知道有这个控件,但代码怎么写啊?
2008-5-11 20:26
leilei88
Rank: 3Rank: 3
来自:青岛
等级:中级会员
帖子:181
积分:1864
注册:2008-3-30
  得分:0 

Private Sub Form_Load()
    Timer1.Enabled = True
    Timer2.Enabled = False
    Timer3.Enabled = False
    Timer4.Enabled = False
    Timer5.Enabled = False
    Timer1.Interval = 60000
    Timer2.Interval = 60000
    Timer3.Interval = 60000
    Timer4.Interval = 60000
    Timer5.Interval = 60000
End Sub

Private Sub Timer1_Timer()
    Timer2.Enabled = True
    Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
    Timer2.Enabled = True
    Timer1.Enabled = False
End Sub

Private Sub Timer3_Timer()
    Timer2.Enabled = True
    Timer1.Enabled = False
End Sub

Private Sub Timer4_Timer()
    Timer2.Enabled = True
    Timer1.Enabled = False
End Sub

Private Sub Timer5_Timer()
    End
End Sub

定义5个timer控件,因为timer控件只能设置65536毫秒,约65秒
2008-5-11 20:33
菜鸟VB
Rank: 2
等级:注册会员
帖子:90
积分:954
注册:2008-5-2
  得分:0 

我晕
这代码什么意思啊
测试没反应的啊
2008-5-11 20:54
leilei88
Rank: 3Rank: 3
来自:青岛
等级:中级会员
帖子:181
积分:1864
注册:2008-3-30
  得分:0 

啊..VB你一点都不懂啊..
你所说的程序是什么程序?外部程序还是有代码的VB程序?
2008-5-11 21:00
leilei88
Rank: 3Rank: 3
来自:青岛
等级:中级会员
帖子:181
积分:1864
注册:2008-3-30
  得分:0 

啊..VB你一点都不懂啊..
你所说的程序是什么程序?外部程序还是有代码的VB程序?
2008-5-11 21:01
菜鸟VB
Rank: 2
等级:注册会员
帖子:90
积分:954
注册:2008-5-2
  得分:0 

是有代码的内部程序吧。。。。内部跟外部有啥关系啊

[ 本帖最后由 菜鸟VB 于 2008-5-11 21:08 编辑 ]
2008-5-11 21:06
菜鸟VB
Rank: 2
等级:注册会员
帖子:90
积分:954
注册:2008-5-2
  得分:0 


我想得太复杂了
问题已经解决了
其实也很简单
用下面的代码就行了
Private Sub Timer1_Timer()
End
End Sub
2008-5-11 21:16
hxfly
Rank: 12Rank: 12Rank: 12
等级:贵宾
威望:10
帖子:5670
积分:57117
注册:2005-4-7
  得分:0 

一个timer就应该可以吧?
Dim i As Integer
Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 60000
    i=0
End Sub
Private Sub Timer1_Timer()
    If i <= 5 Then
        i = i + 1
    Else
        End
    End If
End Sub

2008-5-11 21:18
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.046054 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved