初学VB 请教一个小程序

显示全部楼层 · 2008-12-4 14:07:58

用计时器，每一个小时弹出提示在电脑前工作的人起来活动下，用一个label,一个按钮，一个计时器，打开自动计时，到时间自动弹出，label上写“您已经工作一个小时啦！起来活动活动吧”
下面按钮“我知道了”点一下，最小化至任务栏继续计时，直到一小时后再次弹出提示
…………作业，头疼
这不行，你还得有一个按钮呢，点按钮让这程序最小化继续计时啊，难道你一天就工作一个小时…………还有啊，最小化要在托盘，别在任务栏三楼的高手再帮帮忙了……

千问 · 2008-12-4 14:07:58

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

千问 · 2008-12-4 14:07:58

放一个时钟控件到窗口上,在属性窗口把Enabled设为True,把Interval设为60000,双击时钟控件在它的事件下面写入:label1.caption="您已经工作一个小时啦！起来活动活动吧!"...

千问 · 2008-12-4 14:07:58

动弹出，label上写“您已经工作一个小时啦！起来活动活动吧” 下面按钮“我知道了”点一下，最小化至任务栏继续计时，直到一小时后再次弹出提示...