vb timer控件

1.我想问timer dim index as integer声明写在哪里?

回答：这个时间控件不用声明的，新建好控件后-双击控件就可写代码。

2.timer控件的index怎么使用?

回答：一般情况下，如果你用不到时间控件组的话“timer控件的index属性”可以不用管它。

副加：timer控件的index属性意义：index 本是索引的意思，比如用根绳子牵引着做某件事情，章节的进行任务。

新建一个工程，放上三个textbox,一个commandbutton,一个timer

timer的Interval设置为500.

代码如下。

Option

Explicit

Dim

T1

As

Date,

T2

As

Date

Private

Sub

Command1_Click()

T2

=

Time()

Text2

=

T2

Timer1.Enabled

=

False

End

Sub

Private

Sub

Form_Load()

T1

=

Time()

Text1

=

T1

End

Sub

Private

Sub

Timer1_Timer()

Dim

hh

As

Long

Dim

mm

As

Long

Dim

ss

As

Long

Dim

mTs

As

Date

mTs

=

Time()

hh

=

DateDiff("h",

T1,

mTs)

mm

=

DateDiff("n",

T1,

mTs)

ss

=

DateDiff("s",

T1,

mTs)

'mTs

=

T1

'mTs

=

DateAdd("h",

hh,

T1)

'mTs

=

DateAdd("m",

mm,

T1)

'mTs

=

DateAdd("s",

ss,

T1)

Text3

=

Format(hh

&

":"

&

mm

&

":"

&

ss,

"hh:mm:ss")

End

Sub

运行后text1显示开始时间,text3就是你需要的"流逝的时间",按commnd1停止，text2

显示结束的时间。希望解决了你的问题。

---