VB时间控件
来源:百度知道 编辑:UC知道 时间:2024/06/27 09:32:13
我想问下
在 Label 里显示 时间!
可我做了以后
点击以后才出来时间!
时间出来以后也是
点了后 会变时间
我希望的是
自动的。。。。。。。不用点击
各位高手 告诉我啊 555555555555555
添加一个Timer控件 就是像时钟那个啊
然后设置它的Interval属性为10
双击Timer控件 把显示时间的代码写在Timer的事件处理中
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Date & Chr$(13) & Time
End Sub
时间+日期 自动变更
Private Sub Form_Load()
Label1.AutoSize=True
Timer1.Interval=1000
Label1.Caption=Date+Time
End Sub
Private Sub Timer1.Timer()
Label1.Caption=Date+time
end sub
控件名称为默 Label1 Timer1
在窗体中加记时器控件Timer1,
把interval设为1000.
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
Private Sub Form_Load()
Timer1.enable=true
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
标准答案:
方法一:
1.在窗体中添加一个标签控件(Lable1)和一个时钟空间(Timer1)
2.将时钟控件的Interval属性值设为1000(也就是使其每1000毫秒发生一回时钟事件)
3.双击时钟控件添加代码
Private