急需一个时钟的VB程序实验报告
2个回答
展开全部
'窗口中拖一个 Label1 一个时钟，然后代码复制进去！
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Static f As Integer
f = f + 1
Label1.Caption = f
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Static f As Integer
f = f + 1
Label1.Caption = f
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
代码就是下面的：
Private Sub Form_Load()
Label1.FontSize = 80
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time()
End Sub
怎么一分都没有呀
Private Sub Form_Load()
Label1.FontSize = 80
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time()
End Sub
怎么一分都没有呀
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
