扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
Dim tCount As Integer '用来计数
10年积累的网站设计、成都网站制作经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先网站制作后付款的网站建设流程,更有城西免费网站建设让你可以放心的选择与我们合作。
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
不对。步骤如下:
添加一个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秒。
vb.net有的版本timer子程序读取子程序外面的全局变量有时出错,要么升级到高版本如2008(我使2005就有这个问题),要么在窗口上插个Label1并使 Label1.Hide() ,以后就用Label1.Text代替flag2,实际上Label1的名称可以改如v_flag2。换句话说是用控件值代替全局变量。
vb.net 中没有了 time() 函数。
可以通过 Now().TimeOfDay 截取当前的系统时间。
Now()函数取当前的系统日期时间,TimeOfDay 方法取日期时间中的时间部分。如下:
Dim t As TimeSpan
Dim s As Integer
t = Now().TimeOfDay
s = t.Hours * 3600 + t.Minutes * 60 + t.Seconds
变量s 就是 从午夜到现在经过的秒数。
额 你好,
通过引发 Timer 事件,Timer 控件可以有规律地隔一段时间执行一次代码。
msdn原文:如果应用程序或其它应用程序正在进行对系统要求很高的操作─ 例如长循环、高强度的计算或者正在访问驱动器
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流