VB设计 屏幕保护.doc

VB设计 屏幕保护.docWindows提供了五个屏幕保护程序，以免显示屏幕由于长时间显示静态图像而受 损，同时它们
也有一定的消遣作用。普通读者也许从未想过开发自己的屏幕保护程序，因为用
C语言和SDK编
写Windows应用程序是一件非常让人头疼的事。实际上，利用VB, 一般读者也 可以编写出真正
的屏幕保护程序，其过程却比用任何其它语言要简单得多。本文就试图通过一个
完整的例子来
探讨一下用VB编写Windows屏幕保护程序的技术细节。
本文实例的项目文件SCRNSAVE. MAK中包括两个文件：SCRNSAVE. BAS、
BLANK. FRMo这两个文件
的作用分别说明如下。
一、 SCRNSAVE. BAS
此模块文件包含四个子程序：HideMouse, ShowMouse, EndScrnsave, Main。前三个 子程序分别用
于隐藏鼠标光标、重新显示鼠标光标和结束屏幕保护程序返回Windowso当在
Windows控制面板
的桌面对话框中对屏幕保护程序进行“设置”时，Windows会传给相应的屏幕保 护程序一个命
令行参数Commands,此命令行参数含有“/c”开关，要求屏幕保护程序提供自 己的设置对话
框。当在桌面对话框中对屏幕保护程序进行“测试”或在设定的时间内无键盘和
鼠标操作而激
活屏幕保护程序时，Command $中含有“/s”开关，要求屏幕保护程序立即开始 运行。本文提
供的屏幕保护程序实例在启动时首先执行Main子程序，Main子程序通过检查
Command $来决定
后续操作。若Command $中含有“/c”开关，则利用MsgBox显示简单的提示信 息，说明本程序
未提供任何设置选项；若Command $中含有“/s”开关，则启动一覆盖全屏幕的
黑色窗体Blank
Form,并在此窗体上显示动画，进行正常的屏幕保护工作。
为了在程序启动时首先执行Main子程序，应从VB的Options菜单中选择
“Project.”项，在
Project Options 对话框中把 Start Up Form 设置为“Sub Main,, 。
二、 BLANK. FRM
此文件是屏幕保护程序的主体。它负责建立一个覆盖全屏幕的黑色窗体
BlankForm,并在此窗
体上显示动画。它还负责监视键盘和鼠标事件，一旦有键盘或鼠标动作，则立即 结束屏幕保护
程序的运行返回Windowso为了建立一个无边框、无标题条的覆盖全屏幕的黑色 窗体，需将Bia
nkForm 窗体属性中的 BorderStyle 置为 0—None, Caption 置为空，ControlBox 置为 False, BackC
olor 置为&H00000000&,并在 Form_Load 中利用
Move 0, 0, Screen. Width, Screen. Height 将其放
大为覆盖整个屏幕。
本例显示的动画是根据《电脑爱好者》1995年第8期“动画制作秘籍(一)”中
的 CIRCSHOW. BAS
程序改编而成。动画部分是屏幕保护程序中最精彩的部分。实际上，它也是读者
为了编写自己
的屏幕保护程序而唯一需要修改的部分，也是读者的创意可以尽情发挥的部分。
读者可以充分
发挥自己的想象力和创