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

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

那些年云计算领域的大牛们 回顾:那些被平台方封杀的第三方应用 [热帖推荐] 中国的程序员,真的“短命”吗? 聚焦HTML5移动开发 第六届英特尔杯大学生软件开发大赛开幕 虚拟化技术新星Pluribus Networks获中国VC青睐 可穿戴开发!Pebble Watchface SDK 4月发布 我想做个程序员:一位编程小白的App开发故事 Go 1.1发布,支持向后兼容 Polycode:免费、开源的跨平台(游戏和APP)开发工具 为何大多数云计算公司注定要失败 究竟是什么让Redshift比Hive快10倍?! [评论]将Linux拒之门外 微软被开源社区指控垄断 精细化运营:友盟统计分析SDK 3.0版本发布 “锤子OS”功能猜测与罗式对比营销 神奇!1KB JavaScript代码编写的3D蜜蜂 顶尖技术人员“兜售”的顶尖编程语言、扩展工具等 移动阅读商业化:Flipboard支持用户DIY杂志 全球移动App:Top 52发行商排行榜 知新网CTO:从程序员的视角,实践精益创业 罗永浩锤子ROM:小团队的75项微创新 谷歌知识图谱扩展到Android平板电影中 云计算大战升温 服务器OEM押注OpenStack 如何将战略性的内容策略融入进网页设计中 数字天堂CTO:移动行业应用开发“潜规则” 众联智领CTO:从idea到面目全非的创业产品 CMDN Club 25期:knewone与路况电台的精益创业法则 Windows Blue的孪生兄弟?Office Gemini浮出水面 HTML5开发平台Ludei将支持3D游戏开发 《二战风云》发布至今,已为顽石互动狂赚2.7亿 腾讯开源基于HTML5技术的专业级图像处理引擎 AlloyImage Linux容器运行时Docker开源 >>>>>超难度问题<<<<<怎样在屏幕上锁定一个移动的物体并得到它的x,y坐标 用ADO访问数据库时,如何拼写动态SQL 麻烦给发个Jbuilder7的注册机,注册码不会用不要!急! 请问在ASP中调用DLL到底需不需要注册,我怎么看有的需要注册,有的不需要! ASP 0115 ??错误,怎么办?急 OLE 文档序列化!请大虾指教! 双硬盘????,郁闷中。。。在线等 批量数据写入,是否有简捷的方法 请问谁有1、美达S693A2主板光盘;2、还有美达p4vad主板,是什么显卡? 用java weblogic.ejbc编译时为何总报找不到.xml文件 ftp的问题 请问各位:如何在ASP.NET中打开一个现有的或一个新的WORD文档? 讨论怎么发财 关于查询系统的需求分析怎么写?用触摸屏实现 如何把一个文件保存到数据库中? 耦合 哪里有WEB合同管理代码?或资料?演示?急!!!谢谢!有人知道吗?? 谁能把这段代码破解 求一函数,在线等....... 剛&#24478;vb轉delphi,&#24171;我看一看!結貼&#24456;&#24555;! 如何可在WINXP中改MAC?? sprintf(a,"%2X",b)问题 关于简单的access查询 java字符转换问题!!! 请教一个Struts标记问题! 一个cab下载的错误信息解读,请教高人。 OutLook?怎么用它发邮件,经常提示错误? 帮看这段删除纪录代码有什么问题?三层结构oracle 本人要做一个WEB合同管理平台,由于以前没做过,请大家指示? Web Application 中怎么来调用 Web Server?谢谢! DataGrid中模板列嵌套的DataGrid怎样相应其事件 [调查]程序员证在你们公司里到底有多大的作用?有多少人有证?希望有没有证的都进来说一下。 怎样把字符串"C;\aaa\bbb"变成字符串"C:\aaa\ccc\dd"?用什么函数,操作? 我的SQL Server 装好后,出现下面的错误 这个文件查找真是怪!......msdn源代码居然有问题, 进来看看... 请问在TreeView控件中如何通过光标的上下移动获得光标所在项在数据库中的ID值 對掌上電腦Sony Peg-TG50和ACER N10怎麼看??? 使用SOAP协议传递服务器端查询结果容量问题? 菜鸟问题:数据窗口怎么设置检索参数?急!!在线等 ****入门提出的问题****,请各位高手指教! 很简单的一个问题。 这个问题怎么处理? vb如何调用一个组件?? 一个小问题,可不简单哦! 应聘CMM时,会被问到什么有关CMM的问题? 调用servlet出现这个错误HTTP method POST is not supported by this URL 在公网上如何连接远程数据库啊。。 这算不算bcb的bug?关于Image控件的使用。 使用 GDI 函数画直线时,如何同时在该直线的两端画出箭头来? 怎样改变网卡的工作模式???~~ 疑难杂症--关于共享adsl专线的网络问题--疑难杂症 对于参数已定的微分或耦合电路,当矩形脉冲频率改变时,输出信号波形是否也改变?为什么? 如果湖泊与你钱,为什么溶解氧会增加是湖泊淤泥浅 淘宝秒杀拼音该怎么输?各种首字母,各种输拼音~几天了就是输不对,谁能举个列子到底怎么才算对? 鲁滨逊做成这只大型独木舟真是费尽了心血,他总花了( )个月的时间! 关于天体运动的一道题~一颗人造地球卫星发射前在地球表面时所受地球引力为2.0*10六次方 牛,当它运行于高度等于地丢半径的轨道时所受地球引力为 牛) 淘宝一元秒杀一串拼音什么意思 如何把长气球弄成动物造型 鲁滨逊为了做好这只大型独木舟,共花了几个月的时间 3个数最大公约数算法请用高中必修3的语言来写,C++,JAVA等不适宜.我就是说只有INPUT PRINT IF WHILE那些来写 大闸蟹怎么保鲜 鲁滨逊做木栅栏花了多长时间? 关于求最大公约数算法的问题书上是说:1.输入m、n(m为被除数,n为除数)2.m/n得余数r.3.判断r=0?是的话n为最大公约数.4.否则讲n赋给m,r赋给n,循环2.我想问为什么能这么做?(为什么能用除数除 大闸蟹怎样保鲜 亲本基因型的判断一雄蜂和一雌蜂交配后产生F1雄蜂的基因型为Ab,aB,AB,ab四种,雌蜂的基因型为AaBb,Aabb,aaBb,aabb则亲本基因型是什么? 请指出电熨斗的各个部件哪些是导体,哪些是绝缘体,哪些是热的良导体,哪些是热的不 关于大闸蟹保鲜问题我想邮寄给朋友大闸蟹,朋友在上海,我在常熟,如何才能使大闸蟹不死亡 事件发生的可能性不管有多小,但是都一定会发生.这是什么定理 最大公约数 算法求正求两个数:m,n的就大公约数算法为:t=1;while(t){t=m%n;m=n;n=t;}结果n为最大公约数!~!请问能用数学证明它的正确性吗?这题的意思是..m/n得到的余数为t,如果t不等于0,则把n的值 求歌词:歌词oh wa ou sister oh oh oh 歌名 新闻的客观主义理论? 请问有木有关于数学运算的英文文献啊?急啊!最好还有中文翻译哦 罗西尼的机械表怎么样罗西尼的这款表怎么样7419W03C 我们这2300元 机芯好么 是这个好 还是西铁城的光动能好呢 想买个两千多的 化学方程式的书写和计算 求一篇5到6页的数学英文文献,需要中文翻译, 请问罗西尼的机械表怎么样啊?走时准确吗? 质量为m的小球由高为H的、倾角为θ光滑斜面顶端无初速滑到底端过程中,重力、弹力、合力的冲量各是多大? 秦始皇的历史作用?秦始皇是怎样的一个人?他在影视剧中与历史上的有没有差别? 一年之计在于春这句话的含义 两个一样的物体分别放在倾角不一样但一样高的两个光滑斜面上..它们重力的冲量一样吗. 电火花成型机 工作液为什么要用煤油? 八七会议确定的党的总方针是?急要.有人知道么 我画了一个长方形,为了好看,90度角画弧,如何画 每天什么时间运动最科学呢? 请问“纯电能”有用吗 亚硫酸钠与硫反应 say 纯电能汽车还不能大量应用的主要技术或资源困难是什么. 硫和酒精反应生成什么 NVER SAY GOODBEY 我的女孩 黄金杠杆比例是什么意思.如果亏了是怎么算的. 红豆打了绿豆一拳 绿豆打了红豆两拳 打一动物 双驴头抽油机冲程计算方法 醉汉骑驴,颠头簸脑算酒帐.艄公摇橹,打躬()()讨船钱----- 在摆动导杆机构中,若取曲柄为原动件时,机构的最小传动角γmin=90°.请问是为什么,我觉得是0°请好好讲下,感激! 抽油机冲程是什么? 天通金是什么 判断:曲柄滑块机构处于传动角最大位置时的机械效率最低.( )关键词:机械原理 四杆机构 曲柄滑块机构 传动角 机械效率 7天 9月29.30 十月1-5 按理说是7天,但是要看高几了~现在很少有高中能放全假了 7天的假 能放个3天就很高兴了 天通金怎么样 4.76克硫酸钠,亚硫酸钠,亚硫酸氢钠的混合物和足量的硫酸作用逸出气体672ML(标准状态),同样的混合物和24.04ml3.2%的氢氧化钠溶液(密度为1.04g/ml)反应,试计算在混合物中亚硫酸钠的质量分数. 中国有国际城市科学节吗? 手机淘宝秒杀出现3个方框和几行文字如图要填什么才对,应该怎么填 锌和氧化锌粉末的混合物34.1g,通入足量的氢气,在高温下使氧化锌全部还原,将所得的全部固体加入20%的稀硫酸245g,恰好完全反应,求原混合物中锌和氧化锌各多少克 never say goodbey 淘宝上秒杀东西时跳出来的3个方格要填什么 下列是ES-156型多功能蒸汽电熨斗说明书的部分内容:产品特点:具有干湿两用功能.干用功能是指在无水状态下,通过电加热管加热底板,底板温度上升,直接压烫衣物;湿用功能是指在蒸汽 飞机表演时的彩烟是什么物质? 单基因遗传病患者体内都有一对异常基因这句话对不对 江、河、湖泊水中的溶解氧少会发臭,而地下水中的溶解氧少,为什么不会发臭呢? 威马G-896STJ电熨斗为什么比一般的熨斗重?买了款威马的G-896STJ电熨斗,发现比你一般的电熨斗要重啊,这是为啥? 美国警察向手持玩具枪男孩10秒内连开大图们江倡议协商会力促区域合作人品爆发!美国男子中611万后仅隔两日本“菜鸟”教师多:不会点火柴不敢拿土耳其欧亚海底铁路隧道仅运营第一天突甬台温高速一客车冲落路基 1死5伤日本一女大学生因在公园拍摄成人视频被亿万富翁崛起捷克政坛 所在政党成议会卡梅伦首次跌出权力榜前十 遭英媒体嘲报告称南澳大利亚州今年已有84人被猫美华裔留学生派对后在公寓猝死 疑因酒伊朗强硬派阻击核谈判 指责鲁哈尼对西2头青梅竹马大象打架双亡 园方:公母西班牙承认与美国在情报搜集方面存在有叙利亚副总理贾米勒被指擅离岗位被解职法国表示希望参与新加坡扩大地铁网络计开审埃及穆兄会 3名法官纷“病退”日本自民党大力推动修宪国民公投 拟降德国议员差旅费暴涨达688万欧元 媒德国锁定美情报部门窃听站位置 位于使女童目睹家人在车祸中被烧死 获赔1.德国总统选举 前外长施泰因迈尔当选施泰因迈尔当选总统 德媒:普京高兴 斯诺登:“不惧怕”被俄罗斯引渡回美国中国游客遭越南边防人员殴打致重伤 中巴西腐败案波及拉美多国 秘鲁对前总统学习一个 春节之后如何去火土家山寨闹元宵 千人齐唱《太阳出来喜佳节之后降肝火 就来这两样节后怎么给胃减负?记住加减乘除4法则新季人人 目标冲甲《歌手》一年之计在于春暖冬 孕育亚冠级主场里皮医的是“活马”现在就要有个季后赛的样子白俄罗斯新政策:中国公民可免签入境停白宫发言人斯派塞“里外不是人” 被特不降反增!俄罗斯施行新反家暴法后家暴台湾旅业“高增长”怎么看(看台絮语)中泰校企联盟培养中企专业人才慰侨暖意扫尽北国春寒
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘