说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

用VB制作屏幕保护程序

HTML文档下载 WORD文档下载 PDF文档下载
用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资料 VB文本的加密与解密 VB显示盘中所有的目录 VB压缩MDB文件 一个移动文件的简单方法-VB资料 VB移动文件到回收站 VB隐藏文本框控件的环境菜单(又一方法) VB隐藏文本框控件的环境菜单 VB用API复制移动文件 VB用OleDragdrop事件接受拖放文件 用VB进行文本文件的再处理 用VB开发应用程序如何使用INI文件 用VB实现文件查找功能 VB用Winsock控件实现文件的下载 VB用两分法搜索列表框或组合框中的数据 在 ListBox 之中, 如何检测鼠标所在位置的选项? -VB资料 在 Textbox 中,录入 N 个字符后移到下栏-VB资料 在 VB 中控制 Word 在GotFocus时快速选择文本 -VB资料 在VB中使用文件对象 在VB中使用艺术字 在VB中引用.dbf及索引文件 在Windows操作系统中改变文件打开方式-VB资料 在程序运行时,怎样把多个文本框的内容保存起来-VB资料 在打印字符串时自动换行 -VB资料 在文本框中快速增加一串字符-VB资料 在文本框中实现由加减号输入数据-VB资料 在引用项目找不到Excel、Word等Office软体Lib的解决法-VB资料 VB怎样从文件列表框中取得文件的完整路径和名称 VB制作一个有参数的执行文件(方法之简单难以想像) 资源档(.RES)的应用-VB资料 为什么我自定义的继承于CWnd的类接受不到某些消息,比如WM_MOUSELEAVE? 关于ACCESS的三个问题,热心大虾请进! 6to23的ASP空间和其它的收费空间有什么不同? 请问VB6的那个Package&Deployment 向导在VB.NET的哪里?怎么用? 用installshield4.0制作安装文件时,当最后build disk时却提示我需要vcl40.bpl,怎么会事?????? C 谁能给我一个比较简单的EJB的例子?详细点! 请教 如何动态创建使用控件组? 求救,菜单问题!!! 哪位大侠能告诉我怎么用vc修改浏览器代理,非常感谢 vs.net调试的时候出错信息不全,怎样能显示更详细的错误细节? 继续那个PING不通的问题。 请教我的一个程序的窗口最大化没有把显示屏幕铺满,请问怎么处理? global.asa里面的问题 有谁知道winxp将浏览网页时的临时文件放在哪一个目录下了???? 请教sql server2000的问题,thanks!thanks! qq探密!!! 统计一下:有多少位程序员在用VB系的开发工具 关于ACCESS的两个问题,热心大虾请进! 数据恢复问题,答对即给分(在线) 做过进销存系统的高手们,请谈谈经验 asp 与 dreamweaver有联系吗? 请教如何设置WIN2000的时间服务? 怎么样判别时间字段为空 ? 如何实现类适于IE浏览器的图片旋转功能 如何在FileListBox中弹出系统对该文件的右键菜单 如何更改MFC程序生成文件的默认图标? 我是ASP初学者,请大家帮忙? 英语真的那么重要吗? 一个JS的简单问题,但是我还是给100分 怎么透明显示一张bmp图片(急,在线等待) 急,两个问题,帮帮忙(其中一个关于ActiveSkin) 查询出的报表内字段值为空的单元格,显示不出单元格框线,为什么? Java论坛 急!在LINUX下,配置内核时Intel corporation|82801AB AC'的声卡应该先哪项,我用的是2.4.16的内核。 世界杯——蓝色的忧郁 使用异步socket通信,服务器端在OnReceive消息函数中能否获得客户端IP地址? 菜鸟学JAVA送分 怎样用delphi实现EDI? 两到汇编题。麻烦大家帮我做一下。。我实在做不出来 今天去面世了~~~结果他们………… 举报 哪里有.net源程序下载?? : 两到汇编题。麻烦大家帮我做一下。。我实在做不出来 莱鸟问题:如何字符变量str的值赋给EDIT控件, : 两到汇编题。麻烦大家帮我做一下。。我实在做不出来 哪里有2001年的中程的试卷? 第一次来CSDN,以后希望大家多多帮助!! 在VB中获取和修改计算机名字 用什么软件能把扫描仪扫的文章变位文本文档?? 孔子母亲教子的故事, 男人梦见抓到大鲤鱼 一种玩具的售价,今年比去年降低了1/4,去年又比前年降低了1/5,今年的售价比前年降低了几分之几? 关于母亲教子的故事要150~300字左右哟忽视的我的母亲 和孟母三迁 不要好的答完给分 梦到抓了 蓝色的 鲤鱼 和红色的鲤鱼梦见 在一个 很长的水泥池子里 很长 看不到头 宽度 也就有3米左右 长度很大 我抓了一条蓝色的鲤鱼 好像是别人把它杀了 还有一条红色的鲤鱼 但是不知 历史上一正一反两个有名的教子故事拜托各位了 3Q ab两地相距225千米,甲乙两车同时从两地相向而行,甲车平均每小时行50千米乙车平均40千米.两车相遇时,甲车行了全程的几分之几? 一种昆虫,嘴像钳子.小时候河边发大水就会有这种虫子爬出来,我们称为大水虫.头部有大拇指大硬且黑色,嘴像钳子黑色,身子无甲壳灰色,柔软.对足6到8对.尾部有小倒钩.体型扁,全身长10厘米 亚洲鲤鱼在美国大量繁殖,泛滥成灾的原因是什么 甲车每小时行50千米,乙车每小时行40千米.两车同时从A、B两地相向而行,相遇后甲车又用2小时到达B地.A、B两地相距多少千米? 关于珍惜友谊的名人名言 一种尾部长着钳子的昆虫长的不太大,和蟋蟀差不多.头不大,尾部的钳子较大. 联系上文,在下面个词语中选择恰当的词语依次填在横线上.执着 大器 清新 明丽 鲜艳 热烈 飘逸 惊喜 敏锐 不知从何时起,国人告别了婉约,细腻和含蓄之后,又告别了从容,于是,没有了两个黄鹂 A B C 三个盒子里装着黑白两种球,三个盒子中所装球的数量相等.A盒子里白球个数和B盒子里黑球个数相等.和B盒子里黑球个数相等.C盒子里白球个数是全部白球个数的5分之2.全部黑球个数占总 古代有哪些慈母教子的故事,简短一点 做梦梦到红鲤鱼是什么意思? 珍惜友谊的名言 古代慈母教子的故事 两篇 要短的. 我梦见在个深山老林里,有个水塘里抓鱼吃,抓了只很大的黑鲤鱼,有点心虚(知道鲤鱼不能吃,有灵性的东西)就把它放了,又抓了只花的,像锦鲤.但当地的人说··是什么··山尸鲤鱼很邪的东西. A,B,C盒子里有黑白两种球三个盒子球的数量相等A的白球和B的黑球数量相等C黑球是C盒 球数的百分之20求全体黑球的个数占总球数的百分之几? 有哪些母亲教育孩子的故事, 一捆电线,第一次用去25米,第二次用去20米,还剩百分之四十,这捆电线有多少米啊 谁知道珍惜友谊的名言警句~越多越好 头上触角有点像眼炸毛,尾部有两个钳子的昆虫, 一捆电线,第一次剪去七分之三米,第二次剪去二分之五米,还剩25米,这捆电线原来长多少米要过程详细一点最好 关于珍惜友谊的名言 长有八条腿前触角有小钳子身体扁平有横条纹是什么虫子?长有八条腿,没有触角,头很小只有一对有小钳子,身体扁平有横条纹,大小像小蜘蛛,我在家扫地发现的猛一看以为小蜘蛛,它是什么,是 一捆电线,第一次用去它的30%,第二次比第一次多用去40米,还剩60米.这捆电线原来长多少米? 有什么珍惜友谊的名言 粉紫这种颜色用英文怎么说RT 甲乙两班人数相等各有一些同学参加课外小组,甲班参加的人数是乙班没参加的1/3;乙班参加的人数是甲班没参加的1/4.问甲班没参加的人数是乙班没参加的几分之几? 蠼螋、蠼螋、地蜈蚣、火夹子是否同指一种昆虫 我们这组是颜色组,分别有黄,红,蓝,紫,橙,粉红,白,黑,灰,青,绿,咖啡色,英语怎么说,急阿, 梦见红色鲤鱼 有只名叫蠼螋虫进了我耳朵.睡觉时早上被疼醒了,感觉耳朵里面嗡嗡的响,我使劲摇头,终于给弄出来来了,是只大约;两厘米的小虫,我查到这虫叫蠼螋,现在耳朵还疼着呢,这虫还有传说,原文这样 历史上有名的教子例子有很多,正面的有 ,反面的有 梦见抓到红鲤鱼 沙漠里的蒲公英阅读答案 要有名的! 鲤鱼和草鱼最主要区别是什么?谢 数学可能性:一个盒子里有2个白球,摸到白球的可能性是多少?第二题:一模一样的的糖,有A、B两种包装,A包装有5块,B种包装有3块.摸到( )种包装的可能性大,它的可能性是( ). 读了一株沙漠里的蒲公英你有什么启示我今天7点就要写起啊!另外以色列人为什么把蒲公英送给那些拥有智慧而贫穷的人?还有沙漠里生长着一株蒲公英改成排比句!改成比喻句!怎么把语 草鱼是鲤鱼的1.5倍草鱼比鲤鱼多580条,草鱼和鲤鱼各多少条? 郭敬明的句子、要超经典的、超伤感的 一株沙漠里的蒲公英这个故事有什么启示?把沙漠里生长着一株蒲公英改成排比句!改成比喻句怎么改啊? 鲤鱼和草鱼哪个好吃 盒子里有两个红球和两个白球 任意摸出两个 摸到一红一白的可能性是多少 为什么 98浓硫酸配置10%稀硫酸.实验室用100ml98%的浓硫酸配饰10%的稀硫酸,能得到稀硫酸的体积多少毫升?注 98%:1.84g/m^3 10%:1.07g/m^3 我认为应该是先求出浓硫酸的质量,再求出稀硫酸的体积,为什 已知,如图,F是正方形ABCD的边AB上的中点,AE=1/4AD,FG⊥EC求:FG平方=EG·GC 求几句 郭敬明写 的最有感觉的句子 配制49g20%的稀硫酸时需要98%的浓硫酸的质量 many a 作主语谓语动词单数复数 郭敬明一些优美句子美句加上每一句话的赏析. 试举历史上有名的教子故事.(正面、反面)详细一点 拜托了~! 母亲教育孩子的典故 例如孟母三迁 用98%的浓硫酸(密度为1.84g/cm3)和水配制100g 10%的稀硫酸,下列仪器中一般不需要使用的是( )用98%的浓硫酸(密度为1.84g/cm3)和水配制100g 10%的稀硫酸,下列仪器中一般不需要使用的是( 试举历史上有名的教子故事.(正面,反面事例各一) 仓库有120吨化肥,分给甲村三分之一,分给乙村四分之一.甲村比乙村多分多少吨化肥 我梦到我捉到一条红色的鲤鱼是什么意思啊我梦见我在天上飞,正飞着就看见河里有一条红颜色的鲤鱼,于是我就往下飞去捉它,第一次捉到了可又跑了,然后我就一直跟着它,最后把它捉到了并 从正反两面具出两个历史上有名的教子故事
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘