用vb做的时钟程序源代码

你要的程序代码来了,已经验证OK!!!

Private Sub Form_Load()
Timer1.Interval = 1000
Label1.AutoSize = True
Label1.Caption = ""
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub

你在窗体上添加一个timer控件和一个label标签,把上面的代码复制进去看结果吧!以后共同努力!!!

不管你怎么做,你都少不了用timer

把timer的interval =1000,这样每秒执行一次

timer事件里 dt =now()
你就可以得到一个时间dt
如果你是数字型的表,就一个label就可以,lblTime.caption = format (dt,"yyyy-MM-dd HH:mm:ss")
如果你要画个好看点的,象模拟钟表的话,就通过bt的时分秒各项的值的画位置

form1.caption=now
窗体的标题就是时间和日期了

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Cls
Print Now
End Sub