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

【 tulaoshi.com - 编程语言 】

曾见过这样一种屏幕保护程序：静止的屏幕突然整屏上下或左右翻滚起来，这种奇特的屏幕保护效果是如何制造出来的？当我告诉你其中奥妙之后，你也可以利用VB来轻松地“编”出这种效果。下面以上下滚屏为例，说明实现的过程（限于篇幅，这里只给出可直接实现的程序，关于屏幕保护程序的编写暂不讨论）：
　　
　　实现效果一：画面在漆黑的背景屏幕里滚动，其思路是将整屏画面抓到一个窗体内，而将另一个窗体的背景置黑，首先创建两个窗体forml和form2，置AutoRedraw属性为True，BorderStyle属性为None（无边框），将form2的Backcolor置为黑色。在forml中编制程序如下：
　　DimScreenhWnd％，ScreenDC％，rc％
　　′WindowsAPI函数
　　DeclareFunctionBitBlt％Lib＂GDI＂（ByValhDestDC％，ByValdx％，ByValdy％，ByValnWidth％，ByValnHeight％，ByValhSrcDC％，ByValsx％，ByValsy％，ByValdwRop＆）
　　DeclareFunctionGetDesktopWindow％Lib＂USER＂（）
　　DeclareFunctionGetDC％Lib＂USER＂（ByValhWnd％）
　　DeclareFunctionReleaseDC％Lib＂USER＂（ByValhWnd％，ByValhDC％）
　　
　　SubForm－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
　　WhileTrue
　　form1Top＝form1Top＋500
　　′500为移动速度
　　ifform1Top＞ScreenHenghtThen
　　′超出屏幕下界时回到最上面
　　form1Top＝－ScreenHeight
　　Endif
　　DoEvents′响应其它事件
　　Wend
　　EndSub
　　′点击鼠标结束滚幕
　　SubForm－MouseDown（）
　　End
　　EndSub
　　实现效果二：整屏画面连续不断地翻滚。最简单的一个思路是将整屏画面抓到两个一样的窗体中交替连续地滚动出现，在上述程序的基础上修改如下：
　　form2Top＝－ScreenHenght
　　′将form2紧接form1的顶部放置
　　rc％＝BitBlt％（form2hDC，0，0，form2ScaleWidth，form2ScaleHeight，ScreenDC％，0，0，＆HCC0020）
　　′增加此句，将整屏抓到form2中
　　WhileTrue
　　form2Top＝form2Top＋500
　　Ifform2Top＜0Then
　　form1Top＝form2Top＋ScreenHeight
　　′form1在form2下面
　　Else
　　form1Top＝form2Top－ScreenHeight
　　′form1在form2上面
　　EndIf
　　Ifform2Top＞ScreenHeightThen
　　form2Top＝－ScreeenHeight
　　′form2超出下界时回到最上面
　　Eenif
　　DoEvents
　　Wend->