编程输出以下图片效果：要求：程序一启动显示当前系统时间，点击“刷新”按钮刷新为当前系统时间。编程输出以下图片效果：要求：程序一启动显示当前系统时间，点击“刷新”按钮刷新为当前系统时间。

答案:3 悬赏:80 手机版

解决时间 2021-06-03 17:48

提问者网友：那叫心脏的地方装的都是你
2021-06-03 04:39

要求：程序一启动显示当前系统时间，点击“刷新”按钮刷新为当前系统时间。编程输出以下图片效果：要求：程序一启动显示当前系统时间，点击“刷新”按钮刷新为当前系统时间。

最佳答案

五星知识达人网友：神鬼未生
2021-06-03 04:54

Private Sub Command1_Click()
Label2.Caption = Format(Time, "hh:mm:ss AM/PM")
End Sub

Private Sub Form_Load()
Label1.Caption = "Current time is:"
Label1.FontSize = 16
Label1.ForeColor = &H4AE642
Label1.Font.Bold = True
Label1.Font = "times new roman"
Label2.Caption = Format(Time, "hh:mm:ss AM/PM")
Label2.ForeColor = &HFF00FF
Label2.FontSize = 25
Command1.Caption = "刷新"
Label2.Font = "times new roman"
End Sub

字体和颜色可能没对上号，不过功能已经实现，这是VB6代码，运行截图：

全部回答

1楼网友：刀戟声无边
2021-06-03 07:31

dim times as datas

dim str as string

public sub form_onload()

times=time()

str="current time is" & "br" & times

this.lable.text=str

end sub

private sub refresh_onclick()

times=time()

str="current time is" & "br" & times

this.lable.text=str

end sub

2楼网友：洎扰庸人
2021-06-03 05:58

load 的时候~

this.lable.text=system.datetime.now.tostring();

刷新的时候。。

this.lable.text=system.datetime.now.tostring();

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息