'添加一个Timer控件,名称为:tmrClock; 一个label控件,名称为: IbIShow 。单击label控件即显示时间,单击label控件即退出
Private Sub Form_load()
Me.BackColor = RGB(0, 78, 152)
Me.Move Scree.Width -Me.Width, 0
tmrClock.Enabled = false
End Sub
Private Sub 1b1Show_Click()
tmrClock.interval=1000
tmrClock.Enabled = true
End Sub
Private Sub 1b1Show_DblClock()
End
End Sub
Private Sub tmrClock_Timer()
IbIShow.Caption = Time()
End Sub
。。。。。。
一个你书写不规范,这样直接是不能运行的。
二,你这样书写我看不懂。
三,用的不是默认名,不对确定对象。。。。。。。