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

用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 
 (黑龙江 王兵 王波)

Sony开放SmartWatch 支持第三方定制固件 甩啦甩啦!Apptopia帮开发者在线买卖App所有权 聚焦全球移动市场:印度,这块肥肉不太肥 Google决定明年一月份停止对Chrome Frame支持与更新 你应该关注的几个Eclipse超酷插件 华为王丰:FusionCube打造下一代融合一体机 上海云人联合创始人吴朱华:中国人也能做出最好的实时数据库产品 Facebook RSS替代Google Reader?或因其社交属性失败 让这么多国外开发者如此兴奋,iOS 7到底好在哪里? Web开发中那些不招人“待见”的功能 最好的超级计算机在中国 为开发者提供的10款Web应用程序 5000万次下载:HandyGames如何征服Google Play? 红帽大战Ubuntu:750小时免费企业版红帽套餐即将登陆AWS EMC Sanjay Mirchandani:92%虚拟化,使更少IT人拥有更大交付能力 从NSA携谷歌、微软等9家名企监控用户行为看数据安全 【专访间】新科兰德创始人左磊:我们的“卖点”是“数据弹药” 甲骨文公司宣布推出最新Java EE 7 10款最佳CSS/jQuery开源图片说明 创业者应避免对投资者说的五句话 直接拿来用!最火的iOS开源项目(二) 西部数据Pat Wilkison:云计算市场是创新热点 猎豹浏览器发布手机版:PM谈开发理念 成为伟大开发者的“九步曲” 使用GPU构建更便宜的Google神经网络 Facebook与Yahoo!的“火花”:系统间实时数据流管理工具 视金钱如粪土?Yahoo!又要买了,梅姐的算盘是这样打的 MySQL手册不再遵循GPL协议:MySQL走向闭源前兆? 扁平化设计会扼杀人们的创造力吗? 又一巨头涉足移动视频分享领域:传雅虎欲收购短视频应用Qwiki 史上最牛:主要靠三消游戏IPO King也许会是第一家 简单问题 请问如果一个控件没有hwnd,怎样才能拿到它的hwnd?急! 请问如果一个控件没有hwnd,怎样才能拿到它的hwnd?急! 在设计ActiveX控件时,怎么得到该控件的HWND 请问浮点型的数据如何设置使它以科学计数法表示? 高分求教:VPOP3的使用方法? 500分求解:windows编程。 请教高手,关于用TCP/IP检测网络状态 一个关于注册 ODBC 的问题,请教高手 控件得到焦点时有OnActive事件,那失去焦点时是什么事件 哎,不知做什么软件才能赚钱? 请教跨域访问的问题! 请高手帮忙!一定给分! 怎样编程实现在ListBox里显示数据库表中一个列?(绝对放分) 那位有《101规约》给我一份,我实在不知道该到哪里去找!!!(50分求助) 关于对话框制作 关于例外 给Cisco认证提点建议!给分===== [求教]XML文档的参数中如有&符号如何处理。 [求教]XML文档的参数中如有&符号如何处理。 谁能给我提供免费防刷新的计数器代码……在线等待 请问出现下列错误,如何解决!(怎样察看每个OLE DB状态值) 会话状态设置中的SQLServer 模式如何应用? BUG!版主管理里的专题管理 session 没设置正确,请蝈蝈看看 有朋友问我学习C语言初中学历能学会吗? 大家帮个忙,很简单的问题,快呀,关于数据库的问题 请问vb怎么打开Access2000的数据库? 计算机并行口原理是什么 我在前台的程序中对text1.text=rs!number,为何text1.text的值还是空值,想不通??? GetSafeHdc() 的含义及用法 一个调用SQL数据库的问题! 如何ML一个装载地址不是4M的EXE文件(比如6M或8M) 谁能说说从一个ListView拖动文件到另一个ListView中 如何在程序结束时播放一段动画再结束!!!!! 我要书 下面是我的存储过程,为什么多人操作的时候会发生死锁呢,急呀! 谁知道炖鸡怎么炖啊?加什么料? 如何使鼠标点到对话框外时关闭对话框?(方法越多越好) 国家安全部门使用什么操作系统? “用户级虚拟机”调试应用程序的有几种实现方式,谁能说说???? 如何优化程序,使他减小占用系统资源? 请问怎样同时显示简体和繁体汉字? 我想查找字段为'注册类型'中包含'公司'的所以有记录 帮帮忙,SQL Script Recovery如何获得注册码? 如何“引用结构中的结构的数据”,比如MSG中的POINT鼠标结构 用一个Query动态生成并执行SQL语句 哪里可以下载到有关oracle 9i的电子书? 存储过程生成的数据窗口,如何在窗口中直接使用 prc扩展名的文件如何打开? 用vb在任务拦里靠系统时间的地方自己的程序添加一个图标用什么函数? 我用100分来搜集图形处理编程的网站及经典介绍。 People don't feel like doing simple jobs over and over again改同一句People ( ) ( ) ( ) do simple jobs over and over again中间有4个空应该是People ( ) ( ) ( ) ( ) do simple jobs over and over again 谁知道take your time的意思?不能以字面意思做回答! 学德语有什么简单的办法? ax2+bx+c=0(其中a\b\c均为常数,且满足b2-4ac>0),写出两实的表达式 这次的希望英语大赛有没有笔试?2009年的,快, Paraphrase the sentences.1. Besides, the whole toffeeness of toffees was imperceptibly diminished by the gross act of having eaten it.2. Sometimes, to keep up appearances, you have to spend sixty centimes on a drink, and go correspondingly short of f C语言中,a,b,c,d为double类型,数学表达式为5ab/7cd,在电脑中表达式5/7*a/c*b/d为什么是错的 There is a popular belief among parents that schools are no longer interested in spelling.No school I have taught in has ever ignored spelling or considered it unimportant as a basic skill.There are,however,vastly different ideas about how to teach i Paraphrase the sentence.Then the growing season began,swamping us under wave after wave of produce.1.分析句子成分2.翻译的难点3.paraphrase 中国的电器在美国如何使用 希望英语it has got me stumped Paraphrase the sentences什么意思什么意思啊!~大家帮帮忙啦!` 当太阳升起等我回来接你 什么歌 希望英语2011第25期,不是关键的,在那一期出现过的所有的单词! 翻译英语”清朝曾经有过几次可以了解世界的渠道和机会,可惜的是当时的皇帝们都错过了“ 歌词:火红的太阳升起在金色的西藏...是什么歌名?歌词:火红的太阳升起在金色的西藏唉藏族人民纵情歌唱.世界屋脊汽笛入云天万里高原凯歌传四方...这是上世纪70年代唱的歌,不记得歌名 辽宁盘锦太阳升起时间比北京早多少? 英文翻译 辉煌壮丽的清朝宫殿群 你去哪里了 用英文怎么说 2014年北京最低工资是多少? 听力初学者,是听VOA还是新概念哪个更适合? 我是已经工作并从事业务方面的工作 ,但听力不行. 知道长方体的三条棱长,求对角线长的公式是什么 咏怀八十二首 其一 夜中不能寐起坐弹鸣琴薄帷鉴明月清风吹我襟 孤鸿号外野翔鸟鸣北林徘徊将何见忧思独伤心“孤鸿号外野”的“孤”在表达上有什么作用?这首诗是怎样运用动静相形的艺 英文翻译:清朝中早期 怎么说 长方体的三条棱长分别为1、3、5,则它的对角线为? THE TERRACE RESTAURANT BAR怎么样 What did he eat for this morning?I don't know.(合并成一句) “你们去吗”用英文怎么说? 古代印度种姓制度中各等级的名称分别是什么?他们各自所处的社会地位如何? 沈阳市和平区太原南街193号 用英语翻译后的地址怎么写? 长方体的棱长总和怎么算1.长方体有{6}个面,每个面都是{长方}形,也可能有两个相对的面是{正方}形,{ }的面积相等.有{12}条棱,{ }的棱的长度相等.2.一个长方体的长是1.宽是1.2 德语关于时间表达顺序的问题书上有例句 Um zwölf Uhr essen wir zu Mittag 我们12点吃中饭.可以不可以说成Wir essen zu Mittag Um zwölf Uhr .时间的表达放最前面和最后面都可以吗?因为我看到后面书 he gave us ()on how to keep fit. 当a取何整数值时,关于x的方程2分之1ax-3分之5=2分之1(x-3分之4)的解是正整数?明天我就来收,希望能有人解答的出来,如果不明白题意的可以用百度HI我,注意: 德语,关于年份的表达.在1988年,除了im Jahr 1988之外还可以怎么表述?Im Jahr 1988 war ich nach Spanien gefahren.1988 war ich nach Spanien gefahren.老师上课还说了一种表达方式,但是我忘做笔记了. 什么动词不定式,加to是为什么啊,比如He gave us some advice on how to learn English.为什么加to?不加可以吗 阮籍咏怀八十二首的风格特征 德语时间问题在德语中 说:Wie lange arbeiten Sie?回答到Schon seit 3Jahren.可以说Schon nach 3 jahren 还有,德语复合词中间加S是根据什么? he gave us some newspapers.jenny always keep her bedroom tidy 被动语态 这篇短文有没有语法错误How are you doing?My uncle Li Ming will leave for your citiy to attend a meeting.He will bring the Chinese picuture that you want to have for you.The picutre is very beautiful and I think you must like it.I hope you c ALLEY BAR怎么样 求改正德语时间表达法!为什么我的这个写法是错的?我写的是:Nach 20.00 Uhr geht er nach Hause.批改时在 20.00 下面划了一条红线,这样写不对吗? 改同义句:She gave some bread to me .She( ) ( ) ( ) ( ). 后巷酒吧THE ALLEY怎么样 Go on walking and turn left at the third crossing同意句:____ on and____ third ____ on the ______. 哪位高手帮忙用C++做一个求复杂表达式的计算器~RT,要满足下列要求,不胜感激啊~(1) 数值:包括整数和实数,数值可带正、负号.(2) 一般运算符:正号、负号、加、减、乘、除、求模和乘方,其 take your 什么情景可以用? Turn right at the second crossing.(改为同意句)( )the second turning on ( )( ). 连词成句:she to and mother them some Jack's Peter give then gave forgot birthday but cakes 英语翻译“The Alley Alley O”该怎么翻译?是不是国外的一个地名或者特指什么?原文出处:YeahThe big ship sails through the Alley Alley OThe Alley Alley OThe Alley Alley OThe big ship sails through the Alley Alley OOn the la 国际象棋中的马(或者说骑士)的走法通俗点.最好有图示. 翻译句子:亲爱的妈妈,我爱你,我今天真的错了,请原谅我 take your time中文意思 国际象棋中马和象那个厉害 people don't feel like doing simple jobs over and over again 我要参加一个英语演讲,要求一分钟自我介绍,一分钟才艺表演,请问我一分钟才艺表演表演什么?大家帮我出出主意!我明天就要我去的!哪位好心的高明大师帮我想一下? I don't know what I should take.(改为同义句)、 I don't know what ____ ____ Tom doesn't feel like doing such simple jobs over again.怎样改同义句 Take Your Time Fast ForwardLucky StarStayMyBaby能和这几首差不多好听的就行 这几首是Amy Diamond唱的 德语“破晓”用中文怎么说?rt.要中文发音哦.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘