时钟怎么实现？

Question

。

Answer 1

我一楼呀！！呵呵
时钟吗
Time()

Answer 2

呵呵~Private Sub Form_Load()
Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
Me.Caption = Format(Now, "yyyy年m月d日 hh:mm:ss")
End Sub

Answer 3

Timer.Inteval=1000鐨勬椂闂撮棿闅斾技涔庡お闀匡紝浠imer姣忕浼犻€?8娆℃椂闂寸畻锛屽緢瀹规槗涓嶅噯銆?
瑕佷箞鎶奍nteval鏀瑰皬涓€浜涳紙濡?00锛夛紝瑕佷箞鐢ˋPI鍑芥暟锛屾洿鍑嗙‘

Answer 4

不好意思，刚才不知为何发出一堆乱码
我是说，Timer.Inteval=1000似乎太长了，TIMER每秒返回18次系统时间，这么长的时间间隔会使你的时钟不准确
建议你要么把Inteval设小些（如100），要么用API函数，更准确。

Answer 5

建一个文本框和一个时钟控键,写下面的代码就行了Private Sub Timer1_Timer()
Text1.Text = Time
End Sub

Answer 6

用这些方法,屏幕都会都一下的,最好用API

Answer 7

用这些方法,屏幕都会抖一下的,最好用API

Answer 8

api，怎么获得？？？那个函数？