关于VB程序问候“早上好”“中午好”“晚上好”的代码

Case 6 To 9

advise.Text = "早晨好"

Case 10

advise.Text = "上午好"

Case 11 To 13

advise.Text = "中午好"

Case 14 To 18

advise.Text = "下午好"

Case 19 To 24

advise.Text = "晚上好"

Case Else

advise.Text = "凌晨了，还不去睡觉……"

我的思路是，用qt做一个界面，界面里面只有一张动态图，有一个菜单可以打开文件选择动态图，用qt就可以做出来， 关于音乐， 用system函数 或者linux下的函数，调用程序 就可以把音乐也播放出来。 应该是要用两个线程。我猜的，显示动态图不知道是直接显示还是要一直刷新，所以可能是两个线程。

新建一个工程，在窗体上放一个Timer控件

复制下边的代码：

Private Sub Form_Load()

Me.Hide      '窗体隐藏

App.TaskVisible = False  '在任务管理器应用程序列表中不可见，只有进程可见

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

If Now = "2010-2-13 22:58:00" Then MsgBox "happy 2010!"

End Sub

测试成功效果请看图片

'建议你还可以加上开机启动，托盘区图标等

---