13518219792
Dim tCount As Integer '用来计数
10余年的格尔木网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整格尔木建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联从事“格尔木网站设计”,“格尔木网站推广”以来，每个客户项目都认真落实执行。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
tCount = 10
Timer1.Interval = 1000 '每秒执行一次
Timer1.Enabled = True
End
Sub
Private Sub
Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
tCount -= 1
If tCount = 0 Then
MessageBox.Show("时间到")
Timer1.Enabled = False
End If
End
Sub
Public Class Form1
Dim a As Single
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
Timer2.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Label2.Top 0 Then
Label2.Top = Label2.Top - a
Else
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If Label2.Top -Label2.Height Then
Label2.Top = Label2.Top + a
Else
Timer2.Enabled = False
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
a = Label2.Top / 12
End Sub
End Class
不对。步骤如下：
添加一个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
简单的说Timer是一个时间的控件， 不能说Timer的值等於2秒时，因为Timer相当於时间，只能说当Timer跳动两秒时触发某事件。 代码如下： ' 首先要确定启动控件 Me.Timer1.Enabled = True’启动控件 Me.Timer1.Interval = 1000‘设定跳动频为1秒。
我从来不加到Controls中也能用，大概这个不是从Control继承而来的，所有非可视部件（即组件）估计都不需要add。
