1 / 4
文档名称:

用VB制作屏幕保护程序.doc

格式:doc   页数:4页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

用VB制作屏幕保护程序.doc

上传人:fy5186fy 2016/7/28 文件大小:0 KB

下载得到文件列表

用VB制作屏幕保护程序.doc

文档介绍

文档介绍:用 VB 制作屏保程序一、基本编程思路屏幕保护程序就是用变换的颜色或图形以防止屏幕荧光粉被损伤。当有鼠标移动或按键时能够终止它。 Windows API 函数我们可以实现隐藏鼠标。 。 调用屏幕保护程序的参数命令/a在显示器属性对话框中单击它可改变口令按钮。/p每当选中显示器属性对话框中屏幕保护程序标签时,在对话框显示预览效果。/c在显示器属性对话框中单击它进行设置按钮。/s 在显示器属性对话框中单击则预览按钮或屏幕保护程序被系统正常调用。 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 AsBoolean ′声明终止程序标志变量 Dim lleft ′声明隐藏或显示鼠标的 API 函数 Private Declare Function ShowCursor Lib ″user32 ″(ByVal bShow As Long) AsLong ′检测鼠标单击或移动 Private Sub Form_Click() quitflag =True End Sub Private Sub Form_MouseMove(Button AsInteger, Shift AsInteger, XAs Single, YAsSingle) Static xlast, ylast Dim xnow AsSingle Dim ynow AsSingle xnow =Xynow =YIfxlast =0And ylast =0Then xlast =xnow ylast =ynow Exit Sub End If Ifxnow <>xlast Orynow <>ylast Then quitflag =True End If End Sub ′检测按键 Private Sub Form_KeyDown(KeyCode AsInteger, Shift AsInteger) quitflag =True End Sub Private Sub Form_Load() Dim XAsLong lleft =0′横向滚动文字的起始 X坐标 =True Then ′用APP 对象的 Pr

最近更新

试论国有企业财务分析体系的构建与完善 3页

论工程爆破环境污染的系统分析与综合治理 3页

计算机信息化在大型企业管理中的建设探索 3页

西宁市逆温特征及其与空气污染物浓度的相关分.. 3页

行政事业单位会计基础工作的完善路径探究 3页

荧光灯的特性研究 3页

2025年度个人股权转让协议书——高新技术企业.. 7页

2025年安监局特殊门套定制与施工合同 9页

胜利原油与不同类型驱油表面活性剂间动态界面.. 3页

职业技术学校校园信息网络方案 3页

罗定电厂#2汽轮机#1轴瓦温度高的原因分析 3页

绿色消费理念对农产品经营优化的影响研究 3页

结构实体钢筋保护层厚度检测的相关探讨 3页

精细化节能减排在石油企业中的应用 3页

简述雷达技术在汽车防撞安全系统的应用 3页

营销的分销渠道策略 73页

获奖说课PPT模板 41页

碱回收锅炉底部水冷壁复合管裂纹损坏情况分析.. 3页

矿山碎矿工艺PLC集中控制改造与网络重构 3页

脑膜、脑血管解剖图 25页

肾及输尿管压痛点 10页

2025年龙年网络科技两个字公司好名全集00个 11页

2025年龙年姓闻的霸气的男孩名字 6页

2025年鼓舞人心的短句子致自己 6页

2025年黄山00字导游词 9页

2025年鲁滨逊漂流记小学生读后感500字 8页

2025年高考语文教案模板 45页

2025年高考激励自己的语录(0句) 9页

2025年高考志愿填报六个技巧 5页

《增广贤文》-增广贤文全文 18页