屏幕保护程序设计思路

下载后可任意编辑屏幕保护程序设计思路：设计好窗体，使得窗体运行时全屏幕占有及显示在最顶层。运行时消除光标，退出时响应键盘、鼠标并显示光标。设定好定时器，每隔 0.5 秒出现一次圆图像，当到达次数时清除画面，并调用画圆程序。把画圆程序设置好，使其能每次随机出现圆个数，并每个圆能有许多同心圆，颜色随机生成。屏幕保护程序需要几点：1、窗体覆盖整个屏幕 move，和保持窗口定 位 在 屏 幕 的 最 前 端 SetWindowsPos 。 2 、 去 除 / 显 示 光 标 ShowCursor。3、画圆函数 Circle。1、窗体在屏幕的最前端是Move 0,0，screen.width,screen.height窗 口 在 屏 幕 的 最 前 端 ， 用 windows 的 API 函 数 — —SetWindowsPos ，当使用 API 函数时可以在 VB6.0 API 文本浏览器里查找，然后复制粘贴在“一般模块”里。Move 指令用法是确定一个方格在 form 中的位置，其坐标是从（0,0）开始的。 Command1.Move H1 * 0.5, H1 * 0.5, H1 * 7, H1 * 2 Command2.Move H1 * 8, H1 * 0.5, H1 * 7, H1 * 2 Command3.Move H1 * 16, H1 * 0.5, H1 * 7, H1 * 2这里 H1 代表一个常数的话，方格就从 H1 * 0.5, H1 * 0.5 中知道第一点（原始点），然后 H1 * 7（宽）, H1 * 2（高）知道第二点（扩展点），然后以 x、y 轴方向连接这两点，就形成了扩展。 下面是设置窗口窗体位置的做法：（1）、在“一般模块”新增代码命令 Option Explicit'常数定义Public Const HWND_TOPMOST = -1Public Const SWP_NOMOVE = &H2Public Const SWP_NOSIZE = &H1'API 函数声明Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hwndinserafter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongSetwindowpos 函数所使用的参数如表：Hwnd要处理的窗口HWndInserAfterHwnd 窗口将插放在 zorder 顺序的 hwndinserafter 窗口之后（zorder 是指窗口叠放的顺序）x、y窗口坐标位cx、cy窗口宽度及高度下载后可任意编辑Wflags窗口显示的标志状态。例如将设置窗口标志为SWP_NOMOVE（不可移动）及 SWP_NOSIZE(不可改变大小)注意：h 是类型描述，表示句柄， Wnd 是变量对象描述，表示窗口，所以 hWnd 表示窗口...