| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3018 人关注过本帖
标题:计时器的问题
取消只看楼主 加入收藏
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:1 
计时器的问题
我想在想要做一个启动界面,启动的时候需要检查配置文件这些是否正常,在左下角显示检查的项目和结果
但是一些项目检查的时候会比较长度,所以我定义了一个Timer,在运行的时候自动在后面加“.”,超过一定数量,又从0个开始
比如说:
测试数据库连接
测试数据库连接.
测试数据库连接..
测试数据库连接...
测试数据库连接....
测试数据库连接.....
测试数据库连接.
测试数据库连接..

下面是代码,当然是简化过的。调试发现,执行时候,Timer2—》 CheckALL-》Timer2, 不是Timer2和CheckALL同时进行

求大神解决。

 
程序代码:
 Private Sub FormLaunch_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer2.Interval = 200
        Timer2.Enabled = True
        CheckALL()
  End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        If Label1.Text = "" Then Exit Sub
        Dim i As Integer
        i = InStrRev(Label1.Text, ":")
        Dim s1, s2 As String
        s1 = Strings.Left(Label1.Text, i)
        s2 = Strings.Right(Label1.Text, Len(Label1.Text) - i)
        If InStr(s2, ".") > 0 Or s2 = "" Then
            If Len(s2) < 5 Then
                s2 = s2 & " ."
            Else
                s2 = 0
            End If
        End If
        Label1.Text = s1 & s2
        Label1.Refresh()
    End Sub

  CheckALL()
   ’Step-1
   Lable1.text="检查配置文件:"
    …… 此处无数代码跑过
   Lable1.text="检查配置文件:正常"Step-2
   Lable1.text="检查数据库连接:"
    …… 此处无数代码跑过
   Lable1.text="检查数据库连接:正常 

   'Step-3
    ……
   'Step-4
   ……
End Sub
搜索更多相关主题的帖子: 项目 计时器 配置文件 数据库连接 
2016-04-13 16:19
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
收藏
得分:0 
嗯。我之前一直用的是VB,毕竟net太大了,一般的使用懒得装。才接触net几个月而已。
我昨天尝试了一下system.threading,失败了
不过现在用你说的backgroundworker实现了,十分感谢
2016-04-14 10:20
快速回复:计时器的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.138271 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved