用VB实现屏幕滚屏保护效果--IT学习网——资源丰富的计算机教程库




庞大资源库的计算机教程网站！

		设为首页加入收藏总编信箱
投稿或申请专栏请先 [登陆]

首页	┊操作系统	┊程序设计	┊图形图像	┊媒体动画	┊机械电子	┊WEB开发	┊数据库	┊办公系列	┊路由技术	┊网络原理	┊网络应用┊
	┊认证考试	┊安全技术	┊

		首页>程序设计>VB专区>编程技巧>正文

资料搜索

Google搜索


	▍返回上级列表

用VB实现屏幕滚屏保护效果

作者：本站收集日期：2005-8-4 11:33:54

字号选择〖大中小〗/ 双击滚屏单击停止

　　曾见过这样一种屏幕保护程序：静止的屏幕突然整屏上下或左右翻滚起来，这种奇特的屏幕保护效果是如何制造出来的？当我告诉你其中奥妙之后，你也可以利用VB来轻松地“编”出这种效果。下面以上下滚屏为例，说明实现的过程（限于篇幅，这里只给出可直接实现的程序，关于屏幕保护程序的编写暂不讨论）：

实现效果一：画面在漆黑的背景屏幕里滚动，其思路是将整屏画面抓到一个窗体内，而将另一个窗体的背景置黑，首先创建两个窗体forml和form2，置AutoRedraw属性为True，BorderStyle属性为None（无边框），将form2的Backcolor置为黑色。在forml中编制程序如下：
Dim ScreenhWnd％，ScreenDC％，rc％
′Windows API函数
Declare Function BitBlt％ Lib ＂GDI＂（ByVal hDestDC％，ByVal dx％，ByVal dy％，ByVal nWidth％，ByVal nHeight％，ByVal hSrcDC％，ByVal sx％，ByVal sy％，By Val dwRop＆）
Declare Function GetDesktopWindow％ Lib ＂USER＂（）
Declare Function GetDC％ Lib ＂USER＂（ByVal hWnd％）
Declare Function ReleaseDC％ Lib ＂USER＂（ByVal hWnd％，ByVal hDC％）

Sub Form－Load
′form1窗体大小、位置与屏幕重合
form1Width＝ScreenWidth
form1Height＝ScreenHeight
form1left＝0
form1top＝0
′form2窗体大小、位置与屏幕重合
form2Width＝ScreenWidth
form2Height＝ScreenHeight
form2left＝0
form2top＝0
′将整屏画面抓到form1中
ScreenhWnd％＝GetDesktopWindow％（）
ScreenDC％＝GetDC％（ScreenhWnd％）
rc％＝BitBlt％（form1hDC，0，0，form1ScaleWidth，form1ScaleHeight，
ScreenDC％，0，0，＆HCC0020）
rc％＝ReleaseDC％（ScreenhWnd％，ScreenDC％）
′显示form1和form2
form2Show
form1Show
′上下移动form1
While True
form1Top＝form1Top ＋ 500
′500为移动速度
if form1Top＞ScreenHenght Then
′超出屏幕下界时回到最上面
form1Top＝－ScreenHeight
End if
DoEvents ′响应其它事件
Wend
End Sub
′点击鼠标结束滚幕
Sub Form－MouseDown（）
End
End Sub
实现效果二：整屏画面连续不断地翻滚。最简单的一个思路是将整屏画面抓到两个一样的窗体中交替连续地滚动出现，在上述程序的基础上修改如下：
form2Top＝－ScreenHenght
′将form2紧接form1的顶部放置
rc％＝BitBlt％（form2hDC，0，0，form2ScaleWidth，form2ScaleHeight，Scre enDC％，0，0，＆HCC0020）
′增加此句，将整屏抓到form2中
While True
form2Top＝form2Top＋500
If form2Top＜0 Then
form1Top＝form2Top＋ScreenHeight
′form1在form2下面
Else
form1Top＝form2Top－ScreenHeight
′form1在form2上面
End If
If form2Top＞ScreenHeight Then
form2Top＝－ScreeenHeight
′form2超出下界时回到最上面
Een if
DoEvents
Wend

上一篇：如何满屏播放AVI文件下一篇：用API函数Mcisendstring直接播放背景音乐

[发送给好友] [关闭窗口] [返回顶部] 转载请注明来源：www.it00.com


	特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

	责任编辑：原点	投稿作者：本站收集
	信息来源：网络	录入时间： 2005-8-4 11:33:54

关于我们 - 广告服务 - 版权申明 - 网站地图 - 联系方式 - 总编信箱 - 会员投稿



		Copyright ©2005 - 2008 IT00.COM，All Rights Reserved