2个回答
展开全部
摆设一个时钟和一个标签
时钟的时钟周期设置为 1000
之后双击时钟
上面会有代码
要求标签前景为绿色,背景为黑色,字体32号,代码可完成,属性也可以完成
空格+代码:标签1.标题=Format(Now,“YYYY年MM月DD日 hh:nn:ss”)
最近在用别的语言
还不熟悉
时钟的时钟周期设置为 1000
之后双击时钟
上面会有代码
要求标签前景为绿色,背景为黑色,字体32号,代码可完成,属性也可以完成
空格+代码:标签1.标题=Format(Now,“YYYY年MM月DD日 hh:nn:ss”)
最近在用别的语言
还不熟悉
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Form_Load()
Label1.AutoSize = True
Label1.ForeColor = vbGreen
Label1.BackColor = vbBlack
Label1.FontSize = 32
timer1.interval=1000
End Sub
private sub timer1_timer()
Label1.Caption =Format(Now,"YYYY年MM月DD日 hh:nn:ss")
end sub
Label1.AutoSize = True
Label1.ForeColor = vbGreen
Label1.BackColor = vbBlack
Label1.FontSize = 32
timer1.interval=1000
End Sub
private sub timer1_timer()
Label1.Caption =Format(Now,"YYYY年MM月DD日 hh:nn:ss")
end sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询