用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％，By Val dwRop＆）
Declare Function GetDesktopWindow％ Lib ＂USER＂ （）
Declare Function GetDC％ Lib ＂USER＂ （ByVal hWnd％）
Declare Function ReleaseDC％ Lib ＂USER＂ （ByVal hWnd％，ByVal hDC％）
Sub Form－Load
′form1窗体大小、位置与屏幕重合
form1Width＝ScreenWidth
form1Height＝ScreenHeight
form1left＝0
form1top＝0
′form2窗体大小、位置与屏幕重合
form2Width＝ScreenWidth
form2Height＝ScreenHeight
form2left＝0
form2top＝0
′将整屏画面抓到form1中
ScreenhWnd％＝GetDesktopWindow％（）
ScreenDC％＝GetDC％（ScreenhWnd％）
rc％＝BitBlt％（form1hDC，0，0，form1ScaleWidth，form1ScaleHeight，
ScreenDC％，0，0，＆HCC0020）
rc％＝ReleaseDC％（ScreenhWnd％，ScreenDC％）
′显示form1和form2
form2Show
form1Show
′上下移动form1
While True
form1Top＝form1Top ＋ 500
′500为移动速度
if form1Top＞ScreenHenght Then
′超出屏幕下界时回到最上面
form1Top＝－ScreenHeight
End if
DoEvents ′响应其它事件
Wend
End Sub
′点击鼠标结束滚幕
Sub Form－MouseDown（）
End
End Sub
实现效果二：整屏画面连续不断地翻滚。最简单的一个思路是将整屏画面抓到两个一样的窗体中交替连续地滚动出现，在上述程序的基础上修改如下：
form2Top＝－ScreenHenght
′将form2紧接form1的顶部放置
rc％＝BitBlt％（form2hDC，0，0，form2ScaleWidth，form2ScaleHeight，Scre enDC％，0，0，＆HCC0020）
′增加此句，将整屏抓到form2中
While True
form2Top＝form2Top＋500
If form2Top＜0 Then
form1Top＝form2Top＋ScreenHeight
′form1在form2下面
Else
form1Top＝form2Top－ScreenHeight
′form1在form2上面
End If
If form2Top＞ScreenHeight Then
form2Top＝－ScreeenHeight
′form2超出下界时回到最上面
Een if
DoEvents
Wend
文章来源于领测软件测试网 https://www.ltesting.net/
版权所有(C) 2003－2010 TestAge（领测软件测试网）|领测国际科技（北京）有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备10010545号-5
技术支持和业务联系：info@testage.com.cn 电话：010-51297073