VB.NET 计时器的问题

如果程序点选开始 label1就会开始计时 请问要如何设定
Timer.enabled = false
Timer.enabled =true
Label1.text=val(label1.text) +1
请问我这样写对不?

我认为你是想实现这样的功能：进入程序运行界面，点击开始按钮，实现label1自动计时。对吗？
首先，在程序设计界面添加Timer控件、Button控件和Label控件，设置其对应属性。
（1）timer控件属性：
Name-timer ，Enable-false ，interval-事件频率（以毫秒为单位），即：你想要计时的最小单位，如1ms，1s……。
（2）Button控件属性：
Text-开始
（3）Label控件属性：
text-0
其次，编写程序。
（1）双击timer控件进入程序编辑界面，在private sub timer1_Tick…… End Sub编写程序。
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.text=val(label1.text) +1 ‘ 此处1代表你要计时最小单位。
End Sub
（2）双击Button控件进入程序编辑界面，在Private Sub Button1_Click…… End Sub编写程序。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer.Interval = 1000 ’ 此处以计时器最小单位1s说明
Timer.Enabled = True
End Sub
最后，运行程序，测试OK。

Label1.text=val(label1.text) +1这句要放到Private Sub Timer1_Timer事件中！

那你其实不需要代码，你直接在form的设计界面把Timer的Enable属性设置为True就可以了 如果你非要用代码。在Form的Load事件里面加上这么一句话： Timer1.Enabled = True（假设你的Timer是Timer1）

计时器倒数时间为0的时候执行一段代码: dim m as integer private sub timer1_timer1() m=m-1 if m=0 then msgbox "时间到" end sub private sub command1_click() shell "shutdown -s -t 0" ’-s 是关闭系统 end sub private sub command2_click() shell "shutdown -l" ’-l 是shutdown 的一个参数 意思是注销用户 end sub private sub command3_click() shell "shutdown -r -t 0" ’-r 是重启 等待时间为0秒 end sub 关闭进程: shell "taskkill /im 进程名称.exe /f", vbhide

不对。步骤如下： 添加一个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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息