难题？？？

szq2008 2003-03-23 07:21:25

请编一个到记时的小程序看看

...全文

75 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

pcwak 2003-03-24

打赏
举报

Private Sub Timer1_Timer()
Label1.Caption = "现在时间是：" & Time
End Sub

chenyu5188 2003-03-24

打赏
举报

northwolves 2003-03-24

打赏
举报

Private WithEvents Timer1 As Timer

Private WithEvents Label1 As Label
Private Sub Form_Load()
Set Timer1 = Me.Controls.Add("vb.timer", "timer1", Me)
Set Label1 = Me.Controls.Add("vb.label", "label1", Me)
Label1.Move 100, 100, 3000, 1000
Label1.Visible = True
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = "距午夜还有 " & DateDiff("s", Time, TimeSerial(24, 0, 0)) & " 秒！"
End Sub

怎样破解猪不好养的难题？

美业收银管理系统软件如何为门店解决管理难题？.docx

重新定义新用户 - 如何破解新用户增长难题？ .doc

大数据平台 MaxCompute 公有云多租户设计-7-3 数据科学如何解决供应链管理的难题？

2018架构师大会《从直播CDN的原理说起，谈如何解决延时和连麦的老难题？》.pdf