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

用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用 VB 设 计 VCD 播 放 器 VB用API播放 .wav 声音文件 VB用MCI指令进行多媒体编程 用VB5.0编写自己的MP3播放器 用VB6.0编写电脑抽奖程序 用VB6的双通道技术获得影碟片断 用VBScript制作活动主页 用VB编写DirectX7.0游戏(下) 用VB编写FLASH动画播放器 用VB设计VCD播放器 用VB实现队列播放MP3 用VB实现屏幕滚屏保护效果 用VB制作下雪的特技景象 用VB自制屏幕保护程序 用Visual Basic实现多画面播放功能 雨滴式的显示图片 -VB资料 在VB5.0中制作多媒体界面 在VB5中将英文字母及阿拉伯数字旋转任意角度 在VB5中如何使机箱内的小喇叭发出不同的声音? 在VB6.0中播放GIF动画 在VB应用程序中恰当的使用声音 在VB应用软件中实现动画效果 在VB中播放AVI文件 在VB中建立司旋转的文本特效 在VB中如何创建闪烁(标语)屏 在VB中显示动画鼠标图标 在VB中用PictureClip控件实现动画 在Visual Basic 6.0中实现自动播放VCD 为什么我的机器运行spy++出错啊, 关于网络流量的监控,高分 ***************动态创建DSN中的一个怪问题***************** 除了电脑程序外,还有什么物理性的方法可以清洗喷墨打印机的墨头? 请问这首歌的歌名? xmldom问题。 讨论:给个用XML的理由先,我现在只知道XML可以跨平台,提供数据接口的作用。请大侠讨论一下 如何定义全局变量? 在线等待:在DELPHI中调用windows api 的 SetFocus(),应怎样调用? 关于指针问题 有点搞不懂了!! switch的简单问题 在哪里添加全局函数 两个asp.net问题,请高手一定解答! 关于Treeview的几个问题? 怎样才能实现按返回按钮以后,自动刷新刚刚提交的页面!代码如下,请帮我改改! HELP!!! 请问VB关闭WINDOWS下面的所有窗口的命令是什么?谢谢 数据移植问题,多帮忙呀! 问来问去,也没问出个所以然来。干脆再简化一下问题吧。 如何制做帮助文件? 一个XML绑定数据集的问题? 多层数据库一问!!!!!!!!!!!!!!!!!!!!!!!!!! 关于winvnc(在线等待) 请问“数据结构”这门课主要是学什么的? 这个毛病是什么原因?(加急,肯请赐教) 在线等候?自定义控件问题? 请问知道进程的ID值和句柄,能否控制程序窗口的大小? 多层数据库疑问!!!!!!!!!!!!!!!!!!!!!!!!!!! 关于IBM AS/400 DB2数据库编程 怎么从_streamptr 中恢复 recordset? 与数据库建立联接的后续问题 早上偶然看见前女友从眼前走过,突然有种莫名的感动 歌词和音乐同步问题?winnap的歌词插件基于什么样的原理做出来? 一个菜鸟的苦恼!! 用命令行配置IIS的命令是什么? 看看这个程序到底错在哪? 查找点对象问题,各位进来帮我看看 各位朋友一定请帮忙,关系到我工作问题(不是很难) 用ASP和Javascritp或Vbscript配合将SQL Server里的数据在客户端转换成EXCEL文件 Application的问题,急 谁能告诉我《银色幻想》在哪里有得下,万分感谢!!给分多多 新開一貼,sql語句請教,急,給分!!! 局域网内指定IP出现“该静态IP地址已经使用”,原理如何,如何编程实现。 一个语句的写法,up者有分 关于数据汇总的精典SQL语句求教! 有奖捉疵 50分 怎么打*****号部分的代码总不执行啊? 请问如何列举当前打印机支持的纸张信息? 歌词和音乐同步问题?winnap的歌词插件基于什么样的原理做出来? 急救!!!关于对话框中编辑框重画问题 小问题。。。。只想知道为什么。。。。 炒肉之前为什么要先放点淀粉浆一下啊炒肉之前,先用少量淀粉和在肉里,这样的肉炒出来不硬,但是如果直接把肉扔到锅里,这样炒出来的肉就会很硬,有时候还会发黑,这是为什么呢.. 求关于感恩的名言和事例.急求关于感恩的名言3条,事例2个.要名人的事例,不要长,几句话就够了. 静脉注射空气疼吗?静脉注射空气又多疼?还有哪里可以买到胰岛素,注射胰岛素疼吗?是注射空气疼还是胰岛素疼? 正弦交流电E=Emsinwt前三分之一周期的电压有效值(用Em表示)这个问题问了两遍,前一问里有三十分的. 两块木块重叠,用力拉下面的木块,下面物体受到摩擦力的方向为 求静脉注射空气的方法! 铁混有硅除杂fe(si)括号内为杂质 对于在如何提高学习效率的问题上,大家的意见是一致的.这个病句怎么改? 静脉注射空气是一点一点推进去还是一下都推进去? 求助化学除杂:铁中含硅杂质 及化学方程式 木块受到的摩擦力是例四, 拉普拉斯变换法则 sin(7t+7pi) 人在呼吸的时候会呼出氧气吗?如题,人应该是吸入氧气,然后呼出二氧化碳,有可能呼出氧气吗? 一个多边形除一个内角外,其余各内角的和为2060,这个内角多少度!几边形?如题.2、若一个多边形的内角和它的一个外角之和是2060,求这个多边形的边数和这个外角的度数3、若3、5、X是一个三角 一个函数经过傅里叶变化后最大幅值会有变化吗? 铁铜铝硅在地壳中的含量排序 型号(yjv)规格(1*35)的电缆每千米含铜净重是多少公斤 若直线a//平面M,平面M//平面N,则直线a//平面N 为什么不对? 用淀粉裹完肉再炒怎么才能不粘锅?肉上面粘了淀粉然后放入锅里炒,很爱粘锅,而且弄不下来,最后还糊了.我看那些电视上大厨做饭都不粘.不要说买个不粘锅了,以前我买过一口不粘锅,很小心 请翻译成英文:计算机数字化图像处理技术. 设二重积分的积分区域D是4≤x^2+y^2≤9则∫∫dxdy= 淀粉炒肉怎样不粘锅 使用计算机对汉字图像处理进行自动识别的技术是什么 高山上怎么会后流水了? 落花不是无情物,化作春泥更护花. Fe和CuO微热反应的化学式 积分域D由y=x^2和y=1围成闭区域,则二重积分D∫∫dxdy= 落花不是无情物,化作春泥更护花用一句话概括上面诗句中的哲理 圆的周长公式和面积是什么?圆的周长和面积公式是什么?我已经忘了 你能算出下面图形的周长吗? 测定铝合金中硅元素时,为什么要用碱性溶液溶解?用酸溶解不一样能溶解硅吗 谁帮我看看这个字怎么念 高山上的流水为什么源源不断 落花不是无情物 化作春泥更护花什么意思?语文书里的~~~~ 脱氮除磷有前途吗? AB两个雨滴 阻力F=ksv^2 S是横截面积 A的横截面积大 也就是质量A的大问下落过程中哪个速度大 这是选择题图像题 没有选项是相等的是关于牛顿第二定律的 勾了淀粉的肉怎么炒 周期函数f(t)=0,0 女朋友爱流水,怎么办?我女朋友特别爱流水,亲一会都能流很多,抱抱摸摸就更别说了,每次做爱前的前戏没3分钟她内裤都能湿很多很多,她才17岁阿,是不是有什么问题? 还是天生的.用去医院看看 请帮我求二阶偏导数~1.已知Z=x^3siny+y^3sin,求(ə^2z)/( əxəy)2.已知Z=ln(x+√(x^2+y^2),求(ə^2z)/( əx^2)和(ə^2z)/ ( əxəy) 炒肉怎么蘸淀粉 数学好的朋友请进,拉普拉斯变换问题!请问对一个常数求拉普拉斯变换是多少?比如求5的拉普拉斯变换 L(5)=?是不是0? PPT中怎样让图形沿着一个看不到的圆不断循环转动. 为什么说这则短短的评语树立了我写作的信心? 证明两次傅里叶正变换等于原函数取反 关于祝福的名言要极短的,不要复制的和英语的,要极短的 是诗的最好 祝福他人的!无反悔! 我认为你的意见是不对的意见.修改病句 傅里叶函数的运用证明题 要求应用傅里叶的卷积性质完全搞不懂了 … 要求应f1(t)f2(t) 经过傅里叶之后变成 (1/2π)F1(w)*F2(w) 这一性质.… 数学是在太渣了 … TT 祝福的名言 塑料检查井的适用范围有哪些? 证明关于单调函数的傅里叶系数无穷小的阶的问题函数f(x)在[0,2PI]上单调,证明ak=o(1/k),bk=o(1/k),其中ak,bk是f(x)在[0,2PI]上的傅里叶系数.这题提示用第二积分中值定理,但是算到最后出现lim(k->无穷 有关祝福的名人名言 高数下册,对面积的曲面积分 解不等式组,把不等式组的解集在数轴上表示出来,并写出不等式组的非负数整数解. 在线等答案 谁知道祝福名言 将一个小木块轻轻放在匀速运的水平传送带,小木块受到的摩擦力方向?抱歉我想说的是 刚刚放上去的时候 这样,F=ma 是不是和加速度方向相同? 不等式组x+5/2>1 4-x>=1的非负数解是急 关于“问候”的名人名言越快越好啊! 修改病句:在会上,纷纷发表自己的意见. 不等式组 X≥-2 X>-3的负数解集是 华媒:揭秘核潜艇部队新海军战略呼之欲杭州规定60方以上新建住宅最少配一个杭州酝酿再度延长地铁末班时间 延长至浙江省委通报省级班子专题民主生活会情杭州彩虹快速路有望11月开通贵阳拆迁猫鼠游戏:白天拆晚上搭 与城中国反贪关键词:健全机制让群众敢举报贪官忏悔录:本来只想捞几万 接判决难美女童为父亲录庆生视频爆红网络【组图贝克汉姆超速再度载长子出车祸【组图】白宫说奥巴马对国家安全局有信心监听门让世界彻底放弃侥幸纽约股市三大股指28日涨跌不一约40名尼日尔移民因汽车抛锚在撒哈拉美方称机密情报泄露未对美外交政策造成海军第一艘核潜艇去除核反应堆退役美女童为父亲录庆生视频爆红网络(组图美4囚犯上演浴室版“越狱” 2人被缉俄称愿与北约就导弹防御系统进行建设性叙利亚一议员遭恐怖分子绑架海军第一艘核潜艇去除核反应堆退役今明两天全省有雨人工增雨全面准备四平全方位宣传“吉林好人”推荐评选活魏雪漫老师,您来做什么?数十位读者来学泡功夫茶“新领秀”驾临中级车市场进入雷凌时代冰桶挑战背后经济学的解读湿地补水鹤鸣更动听刚拿到大学录取通知书 就被诊断出患了安图经验值得在类似地方推广公交站亭 谁砸的!今天8时58分 55路电车试运营市民可免费参观“河湖连通”为我省湿地补水吴江冻蚕蛹出口今年1 7月份陡降近五都停银行门口十多天了这辆宝来车你不要这部微电影告诉你“梦想永不过期”一夜之间经开七区几十户居民家锁孔被堵今天8时58分55路电车试运营吉林大路互通立交桥桥下道路除受排迁影开车回家进小区必须交通违法要么强行小社区“我爱我家”故事会 “中国好媳妇
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘