‘添加一个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.ToStringEnd Sub
1500字范文,内容丰富有趣,写作好帮手!