用VB制作屏幕保护程序

用VB制作屏幕保护程序用VB制作屏幕保护程序用VB制作屏保程序一、基本编程思路屏幕保护程序就是用变换的颜色或图形以防止屏幕荧光粉被损伤。当有鼠标移动或按键时能够终止它。 1. 编制屏幕保护图形 2. 隐藏鼠标用ShowCursor Windows API 函数我们可以实现隐藏鼠标。 3. 检测鼠标和按键行为检测鼠标行为以便退出屏幕保护程序。 4. Windows 调用屏幕保护程序的参数命令 ,a 在显示器属性对话框中单击它可改变口令按钮。 ,p 每当选中显示器属性对话框中屏幕保护程序标签时，在对话框显示预...

用VB制作屏幕保护程序用VB制作屏保程序一、基本编程思路屏幕保护程序就是用变换的颜色或图形以防止屏幕荧光粉被损伤。当有鼠标移动或按键时能够终止它。 1. 编制屏幕保护图形 2. 隐藏鼠标用ShowCursor Windows API 函数我们可以实现隐藏鼠标。 3. 检测鼠标和按键行为检测鼠标行为以便退出屏幕保护程序。 4. Windows 调用屏幕保护程序的参数命令 ,a 在显示器属性对话框中单击它可改变口令按钮。 ,p 每当选中显示器属性对话框中屏幕保护程序标签时，在对话框显示预览效果。 ,c 在显示器属性对话框中单击它进行设置按钮。 ,s 在显示器属性对话框中单击则预览按钮或屏幕保护程序被系统正常调用。 5. 编译屏幕保护程序其实任何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 As Boolean ′声明终止程序标志变量 Dim lleft ′声明隐藏或显示鼠标的API 函数 Private Declare Function ShowCursor Lib ″user32″ (ByVal bShow As Long) As Long ′检测鼠标单击或移动 Private Sub Form_Click() quitflag = True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static xlast, ylast Dim xnow As Single Dim ynow As Single xnow = X ynow = Y If xlast = 0 And ylast = 0 Then xlast = xnow ylast = ynow Exit Sub End If If xnow <> xlast Or ynow <> ylast Then quitflag = True End If End Sub ′检测按键 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) quitflag = True End Sub Private Sub Form_Load() Dim X As Long lleft = 0 ′横向滚动文字的起始X坐标 If App.PrevInstance = True Then ′用APP对象的PrevInstance属性 Unload Me ′防止同时运行屏幕保护程序的两个实例 Exit Sub End If Select Case UCaseS(LeftS(CommandS, 2)) ′装载命令行参数 Case ″,S″ ′在显示器属性对话框中单击了预览按钮或屏幕保护程序被系统正常调用。 Show ′全屏显示Form1窗体 Randomize ′初始化随机数生成器 X = ShowCursor(False) ′隐藏鼠标 BackColor = vbBlack Do Timer2.Enabled = True ′启动Timer2 ,显示屏幕保护滚动文字 DoEvents ′转让控制权,以便检测鼠标和按键行为 Loop Until quitflag = True ′运行屏幕保护滚动文字直至有鼠标和按键行为 Timer2.Enabled = False ′终止滚动文字 Timer1.Enabled = True ′启动Timer1,退出屏幕保护程序 Case Else Unload Me Exit Sub End Select End Sub Private Sub Form_Unload(Cancel As Integer) Dim X X = ShowCursor(True) ′显示鼠标 End Sub Private Sub Timer1_Timer() Unload Me ′退出屏幕保护程序 End Sub Private Sub Timer2_Timer() ′显示横向滚动文字 lleft = lleft ， 100 If lleft >= 11810 Then lleft = 0 Lab1.Top = Int(Rnd , 7000) End If Lab1.Left = lleft Timer2.Enabled = False End Sub

                    本文档为【用VB制作屏幕保护程序】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

用VB制作屏幕保护程序

你可能还喜欢