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

　　曾见过这样一种屏幕保护程序：静止的屏幕突然整屏上下或左右翻滚起来，这种奇特的屏幕保护效果是如何制造出来的？当我告诉你其中窍门之后，你也可以利用VB来轻松地“编”出这种效果。下面以上下滚屏为例，说明实现的过程(限于篇幅，这里只给出可直接实现的程序，关于屏幕保护程序的编写暂不讨论):
　　实现效果一：画面在漆黑的背景屏幕里滚动，其思路是将整屏画面抓到一个窗体，而将另一个窗体的背景置黑，首先创建两个窗体forml和form2，置AutoRedraw属性为True，BorderStyle属性为None(无边框)，将form2的Backcolor置为黑色。在forml中编制程序如下：
　　Dim ScreenhWnd%，ScreenDC%，rc%
　　'Windows API函数
　　Declare Function BitBlt% Lib ”GDI”(ByVal hDestDC%，ByVal dx%，ByVal dy%，ByVal nWidth%，ByVal nHeight%，ByVal hSrcDC%，ByVal sx%，ByVal sy%，ByVal dwRop&)
　　Declare Function GetDesktopWindow% Lib ”USER” ()
　　Declare Function GetDC% Lib ”USER” (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，ScreenDC%，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