怎么把QQ的早上好与晚上好弄到VB上来

答案:5 悬赏:60

解决时间 2021-04-28 01:54

提问者网友：美人如花
2021-04-27 11:16

如图. 我不知道他是怎么做到的. 知道的教下谢谢. 备注:一到下午六点以后就变成"晚上好". 这个是怎么设置的. 请教各位高手

最佳答案

二级知识专家网友：啵啵桃汀
2021-04-27 11:58

使用js脚本或者时间控件.加QQ!我发给你

全部回答

1楼网友：狠傷凤凰
2021-04-27 15:03

Private Sub Form_Load() Timer1.Interval = 1000 End Sub

Private Sub Timer1_Timer() Select Case Hour(Time) Case Is > 6 Form1.Caption = "早上好!现在是" & Hour(Time) & "点" Case Is > 10 Form1.Caption = "中午好!现在是" & Hour(Time) & "点" Case Is > 13 Form1.Caption = "下午好!现在是" & Hour(Time) & "点" Case Is > 18 Form1.Caption = "晚上好!现在是" & Hour(Time) & "点" Case Is > 23 Form1.Caption = "凌晨好!现在是" & Hour(Time) & "点" End Select End Sub

2楼网友：转身→时光静好
2021-04-27 13:25

不会把QQ的早上好与晚上好弄到VB上来。

但可以根据你电脑的时间来修改显示的内容。

你可以添加一个时间控件，让时间控件定时查看电脑系统时间是多少，然后判断并修改显示的内容。

给你个方法，你试试看。

先在窗体上添加Timer控件，然后把下面代码复制进去，再运行

Private Sub Form_Load() '500毫秒 Timer1.Interval = 500 End Sub

Private Sub Timer1_Timer() Cls Select Case Hour(Time) Case Is < 9 Print "早上好！" Case Is = 12 Print "中午好！" Case Is > 18 Print "晚上好！" Case Else Print "白天好！" End Select End Sub

3楼网友：摧毁过往
2021-04-27 13:05

If Hour(Now) < 9 Then MsgBox "早上好" ElseIf Hour(Now) > 9 And Hour(Now) <= 13 Then MsgBox "中午好" ElseIf Hour(Now) > 13 And Hour(Now) <= 18 Then MsgBox "下午好" ElseIf Hour(Now) > 18 Then MsgBox "晚上好" End If

4楼网友：安稳不如野
2021-04-27 12:59

js脚本可以做..根据系统时间判断..

我要举报

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

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