| VB 源码 | VC 源码 | ASP源码 | JSP源码 | PHP源码 | CGI源码 | FLASH源码 | 素材模板 | C 源程序 | 站长工具 | 站长教程 |

VB技术

ASP技术
PHP技术
JSP技术
VB技术
.NET技术

本类阅读TOP10

·VB到底为我们做了什么?
·利用shell编程实现DOS风格的Linux命令行
·屏保程序模板化完整源代码
·用VB6实现中英文文本的私钥加密
·VB解决Unicode文本转换的问题
·用VB编写网络监控软件
·一组VB实用小程序
·新手必学:windows网络编程经典入门
·用VB编写定时关闭计算机的程序
·用VB制作屏幕保护程序

站内搜索

用VB制作屏幕保护程序

  利用Visual Basic 制作屏幕保护程序非常容易。本文将详细给大家介绍制作屏幕保护程序的方法。

  一. 基本编程思路

  大家都知道屏幕保护程序就是利用变换的颜色或图形以防止不变化的屏幕像素被损伤。所以,屏幕保护程序就是显示不断变化或移动的图形,并且当有鼠标移动或按键时能够终止的程序。

  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目录下,就完成了屏幕保护程序的创建。

  二. 实例

  下面就用一个实例给大家详细说明屏幕保护程序的制作。

  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 Ucase$(Left$(Command$, 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

  以上程序在HP 586/133上调试通过。

  作者:王兵 王波




相关文章
  • 21个实用PHP代码
  • 精通PHP的十大要点
  • VB解决Unicode文本转换的问题
  • 一个基于WEB的QQ程序
  • 使用xmlhttp查询域名是否被注的小程序
  • 用VB6实现中英文文本的私钥加密
  • 一组VB实用小程序
  • 用VB编写异步多线程下载程序
  • 屏保程序模板化完整源代码
  • VB中实现窗体自动隐藏
  • 用VB编写网络监控软件
  • VB到底为我们做了什么?
  • 键盘幽灵VB版
  • 用VB编写定时关闭计算机的程序
  • 用MCI命令做一个播放器
  • 使用VB在WIN2000下截获IP数据包
  • VB中字符串中文的问题
  • VB枚举主机IP
  • 用VB编写一个弹出菜单类
  • 自己的IE——用VB制作浏览器
  • 相关软件

  • VBScript编辑器源码  
  • 字体观察器FontViewer源码  
  • 自动壁纸更换器源码[第二部分]  
  • 自动壁纸更换器源码[第一部分]  
  • WINDOWS 3.0终端程序的C源码  
  • 一个取得 CPU 信息的程序源码  
  • 广告窗口终结者源码  
  • 下载整个网站程序ssnag与源码  
  • CGI邮件程序源码  
  • ISAPI留言簿源码  

  • 下载首页关于我们广告服务联系方式常见问题隐私声明法律条款本站声明下载帮助发布软件站点地图谷歌卫星地图