资源描述：
《vb屏幕保护程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、屏幕保护程序设计思路：设计好窗体，使得窗体运行时全屏幕占有及显示在最顶层。运行时消除光标，退出时响应键盘、鼠标并显示光标。设定好定时器，每隔0.5秒出现一次圆图像，当到达次数时清除画面，并调用画圆程序。把画圆程序设置好，使其能每次随机出现圆个数，并每个圆能有许多同心圆，颜色随机生成。屏幕保护程序需要几点：1、窗体覆盖整个屏幕move，和保持窗口定位在屏幕的最前端SetWindowsPos。2、去除/显示光标ShowCursor。3、画圆函数Circle。1、窗体在屏幕的最前端是Move0,0，screen.width,screen
2、.height窗口在屏幕的最前端，用windows的API函数——SetWindowsPos，当使用API函数时可以在VB6.0API文本浏览器里查找，然后复制粘贴在“一般模块”里。Move指令用法是确定一个方格在form中的位置，其坐标是从（0,0）开始的。Command1.MoveH1*0.5,H1*0.5,H1*7,H1*2Command2.MoveH1*8,H1*0.5,H1*7,H1*2Command3.MoveH1*16,H1*0.5,H1*7,H1*2这里H1代表一个常数的话，方格就从H1*0.5,H1*0.5中知道
3、第一点（原始点），然后H1*7（宽）,H1*2（高）知道第二点（扩展点），然后以x、y轴方向连接这两点，就形成了扩展。下面是设置窗口窗体位置的做法：（1）、在“一般模块”新增代码命令OptionExplicit'常数定义PublicConstHWND_TOPMOST=-1PublicConstSWP_NOMOVE=&H2PublicConstSWP_NOSIZE=&H1'API函数声明PublicDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhwndinse
4、rafterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLongSetwindowpos函数所使用的参数如表：Hwnd要处理的窗口HWndInserAfterHwnd窗口将插放在zorder顺序的hwndinserafter窗口之后（zorder是指窗口叠放的顺序）x、y窗口坐标位cx、cy窗口宽度及高度Wflags窗口显示的标志状态。例如将设置窗口标志为SWP_NOMOVE（不可移动）及SWP_NOSIZE(不可
5、改变大小)注意：h是类型描述，表示句柄，Wnd是变量对象描述，表示窗口，所以hWnd表示窗口句柄。通俗地说，如果把一个到处跑的人当作指针的话，那么HWND就是该人的身份证----我想应该是身份证号码程序中调用setwindowspos函数Temp=setwindowpos（hwnd，HWNDTOPMOST,0,0,0,0，SWPNOMOVEorSWPNOSIZE）Setwindowpos（要处理的窗口，窗口叠放顺序，窗口坐标位，窗口宽度及高度，窗口显示的标志状态）HWND_TOPMOST:将窗口置于所有非顶层窗口之上。即使窗口未被
6、激活窗口也将保持顶级位置。1、去除/显示光标在屏幕保护程序打开时，必须去除光标，而且在结束屏幕保护功能之后，也必须恢复显示光标。可通过API函数——showcursor完成。函数声明（查API文本浏览器）PublicDeclareFunctionShowCursorLib"user32"Alias"ShowCursor"(ByValbShowAsLong)AsLong名称功能Showcursor函数会设置一个内部计数器，当计数器大于等于零时，才显示光标Bshow当bshow为TRUE,则内部计数器加1，当bshow为FALSE,则
7、内部计数器减1备注：该函数设置了一个内部显示计数器以确定光标是否显示，仅当显示计数器的值大于或等于0时，光标才显示，如果安装了鼠标，则显示计数的初始值为0。如果没有安装鼠标，显示计数是C1。消除光标：DOLoopuntilshowcursor（False）<-5借助D0-loop循环，不断递减showcursor的内部计数值至小于-5，从而windows系统自动消除光标。同理，显示光标DoLoopuntilshowcursor（True）>51、画圆：circle【对象名】.circle[step](x,y),radius,[co
8、lor]Step目前坐标点为相对参考原点(x,y)圆心坐标Radius半径color颜色过程的分类：1、事件过程：当发生某个事件时，对该事件作出响应的程序段。如PublicEventClick（）2、函数过程（Function）：函数过程用来完成特
