vb.net中计时器用法的简单介绍

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

相关问答

Q1: VB.net module中如何使用计时器？

控制台调用Timer和窗体是类似的。首先在项目引用里面加入System.Windows.Forms程序集，然后在代码顶部引入命名空间：

Imports System.Windows.Forms

在控制台的Module中声明一个计时器：

Private WithEvents Timer1 As New Timer()

把计时器的Tick事件静态绑定到处理函数中：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

'一些代码

End Sub

在需要开始计时的地方，修改其Interval、Enabled属性：

Timer1.Interval = 1000

Timer1.Enabled = True

Q2: VB.NET,如何用TIMER控件计时

这种功能用不到TIMER，TIMER控件用在这种地方也不适合。(假如你所统计的时间很短，在几分中内话，可以使用，假如你统计的时间很长:几小时、几天几夜，建议改用以下方式):

在你需要开始计时的地方加入一个记录当前时间，在你想结束的地方也得到一个当前时间。然后将两个时间相减。

希望以上思路可以帮到你。

Q3: 请详细介绍一下VB中计时器的用法

'添加两个命令按钮和一个计时器即可

private

n

as

long

private

sub

command1_click()

timer1.interval

=

10

timer1.enabled

=

true

end

sub

private

sub

command2_click()

timer1.enabled

=

false

open

"c:\1.txt"

for

output

as

#1

print

#1,

format(n

/

100,

"00.00")

close

#1

print

"时间保存在c:\1.txt"

end

sub

private

sub

form_load()

end

sub

private

sub

timer1_timer()

cls

n

=

n

+

1

print

"已用时间："

format(n

/

100,

"00.00")

end

sub