Question

vb 怎么设计一个简单的计时器

vb 怎么设计一个简单的计时器

用vb的timer控件，要求在 label1上显示时间 从00:00:00.0开始，我就是不知道怎么把时间初始化为 00：00：00.0，比如会显示00:00:00.1 00:00:00.1 2
这是VB设计程序教程的5.7的习题！
谢谢大家了2

Answer 1

自己编译一个函数:

Private Function ToTime(ByVal TimeLength As Decimal) As String
Dim h As Decimal
Dim m As Decimal
Dim s As Decimal
Dim Hours As String
Dim Minutes As String
Dim Seconds As String
Dim NoHour As Boolean
Dim NoMinutes As Boolean
If Int(TimeLength / 3600) = 0 Then
Hours = ""
NoHour = True
Else
NoHour = False
h = Int(TimeLength / 3600)
Hours = h & ":"
End If

m = Int((TimeLength - h * 3600) / 60)
If m.ToString.Length = 1 And m <> 0 Then
NoMinutes = False
If NoHour = True Then
Minutes = m & ":"
Else
Minutes = "0" & m & ":"
End If
ElseIf m = 0 Then
NoMinutes = True
If NoHour = True Then
Minutes = ""
Else
Minutes = "0" & m & ":"
End If
Else
NoMinutes = False
Minutes = m & ":"
End If

s = TimeLength - 3600 * h - 60 * m
If Int(s).ToString.Length = 2 Or (NoHour = True And NoMinutes = True) Then
Seconds = s
Else
Seconds = "0" & s
End If
If NoHour = True And NoMinutes = True And Int(Seconds).ToString.Length = 1 Then
Select Case Seconds.Length
Case 1
Seconds = Seconds & ".000"
Case 3
Seconds = Seconds & "00"
Case 4
Seconds = Seconds & "0"
End Select
Else
Select Case Seconds.Length
Case 2
Seconds = Seconds & ".000"
Case 4
Seconds = Seconds & "00"
Case 5
Seconds = Seconds & "0"
End Select
End If
ToTime = Hours & Minutes & Seconds
End Function

自己编的,用的时候格式是:ToTime(0.000)
如:把4927.565秒进行转换
TextBox1.Text = ToTime(4927.565)
运行时能看到TextBox1中显示:1:22:07.565

Answer 2

楼上的有道理 我说下我的思路 定义 1个变量 i .初始化格式自己以标签的形式写出来。Timer1的Interval 设置为1 Enabled 设置为Flase
在Timer1_Timer事件中
Timer1_Timer()
i=i+1
DoEvents
小时=Int((i/100)/3600) Mod 60 '自己判断下 如果小于10自动添加0
分钟=Int((i/100)/60) Mod 60 '自己判断下 如果小于10自动添加0
秒=Int(i/100) Mod 60'自己判断下 如果小于10自动添加0
毫秒=i Mod 100
这些怎么组合到标签里该知道了吧 注意加DoEvents刷新

Answer 3

Label1.Caption = Format("0000000", "00:00:00.0")

用这个试试,计时器的功能你就自己做吧
我只把LABEL的初始化问题解决了

Answer 4

怪不得这么熟悉，又见到你了，同样的问题，上次没帮你解决吗？？？