计时器的问题
我想在想要做一个启动界面,启动的时候需要检查配置文件这些是否正常,在左下角显示检查的项目和结果但是一些项目检查的时候会比较长度,所以我定义了一个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