属性设定为 1000
label1.caption = date & time
label1.caption=date本回答被提问者采纳
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中label标签要显示当前时间要怎么样写代码
先在窗体上加上两个控件，一个是label，一个是timer ，设置Timer1的Interval为1000,然后写如下代码：Private Sub Timer1_Timer()Label1.Caption = Now End Sub 这样你就可以看到label的时间每秒变化一次了
vb中怎么能让label显示当前日期
label1.caption = date & time
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:" +...
如何让vb6真正地显示当前的系统时间?
只要直接取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怎么在标签上显示当前系统星期几
Dim a(7) As String, b(7) As String a(1) = "日": a(2) = "一": a(3) = "二": a(4) = "三": a(5) = "四": a(6) = "五": a(7) = "六"For i = 1 To 7 b(i) = "星期" & a(i)Next i n = Weekday(Now)Select Case n Case n = 1 To 7 Labe...
vb中时间显示设置
想要你的显示格式按你的要求用VB函数 format 如： label.caption = format(now,"hh:mm:ss")这样的结果就显示了 当前时间（20:30:45）你把"hh:mm:ss" 换成 "hh点mm分ss秒" 显示的格式就是上面的结果点数后都带单位了。
VB程序单击日期,可使文本框中显示当前日期,单击时间,可显示当前时间,并...
具体代码：PrivateSubCommand1_Click()Text1.Text=Date Label1.Caption="当前日期为："EndSubPrivateSubCommand2_Click()Text1.Text=Time Label1.Caption="当前时间为："EndSub
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代码在文本框中显示当前时间是上午或下午
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 & " 星期" & Choose(Weekday(s), "日", "一", "二", "三", "四", "五", "六"))End Sub ...
