初学VB 请教一个小程序

来源：百度知道 编辑：UC知道 时间：2024/06/06 14:01:21
用计时器，每一个小时弹出提示在电脑前工作的人起来活动下，用一个label,一个按钮，一个计时器，打开自动计时，到时间自动弹出，label上写“您已经工作一个小时啦！起来活动活动吧”

下面按钮“我知道了”点一下，最小化至任务栏继续计时，直到一小时后再次弹出提示

…………作业，头疼
这不行，你还得有一个按钮呢，点按钮让这程序最小化继续计时啊，难道你一天就工作一个小时…………还有啊，最小化要在托盘，别在任务栏 三楼的高手再帮帮忙了……

'新建一个文本文档，将以下代码复制到文本文档里面，然后改名为form1.frm，用vb6.0打开，运行之。。。
'我给修改了一下，你看看我这个方法是不是比你说的最小化到托盘效果更好？
'最小化到托盘需要调用api函数，实现起来比较啰嗦，不如这种方法简单易行。你可以先将提示时间设置成5秒看一下效果，代码里有注释。

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4260
ClientLeft = 60
ClientTop = 450
ClientWidth = 6600
LinkTopic = "Form1"
ScaleHeight = 4260
ScaleWidth = 6600
StartUpPosition = 3 '窗口缺省
WindowState = 1 'Minimized
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 495
Left = 480
TabIndex = 1
Top = 1080
Width = 1695
End
Begin VB.Timer Timer1
Left = 720
Top = 2760
End