Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub
这样你就可以看到label的时间每秒变化一次了
当然，如果你需要随着时间的变化而变化内容的话，当然需要timer控件了
设置1秒运行一次就好，也就是interval=1000本回答被提问者采纳
Private Sub Timer1_Timer()
Timer1.Enabled = True
Label1.Caption = Now
End Sub
(enable一定要是true)
label1 = now
vb中label标签要显示当前时间要怎么样写代码
先在窗体上加上两个控件，一个是label，一个是timer ，设置Timer1的Interval为1000,然后写如下代码：Private Sub Timer1_Timer()Label1.Caption = Now End Sub 这样你就可以看到label的时间每秒变化一次了
VB显示当前时间的程序
加入以下代码：Private Sub Form_Load()Text1.Text = Now Timer1.Enabled = True Timer1.Interval = 1000 End SubPrivate Sub Timer1_Timer()Text1.Text = Now End Sub
VB.NET中用label显示时间
Label1.Text = "12时演示:" + Now.ToString("yyyy-MM-dd hh:mm:ss") Label2.Text = "24时演示:" + Now.ToString("yyyy-MM-dd HH:mm:ss") Label3.Text = "UTC时演示:" + System.DateTime.UtcNow.ToString("yyyy-MM-dd HH:mm:ss") Label4.Text = "时间为不补0:" +...
vb显示时间
只要直接取Time$就可以了。例如：Label1.Caption = Time 如要动态显示系统时间，可以使用以下代码：Private Sub Form_Load()Label1.FontSize = 30 Label1.ForeColor = vbBlue Timer1.Interval = 1000 Label1.Caption = Time End Sub Private Sub Timer1_Timer()Label1.Caption = Time End Sub ...
vb 如何在label中同时显示系统日期和时间
方法1：Label1.Caption = Now()方法2：Label1.Caption = Date & " " & Time()
...单击时间,可显示当前时间,并使前面的标签做相应修改,写出操作_百度...
具体代码：PrivateSubCommand1_Click()Text1.Text=Date Label1.Caption="当前日期为："EndSubPrivateSubCommand2_Click()Text1.Text=Time Label1.Caption="当前时间为："EndSub
vb中时间显示设置
想要你的显示格式按你的要求用VB函数 format 如： label.caption = format(now,"hh:mm:ss")这样的结果就显示了 当前时间（20:30:45）你把"hh:mm:ss" 换成 "hh点mm分ss秒" 显示的格式就是上面的结果点数后都带单位了。
如何用vb代码在文本框中显示当前时间是上午或下午
Dim s As Date Dim bs As String s = Now Select Case Hour(s)Case Is < 8 bs = "凌晨"Case Is < 12 bs = "上午"Case Is < 14 bs = "中午"Case Is < 17 bs = "下午"Case Else bs = "晚上"End Select Label1.Caption = Format(s, "YYYY年MM月DD日 hh:mm:ss " & bs ...
VB显示当前程序运行时间
VB显示当前程序运行的时间长短，需要添加一个Timer控件来实现，代码如下：Dim Tim As String, B As Long, H As Integer, M As Integer, S As Long\/\/窗体加载时候方法Private Sub Form_Load() Label1.Caption = "" Tim = Time Timer1.Interval = 100End Sub\/\/Timer控件方法Private...
怎样在VB编程中插入当前日期和时间?
先插入一个Timer控件,将其Interval属性设置为1000,再插入一个Label控件,其属性你自己设置,Timer1的代码:Label1.Caption = Date & " " & Time
