1 / 4
文档名称:

用VB制作屏幕保护程序.doc

格式:doc   页数:4页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

用VB制作屏幕保护程序.doc

上传人:fy5186fy 2016/7/28 文件大小:0 KB

下载得到文件列表

用VB制作屏幕保护程序.doc

文档介绍

文档介绍:用 VB 制作屏保程序一、基本编程思路屏幕保护程序就是用变换的颜色或图形以防止屏幕荧光粉被损伤。当有鼠标移动或按键时能够终止它。 Windows API 函数我们可以实现隐藏鼠标。 。 调用屏幕保护程序的参数命令/a在显示器属性对话框中单击它可改变口令按钮。/p每当选中显示器属性对话框中屏幕保护程序标签时,在对话框显示预览效果。/c在显示器属性对话框中单击它进行设置按钮。/s 在显示器属性对话框中单击则预览按钮或屏幕保护程序被系统正常调用。 VB应用程序都可作为屏幕保护程序来运行,但为了被 Windows 95 所调用,需要将它作为屏幕保护程序来编译。首先进入 VB5 编程环境,编好程序后选择/ File /Make project 菜单项,然后在 File Name 文本框中将后缀名 EXE 改为 SCR 。最后单击 OK按钮,将生成的 SCR 文件拷到 Windows 目录下,就完成了屏幕保护程序的创建。二、实例名称属性值 Form1 BorderStyle=0 -None ′取消标题栏和最大化、最小化按钮 WindowState=2 -Maximized ′窗体最大化 Timer Name=Timer1 Interval=1 ′时间间隔为 1毫秒 Enabled=False Timer Name=Timer2 Interval=50 Enabled=False Label Name=lab1 Caption= 电脑爱好者 Option Explicit Dim quitflag AsBoolean ′声明终止程序标志变量 Dim lleft ′声明隐藏或显示鼠标的 API 函数 Private Declare Function ShowCursor Lib ″user32 ″(ByVal bShow As Long) AsLong ′检测鼠标单击或移动 Private Sub Form_Click() quitflag =True End Sub Private Sub Form_MouseMove(Button AsInteger, Shift AsInteger, XAs Single, YAsSingle) Static xlast, ylast Dim xnow AsSingle Dim ynow AsSingle xnow =Xynow =YIfxlast =0And ylast =0Then xlast =xnow ylast =ynow Exit Sub End If Ifxnow <>xlast Orynow <>ylast Then quitflag =True End If End Sub ′检测按键 Private Sub Form_KeyDown(KeyCode AsInteger, Shift AsInteger) quitflag =True End Sub Private Sub Form_Load() Dim XAsLong lleft =0′横向滚动文字的起始 X坐标 =True Then ′用APP 对象的 Pr