包含vb点虐 计时方法的词条
VB点虐 如何设定准确的1秒时间?
form 的load事件中加一句:timer1.interval=1000
成都创新互联自2013年起,先为余庆等服务建站,余庆等地企业,进行企业商务咨询服务。为余庆企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
在一个按钮里面加入一句触发timer事件开始计时的代码:
timer1.enabled=true
timer的tick事件中加入这么两句:
textbox1.backcolor=color.red
timer1.enabled=false
vb点虐 我想编一个计时器,计时器显示格式00:00:00 (只能用一个label)怎么做?
Dim hour, min, sec As Integer
Private Sub Command1_Click()
If Command1.Caption = "开始计时" Then
Command1.Caption = "停止计时"
Timer1.Enabled = True
Else
If Command1.Caption = "停止计时" Then
Command1.Caption = "开始计时"
Timer1.Enabled = False
End If
End If
End Sub
Private Sub Form_Load()
hour = 0
min = 0
sec = 0
Label1.Caption = Format(hour, "00") ":" Format(min, "00") ":" Format(sec, "00")
End Sub
Private Sub Timer1_Timer()
sec = sec + 1
If sec 59 Then
sec = 0
min = min + 1
If min 59 Then
min = 0
hour = hour + 1
End If
End If
Label1.Caption = ""
Label1.Caption = Format(hour, "00") ":" Format(min, "00") ":" Format(sec, "00")
End Sub
VB.NET 计时器的问题
不对。步骤如下:
添加一个label标签名字label1 用来显示时间
再添加一个timer控件 名字timer1 interval属性=1000 用来计时
窗体添加代码
Dim t As Date '用来记录时间
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登录时间:" t.TimeOfDay.ToString
End Sub
VB.NET,如何用TIMER控件计时
这种功能用不到TIMER,TIMER控件用在这种地方也不适合。(假如你所统计的时间很短,在几分中内话,可以使用,假如你统计的时间很长:几小时、几天几夜,建议改用以下方式):
在你需要开始计时的地方加入一个记录当前时间,在你想结束的地方也得到一个当前时间。然后将两个时间相减。
希望以上思路可以帮到你。
网站标题:包含vb点虐 计时方法的词条
浏览路径:http://scjbc.cn/article/ddsdgee.html