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

　　 
　　用VB实现屏幕滚屏保护效果
曾见过这样一种屏幕保护程序：静止的屏幕突然整屏上下或左右翻滚起来，这种奇特的屏幕保护效果是如何制造出来的？当我告诉你其中奥妙之后，你也可以利用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

原文转自：http://www.ltesting.net