重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
设计界面双击那个按钮(自动跳到代码里)
成都创新互联-专业网站定制、快速模板网站建设、高性价比锦州网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式锦州网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖锦州地区。费用合理售后完善,十年实体公司更值得信赖。
然后输入 要显示时间的那个Label.Text = DateTime.Now.ToString()
定时器中处理
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 10 '10毫秒刷新一次
Timer1.Start() '开启定时器
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now
End Sub
vb中获取系统当前的时间用函数 now() 就可以。另外还有相关的时间 date() time()
now()获取系统当前日期和时间,如:2015-12-12 22:23:34
time()获取系统的时间,如:22:23:34不显示当前日期
date()获得系统的日期,如:2015-12-12
Private Sub Command1_Click()
MsgBox Now()
MsgBox Time()
MsgBox Date
End Sub