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

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

正式进军硬件市场 Atlassian发布可穿戴设备Bitband 云计算时代IT专业人员需具备的10项技能 【走近院士】李德毅:大数据是连接虚拟和现实世界的桥梁 微软Build2014大会第二天干货总结 Microsoft Azure拥抱Puppet、Chef、MongoDB... 唏嘘不已!Brendan Eich上任Mozilla CEO仅十天即因歧视同性恋被迫辞职 最火HTML5 JavaScript游戏引擎:国外篇(一) Facebook发布PlanOut 开源部分A/B测试源码 一周消息树:6款Java转C#的最佳工具、Web开发者必备的9个软技能 对话“宙斯杯”获奖代表:依托京东云平台,打造精品电商CRM 关于微软开源WinJS,开发者必须知道的5件事 告别丑陋banner条,InMobi联合开发者尝试原生广告 免费游戏开发经验谈:第一印象很重要 《近匠》小旭音乐:游戏音乐金牌匠人的练级之路 日600亿消息,月4.65亿用户——WhatsApp的Erlang世界 一周热点:Cloudera新一轮融资总额已达9亿美元 【走近院士】李未:实现云服务的有效方法是群体软件工程 大神云集 大型创客聚会2014深圳Maker Faire盛大开幕 直击Maker Faire,将精彩“一网打尽”! 电池革命:超级充电器来袭,30秒为手机充满电 风雨13载,Windows XP今起正式退役 向Facebook看齐,Twitter收购Android屏幕待机应用开发商Cover 绝对的超现实!Jaunt打造360°全景VR电影 Unite China 2014课程解析:行业解决方案专场免费开放 Manhattan,Twitter规模的实时、多租户分布式数据库 Ceph浅析(中):结构、工作原理及流程 孙元浩:基于Spark引擎的高速内存分析和挖掘工具应用 腾讯私有云背后的团队,品高要做企业云计算的产品经理 撼动企业应用架构的十大技术趋势 Airbnb的管理之道:产品设计的点评策略与技巧 Windows 8.1 Update 1的下载地址和八点须知 《近匠》棱镜:手游渠道SDK平台的技术历程 在WEBLOGIC5.1中怎样设置Cluster Server? 获得一个窗口的句柄,如何获取该窗口的Height和Width 怎样让程序停留指定的时间间隔? 一定要装oracle的客户端,才能在system DSN的添加中看到oracle的数据源驱动程序吗? 一个关于多进程udp连接的重发的问题 怎样把金钱变量转换成字符串变量? 有人知道如何在application中取出拨号地址的吗? 这不公平!!!!!!! Delphi 指针问题,请大家帮忙! web assistant怎么根据数据库中的数据生成一个页面?那个页面要我自己的样式? 大家帮我看看错在那里!谢谢! 请问有没有用自己的机子作服务器的? 帮我看看代码 日志钩子的安装问题? 如何使用。MDB文件 由于上一题回帖子的人数众多,导致分数不够,所以再开一帖!继续!关于用vb进行文件的读写问题! 怎样在数据库中输入了许多条记录后, 一次性存盘成功? 改变光驱盘符?很急很急 在Oracle中怎样加已经存在的数据文件? 我想请高手帮忙 !! 请问目前那一本参考书对DELPHI初学者有很大提高? 一个关于udp重发的问题 如何在delphi程序里调用vc写的exe执行文件。 如何将query中的内容输出到文本文件,然后还能将该文本文件再导入进来?急急急!!!!!!!!!!! 急急急!!我的计算机找不到硬盘了45分 如何求任意多边形的重心 紧急求助:请问java有没有比较丰富的多媒体控件?比如录音的控件??? 急急急!!!我的计算机找不到硬盘了,45分 如何把一个字段的内容求和,然后把结果存入另一表! 请教,怎样把一个记录数组用VB读入ACCESS 2000数据库中? 关于货币类型的问题? the script too large ????????我快疯了。 什么地方有Sybase与Oracle的比较资料? 急急急!!!我的计算机找不到硬盘了,40分 问一下大家 复活节彩蛋 win2000 professional下如何配置weblogic6.0 jsp和javasript如何通讯? 急!!!如何把'¥100'字串转化为浮点型100.00 用OleContainer1将一个WORD文档存进数据库后如何将它从数据库中取出??? 关于SNMP的问题(请高手回答,送40分) 谁想过要戒水?戒成了吗?又渴了吗? 我用在各种机器上使用Win2000,从来没有down过, 真是太奇怪了??? 请问如何确定操作系统系统是中文的还是英文的? 向外国用户发注册码时候应该说些什么,才能让别人觉得你比较专业? 如何捕获ADO的异常信息 struct结构的数据存储是用的什么顺序方式呀? 能介绍几本关于BCB的适合初学者阅读的书吗? 高手进来,struct结构的数据存储是用的什么方式呀 高分!高手请进!!! Newton 商务信函——填空Dear Sirs,We write to i___ ourselves as one of the l__ exporters from Brazil of a wide r__ of exvacators.We a__ to this letter a list of products we are r___ exporting and t__ that some of the i___ will be of great i___ to you 发邮件给某人英语 英语有哪些标点符号 商务英语信函(关于产品介绍)的填空Dear sirs,We are very pleased to receive your _______ of 15th January and _________ our illustrated _________ and price list giving the details you ask for.Also by separate ________ we are sending yo 给……发邮件到…… 英语怎么说? 英文里为什么很少用标点符号?印象中括号,引号,破折号都很少见,书名号更是根本没有,常用的只有逗号句号和问号,偶尔能看到个引号.这是为啥捏?3Q 英语信题目,写一份信函你9月2日写了一封信给上海音像出版社订购50箱CD碟,现在写信希望对方能够确认已收到订单,并再次附上订货信附件.你的公司名称:Music Store你的地址:Parker Lane,London N 1 在写EMAIL的时候一些英语单词的简写有哪些?比如把YOU写成U 英语翻译英文句子里电影名字是用《》书名号括上,还是用“”引号括上? 英文商务信函 回复请帮我写封信.大概想表达的意思是:您的支票我已经收到了,但是您把我的名字写错了,是qiu 不是qui,结果中国银行不让我兑现,您能不能改正之后 在发张支票过来,我不大懂 你每周给你的朋友发多少封电子邮件?英语怎么写? 填写标点符号, 英语翻译dear sir/madam,we wish to refer to our Order No.4567 for ten tons of processed polyethylene due to be shipped at the end of next month .when this order was placed,our stocks were considered to be sufficiently enough to last until Septembe 英语单词email的用法英语单词“email”的具体用法 标点符号填写1雨的力量在于它可使一望无际的黄土高原转眼变得沟沟壑壑()混乱不堪()而知识的力量则在于它可改变命运()扭转乾坤(),缔造美好的未来.2不要在光线暗的地方看书( 商务信函翻译成英语.谢敬启者: 事由:衬衫 我们从一本贸易杂志上得知贵公司名称和地址,同时我们获悉贵公司是当地纺织行业领先企业.很荣幸写信给贵方,希望和贵方建立业务关系. 我们 发电子邮件的英语单词 填写标点符号 英语翻译感谢您快速的回复,你的报价我们已经收悉,但是很遗憾你方价格偏高,我们希望你们重新考虑报计算价格并报给我们一个最具有竞争力的价格,并且我们想知道你生产的此种货物 英语翻译Hätte Interesse an diesem Tablet.Meine Frage wäre:Kann man eine 32 GB Karte dazu bekommen.Dann gibt es dazu noch eine passende Tasche.Haben Sie diese vielleicht auch zum Verkauf.Wenn ja,wie teuer?Wenn man 2 Tablet-PCs kauft,best 问一个标点符号书写问题如果用格子信纸书写到每一行还有一个空格时,这时正好这句话还差一个字,如果加上句末的标点符号就需要两个空格了.通常遇见这种情况下是不是这最后一个空格就 商务信函英语,Ⅲ.英译中1.On the recommendation of Sunshine Trading Corp.,we have learned your name and address.2.We shall be grateful if you will send us your samples immediately.3.We trust there's a good prospect for our business through ou favourite 在美式英语中怎么拼写 名信片的英语怎么写 英语邮件怎么写? “电邮”用英文怎么写 英语比赛,要写一篇英语作文,布置怎么写英语信. 英语翻译别肉鸡! 这封英文信如何写?由于某个客户的订单量太少,老板决心停止与其的发展.现在要写这样一封信,委婉的表达该意思,我该如何写是好?50分悬赏,好的话再酌情追加. "英文怎么写?你...以上英文怎么写? 贸易邮件中的英文回复?之前的合同因为银行费用问题,未能扣除全额预付,所以 买家要求做100%D/P这段英文怎么描述? 英语翻译你买到了倩碧吗?如果没有,那就不要买了,我有个哥哥最近去了加拿大旅游,他也可以帮我带倩碧,如果你买到了,你打算怎么给我呢? 谢谢你的回信.以及你对我的家人和公司的关心.我们都很好,希望你也很好.这么长时间没有联系,我感到抱歉,因为近来工作实在是太忙了.很期盼你来到北京观看08年奥运会,相信那一定是一次让 关于英语商务邮件.在回复别人邮件时,开头客套话 除了THANKS FOR YOUR MAIL,还可以有哪些 英语翻译再次打扰你.根据你们图纸上的要求,我们需要在XXX(产品名称)上张贴三种LABEL,但是你们目前仅建立了两种LABEL的信息在LSWEB,还差一种,请帮忙完成下. 原文:照片收到.不知你现在可好,奥运会期间有没有来北京?这些照片是我在杭州西湖拍的,西湖,那里很美,是人间天堂.你还会来中国吗?祝愿你一切顺利!吻你漂亮的女儿. 英语翻译5)that is why i need you to assure me that when i make the start,i will be the only person selling your goods in iran and whoever else giving you differnt order then i should get my commission which is 7.5% per sell wether they contact yo 英语email格式写家人的爱好 求助写封英文信假设你是李华,你的朋友来中国玩,请写信邀请他来你家乡玩,用英文写,活动内容有游泳,跑步,爬山,吃海鲜,交通坐飞机,机场有45路车,到最后一站下,会去接他 求用英文发送email的格式 代写英文Email,非常急,关于询价,直白就可以. 中文意思如下:收到你的信很高兴,我看了你的相册,真羡慕你走了那么多的地方,每个地方都留下了很多故事和回忆吧,真好!真的很希望我也能早点去你走过的地方看看.你在家平时都做些什么 我昨天已经发邮件给他们了,但是忘了发给你.用英语怎么说 :电子邮件地址 英文怎么说 谁能帮我写英文信信的大致内容是:我叫XXX 我是那个中国孩子 很高兴能与您相识 并且成为一个临时家庭 我的英文不是太好 我想您已经了解 很抱歉我迟来的问候 请带我向您的家人问好还有 英语翻译Something in him now,a quivering,struggling passion that lay behind those eyes,held Thornton white and silent.Msieur,he began in the low voice which Thornton was beginning to understand,I am going to tell you something which I have told t 用英语怎么写,email 一份写给父母的英文信内容是我在大学中生活个方面的增加了,而且物价也在涨,等原因.希望你的父母能给你增加生活费. 商务信函,麻烦帮忙翻译一下成英文,在线等按照贵司现在的订单量,暂时来说我们没有办法做FOB.但是如果贵司可以考虑把所有物料都在我们公司下单的话,能够凑齐一个整柜,我们可以提供CIF条 英语翻译:我已经收到你发来的电子邮件,现在我给你谈谈我上网的感受 中文标点和英文标点转换有没有快捷键转换中文标点和英文标点?而不用再去输入法图标上点击. 求帮忙写一份英文商务信函啊!急用,缩行式商务信函:主要内容:许光伦是宁波康大进出口公司的业务经理,通过Pakistan使馆商务参赞处得悉对方公司的名称和地址,欲与对方建立友好业务关系, 你也可以往这里给我发邮件 ←求英文翻译 输入的中文标点符号与英文标点符号有什么区别?中文标点符号与英文标点符号主要是什么功用. 英语翻译MATT先生:您好.非常抱歉现在才给你回复.我刚接手工作,需要对先前工作流程及相关事宜了解.公司非常重视此次合作机会.我已经将合作协议发给相关同事评估,正在等待回复,如果有 英语翻译主要是“相关人士”的准确翻译, 怎样切换中文标点和英文标点? 英语商务信函,急用,the chairman of your company wants the sales figures for last month and he will present them at a shareholders meeting ,write a fax to the sales manager Alex要求:1,telling him to prepare the sales figures 2,explaining wh 英语翻译附档是C的验货报告,请查阅 关于英文里的标点符号今天上课就是讲这个..听不太懂....不是句号实不实心的问题...是想问在句子中分段的用法..
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn