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

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

一周消息树:微软还需更激进的手段——开放Windows Phone 【开源推荐】Genome.js:当DNA遇到开源 Go 1.2发布 着重语言特性的改进 微软资深IE专家邹颂兵:好产品才是竞争的关键 Web应用程序完全测试指南 Python正在取代R,成为数据科学界新宠 代号Threshold:微软将推Windows统一平台Threshold 日本任天堂掌机应用:《卢浮宫》革了谁的命? [TUP第31期]《浪潮之巅》吴军:硅谷3.0助力中国企业走向国际 SequoiaDB创始人:比MongoDB领先一到两年 打造企业级NoSQL数据库 [对话CTO]甲骨文熊光樑:全球研发模式开发出接地气产品 GitHub中国游记之长城——跨越那堵看不见的墙 IE11开发人员工具:UI响应工具详解 2013 Linux领域年终盘点 腾讯云俱乐部深圳站成功落幕 开创移动开发新篇章 解读云计算、大数据、物联网等九大IT技术发展趋势 苹果已证实收购Topsy或将涉足社交领域 触摸未来:Tactus微流体技术2014年来袭 Windows的未来:一个核心 多个版本 Github项目中使用率最高的Java/Ruby/JS库 2013中国大数据技术大会盛大开幕 从黑色星期五找到的六个规则 帮助网站转化 移动开发者的自学宝典:十大在线编程学习网站 MIT新技术:远程触摸和操纵实物 创新人机交互 中国移动研究院业务支撑研究所所长孙少陵:大数据实时处理技术发展趋势及中国移动实践和展望 “第一届中国大数据技术创新与创业大赛”主办方发言及创新分赛颁奖 中国移动研究院业务支撑研究所所长孙少陵:大会及与会嘉宾介绍 中国工程院院士、大数据专家委员会主任李国杰:能挖掘出价值的数据就是好数据 阿里飞天平台总架构师唐洪:飞天开放平台 百度大数据首席架构师林仕鼎:新计算时代 金山发布全系列IaaS平台 jsp+mysql如何在linux上配置 有知道黑龙江高程查分方法的吗????? *******我要一个这样的类:显示淡入淡出的菜单(最好还能有半透明的功能) *************** 特急,各位帮忙。怎么样在字符串中包含'(单引号)? 高分求助用paradox数据库保存JPEG图片的代码,我试过网上好多都没成功。markoni@21cn.com 吴文智、袁飞、Jinesc、Jneu、Amoon、ttyp、icevi、progame 快请进 请教一个表与表之间比较数据的问题,由于数据量大,造成事务不够,请教解决方案 execcommand的使用方法求救。高手请进,一定给分。 我的时钟怎么回事? Matlab论坛 打印机的取消按钮 dbgrid中当某个单元格失去焦点时触发什么事件? 关于Database和Session的问题!火急! yanxu1 学习unix下的c编程,该如何学?请介绍方法,资料什么的--我对unix和c都还熟悉。 打印机死机作何解?????? 我是新来的,请各位大哥、大姐们多多关照!!!(有内容) 再次发问关于sql server7的问题?? SQL SERVER中的一个触发器的问题!!! xml里有什么method可以取得子节点在父节点中的位置(序号)? please help me 怎么样才可以把系统存储过程的结果写到结果集里? 如何声明和使用自定义对象(如:Tdataset)的事件(beforecancel)?? 一个奇怪的问题? 各位兄弟,谁知道哪里有pb7的下载? 天呐 我提的问题从来没人回答 SQL Server小小问题 请问那里有DELPHI第二张光盘下载! 如何是使用describe来获取datawindow中的带区参数? 谁有早期的TeeChart5.ocx,文件大小为2,576,384,发行日期在2001-06-17号以前的,我这里有个crack软件,但是新下载的不行,所以重金寻求!!! 请问C语言中有字符串查找函数吗? 请问如何动态的改变应用程序的图标,一定给分 Query主从表编辑问题,从不丢失! 急急急!!!! 高分求禁止IE的自动谈出的广告,有个软见也行,或者告诉实现方法。请告诉下载的网址。 打印一些清单在delphi中用哪些控件比较好? 如何打印到文件 如何得到WINDOWS的拼音字库 如何在BCB中进行SDK编程? 一个简单关于对话框的问题------->> 用asp将图片插入数据库,到底错在哪?苦恼啊!以前这个也通过了(win2000server+Sql7.0)但...(高分!!!!) 为什么我在Access2000的mdb中只能最多得到一条记录? 男人25岁就大吗? 关于 C 类IP的屏蔽 配置为COM+组件后,CoCreateInstance 失败! 关于C 类 IP的屏蔽 有谁知道本.拉登的QQ,俺找他有事?重奖`~~~~~~~~~~~~~~~~~~~! 有没有人告诉我,HTTP头跟正文中间夹的什么? 请问asp和php能访问webservice吗??? 如何一打开NOTE客户端就执行我的数据库(不能设书签)? true dbgrid控件怎么使一个网格又下拉的列表弹出来 关于计数器的代码 把60L水倒一个棱长为5dm的正方体容器里,水的高度是( )dm 一个圆柱底面半径4dm,高3dm和它等底等高的圆锥体积() 啥是中图分类号呀? 什么叫转基因食品? 把一个底面直径是4dm,高是3dm的木质圆柱加工成最大的圆锥,这个圆锥的体积是多少? 中图分类号怎么查询 1.有关“转基因”的资料,转基因技术的由来.——————————————————————————————————2.“转基因食品”是有益还是有害?请找到相关材料,说明.————— 两个底面积相等的圆柱和圆锥,圆柱的高为4.5dm,体积是81dm3,而圆锥的高为3dm,它的体积是多少? 深圳什么商场的NIKE或其他品牌的运动鞋打折啊? 小明和父母一起开车到距家200千米的景点旅游.出发前,汽车油箱内储油45升;当行驶150千米时,发油箱剩余油量为30升.(1)写出用行驶路程x(千米)来表示剩余油量Q(升)的代数式 在“绿满梅州”活动中,某镇要从外地运一批树苗,第一次运了520棵,第二次运了总数的12分之5,两次共运了总数的85%.两次共运树苗多少棵? 有一堆货物,第一次运走总数的1/8,第二次运走21吨,两次共运总数的3/4.这吨货物有多少吨? 小强和父母一起开车到距家150千米的景点旅游.出发前,汽车油箱内储油20升,当行驶120千米时,发现油箱剩余油量为10.4升.如果油箱中剩余油量少于3升时,汽车将自动报警.(1)如果汽车平均每一 转基因食品会不会造成基因污染潜在危险?国家对转基因食品态度如何? 一批电器第一次共运走总数的40%,第二次运走112件,两次共运走总数的四分之三,这批电器有多少件? 小明和父母一起开车到距家200千米的景点旅游.出发前,汽车邮箱内储存油45升,当行驶150千米时,发现剩余油量为30升.(1)已知邮箱内储存剩余油量y是行驶路程x的一次函数,求y与x之间的函数关 转基因食品好吗 应该如何对待转基因生物和转基因食品的安全问题最好分点 不要长篇 有小强和父母一起开车到距家150千米的景点旅游.出发前,汽车油箱内储小强和父母一起开车到距家150千米的景点旅游.出发前,汽车油箱内储油20升,当行驶120千米时,发现油箱剩余油量为10.4升.如 元旦期间,某商场搞优惠活动,决定由顾客抽奖确定折扣,某顾客买甲、乙两种商品,分别抽到7折和9折,共付款386元,这两种商品原售价之和为500元,问这两种商品的原售价分别是多少元? 一个底面周长为31.4dm,高为3dm的圆锥,沿高切成两块,求新增的表面积? 小明到距家200千米的地方旅游,汽车油箱内储油45升,当行驶150千米发现剩油量是30 升,已知油箱内余油量y升是行驶路程x千米的一次函数,求函数关系式 一个长方形的周长未24dm,如果它的长和宽各增加3dm,得到的新长方形比原来的长方形的面积大多少平方分米? 节日期间,甲乙两商厦开展了不同形式的促销活动,甲商厦的促销办法是:满100送10元,满200元送30元,满200元送50元,以此类推,每多买100元就多送20元;乙商厦的所有商品在原价的基础上打八五折 我市环保局将一个长为2×10分米,宽为2×10分米,高2×10分米的长方体废水池中的满池废水注入正方体储水池中净化.那么请你考虑一下,能否恰好有一个正方体储水池将这些废水刚好装满?若有,求 要做一个底面周长是18dm、高3dm的长方体框架 至少需要多少dm长的铁丝拜托各位了 3Q 把一个地面周长31.4dm、高3dm的圆锥沿着高切成两块,新增了多少表面积? 什么是转基因食品, 圆的直径增加5dm,周长增加多少dm?圆的半径增加3dm,周长增加多少dm? 将一个长6dm,宽3dm,高5dm的长方形铁块,熔铸成一个底面积为30dm/2的圆锥体,圆锥的高是多少? 某市环保局欲将一个长为2*10的4次方cm,宽为4*10的3次方cm高为8*10的2次方cm的长方形水池中的水,正好注满个正方形的水池,求正方体的棱长 转基因食品的利与弊不要转的、要少一点、字别太多就行、、、、、速度的来字也不要太少、、、、、、、、、、、、、 一辆汽车从甲地到乙地行了8小时,耗油48升,返回时,因上坡路较多,速度只有去时的80%,而且每小时多耗油10%问题 返回时耗油多少升?写算式 青州市的环保局将一个长为2×10的三次方分米,宽为2×10的二次方分米,高为2×10分米的长方体水池的废水注入正方体水池净化,那么考虑一下,能否恰好百一个正方体水池将这些废水刚好装完?若 转基因食品的利与弊 说的越简单越好 OK 一辆汽车以每小时80千米的速度从甲地开往乙地.司机估算了一下,如果提速20%,则可以少用0.5小时到达乙地.甲乙两地之间相距多少千米?用算术方法,不要方程的, 运一批树苗,第一天运了146棵,第二天运了154棵,两次运的数量比总数少1/4,这批树苗一共有多少棵?列方程 吃转基因食品的利与弊? 运送一批货物,第一次运走全部的3/7,第二次运走余下的6/5,两次共运走这批货物的() 初二数学上册书上复习题B组第3题 某商场购进商品后,加价40%作为销售价,商场搞优惠促销,决定由顾客抽奖某商场购进商品后,加价40%作为销售价,商场搞优惠促销,决定由顾客抽奖确定折扣,某顾 关于转基因食品的利与弊的短篇英语作文 运送一批货物,第一次运走全部3/7,第二次运走余下的5/6,两次共运走这批货物的(). 对的方舟子评价一下我个人挺喜欢方舟子的,他正义,实事求是.看见好多网友的评论有表扬的也有批评的,批评声中不乏文采超好的人.方舟子有错吗?只不过说了真话而已. 某商场购进商品后 加价40%后作为销售价.现商场搞优惠促销活动,决定出顾客抽奖确定折扣.一人买了一双鞋和一个包,分别抽到七折和九折,共付款109.2元,两商品原销售价之和140元,鞋和包进价各 转基因食品利与弊的作文 把60升的水倒入一个棱长为5dm的正方体水箱中,水深()dm 某汽车行驶时油箱中余油量Q千克与行驶时间t小时的关系如下:写出时间t表示余油量Q的代数式行驶时间t小时 余油量Q千克1 36-62 36-123 36-184 36-245 36-30 元旦期间,某商场搞优惠活动,决定由顾客抽奖确定折扣,某顾客买甲、乙两种商品,分别抽到7折和9折,共付款386元,这两种商品原售价之和为500元,问这两种商品的原售价分别是多少元? 请详细解 把100升的水倒入一个棱长为5dm的正方体容器里,水的高度是多少dm? 某汽车行驶时油箱中余油量Q千克与行驶时间t小时的关系如下:写出时间t表示余油量Q的代数式行驶时间t小时 余油量Q千克1 36-62 36-123 36-184 36-245 36-30提问:当T=二分之三时,余油量Q的值为多少千 运输队运一批货第一次运了比总数的百分之四十少十五吨第二次运了48吨后剩的比总数的八分之一多五顿这批货共几吨 把48L(升)水倒入一个棱长为4dm(从里面量)的正方体容器中,水深多少dm? 一辆油箱装满油的汽车,在速度不变的情况下,汽车油箱中余油量Q(千克)与行驶时间t(小时)之间的关系为Q=kt+b,已知车速为40千米/时;当t=0 时,油箱中余油量为60千克;汽车行驶了8小时,油箱中余 把一个底面直径为8DM,高3DM的圆柱形钢材,榕成一个直径为12DM的圆锥形,能熔筹多高 今年“十一”黄金周,超市A和超市B都进行了让利销活动(2个超市东西价格都一样的)超市A是20购买为( )元的商品,A、B超市都合适?思路 数学一辆油箱装满油的汽车,在速度不变的情况下,汽车油箱中余油量Q(千克)与行驶时间t(小时)之间的关系为 Q=kt+b,已知车速为40千米/时;当t=0 时,油箱中余油量为60千克;汽车行驶了8小时,油箱 一个底面周长为6.28dm,高3dm的圆柱形钢材熔涛成一个圆锥.这个圆锥的底面积是1.5平方分米,高多少分米? 把100生的水倒入一个棱长为5dm的正方体容器里,水的高度是多少dm? 转基因食品有什么影响?最近看到一篇博文,说金龙鱼是外商操纵的傀儡,产品原料都是转基因的,还牵扯到一个世界级的惊天阴谋——西方预谋用转基因食品让中国人种族灭绝.有那么严重吗?说 把高5分米,底面直径3dm的圆柱形钢材,切成一个最大圆锥,这个圆锥体积是?切掉部分还可以做几个这样的圆
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn