用VB实现屏幕滚屏保护效果

陈剑波
1997-01-01

　　曾见过这样一种屏幕保护程序：静止的屏幕突然整屏上下或左右翻滚起来，这种奇特的屏幕保护效果是如何制造出来的？当我告诉你其中窍门之后，你也可以利用ＶＢ来轻松地“编”出这种效果。下面以上下滚屏为例，说明实现的过程（限于篇幅，这里只给出可直接实现的程序，关于屏幕保护程序的编写暂不讨论）：
#3　　实现效果一：画面在漆黑的背景屏幕里滚动，其思路是将整屏画面抓到一个窗体，而将另一个窗体的背景置黑，首先创建两个窗体ｆｏｒｍｌ和ｆｏｒｍ２，置ＡｕｔｏＲｅｄｒａｗ属性为Ｔｒｕｅ，ＢｏｒｄｅｒＳｔｙｌｅ属性为Ｎｏｎｅ（无边框），将ｆｏｒｍ２的Ｂａｃｋｃｏｌｏｒ置为黑色。在ｆｏｒｍｌ中编制程序如下：
　　Ｄｉｍ　ＳｃｒｅｅｎｈＷｎｄ％，ＳｃｒｅｅｎＤＣ％，ｒｃ％
　　′Ｗｉｎｄｏｗｓ　ＡＰＩ函数
　　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＢｉｔＢｌｔ％　Ｌｉｂ　”ＧＤＩ”（ＢｙＶａｌ　ｈＤｅｓｔＤＣ％，ＢｙＶａｌ　ｄｘ％，ＢｙＶａｌ　ｄｙ％，ＢｙＶａｌ　ｎＷｉｄｔｈ％，ＢｙＶａｌ　ｎＨｅｉｇｈｔ％，ＢｙＶａｌ　ｈＳｒｃＤＣ％，ＢｙＶａｌ　ｓｘ％，ＢｙＶａｌ　ｓｙ％，ＢｙＶａｌ　ｄｗＲｏｐ＆）
　　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＧｅｔＤｅｓｋｔｏｐＷｉｎｄｏｗ％　Ｌｉｂ　”ＵＳＥＲ”　（）
　　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＧｅｔＤＣ％　Ｌｉｂ　”ＵＳＥＲ”　（ＢｙＶａｌ　ｈＷｎｄ％）
　　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＲｅｌｅａｓｅＤＣ％　Ｌｉｂ　”ＵＳＥＲ”　（ＢｙＶａｌ　ｈＷｎｄ％，ＢｙＶａｌ　ｈＤＣ％）
　　Ｓｕｂ　　Ｆｏｒｍ－Ｌｏａｄ
　　′ｆｏｒｍ１窗体大小、位置与屏幕重合
　　ｆｏｒｍ１．Ｗｉｄｔｈ＝Ｓｃｒｅｅｎ．Ｗｉｄｔｈ
　　ｆｏｒｍ１．Ｈｅｉｇｈｔ＝Ｓｃｒｅｅｎ．Ｈｅｉｇｈｔ
　　ｆｏｒｍ１．ｌｅｆｔ＝０
　　ｆｏｒｍ１．ｔｏｐ＝０
　　′ｆｏｒｍ２窗体大小、位置与屏幕重合
　　ｆｏｒｍ２．Ｗｉｄｔｈ＝Ｓｃｒｅｅｎ．Ｗｉｄｔｈ
　　ｆｏｒｍ２．Ｈｅｉｇｈｔ＝Ｓｃｒｅｅｎ．Ｈｅｉｇｈｔ
　　ｆｏｒｍ２．ｌｅｆｔ＝０
　　ｆｏｒｍ２．ｔｏｐ＝０
　　　′将整屏画面抓到ｆｏｒｍ１中
　　ＳｃｒｅｅｎｈＷｎｄ％＝ＧｅｔＤｅｓｋｔｏｐＷｉｎｄｏｗ％（）
　　ＳｃｒｅｅｎＤＣ％＝ＧｅｔＤＣ％（ＳｃｒｅｅｎｈＷｎｄ％）
　　ｒｃ％＝ＢｉｔＢｌｔ％（ｆｏｒｍ１．ｈＤＣ，０，０，ｆｏｒｍ１．ＳｃａｌｅＷｉｄｔｈ，ｆｏｒｍ１．ＳｃａｌｅＨｅｉｇｈｔ，
　　ＳｃｒｅｅｎＤＣ％，０，０，＆ＨＣＣ００２０）
　　ｒｃ％＝ＲｅｌｅａｓｅＤＣ％（ＳｃｒｅｅｎｈＷｎｄ％，ＳｃｒｅｅｎＤＣ％）
　　′显示ｆｏｒｍ１和ｆｏｒｍ２
　　ｆｏｒｍ２．Ｓｈｏｗ
　　ｆｏｒｍ１．Ｓｈｏｗ
　　′上下移动ｆｏｒｍ１
　　Ｗｈｉｌｅ　Ｔｒｕｅ
　　ｆｏｒｍ１．Ｔｏｐ＝ｆｏｒｍ１．Ｔｏｐ　＋　５００　　　′５００为移动速度
　　ｉｆ　ｆｏｒｍ１．Ｔｏｐ＞Ｓｃｒｅｅｎ．Ｈｅｎｇｈｔ　Ｔｈｅｎ
　　　′超出屏幕下界时回到最上面
　　ｆｏｒｍ１．Ｔｏｐ＝－Ｓｃｒｅｅｎ．Ｈｅｉｇｈｔ
　　Ｅｎｄ　ｉｆ
　　ＤｏＥｖｅｎｔｓ　　　′响应其它事件
　　Ｗｅｎｄ
　　Ｅｎｄ　Ｓｕｂ
　　′点击鼠标结束滚幕
　　Ｓｕｂ　Ｆｏｒｍ－ＭｏｕｓｅＤｏｗｎ（）
　　Ｅｎｄ
　　Ｅｎｄ　Ｓｕｂ
#3　　实现效果二：整屏画面连续不断地翻滚。最简单的一个思路是将整屏画面抓到两个一样的窗体中交替连续地滚动出现，在上述程序的基础上修改如下：
　　ｆｏｒｍ２．Ｔｏｐ＝－Ｓｃｒｅｅｎ．Ｈｅｎｇｈｔ　　′将ｆｏｒｍ２紧接ｆｏｒｍ１的顶部放置
　　ｒｃ％＝ＢｉｔＢｌｔ％（ｆｏｒｍ２．ｈＤＣ，０，０，ｆｏｒｍ２．ＳｃａｌｅＷｉｄｔｈ，ｆｏｒｍ２．ＳｃａｌｅＨｅｉｇｈｔ，ＳｃｒｅｅｎＤＣ％，０，０，＆ＨＣＣ００２０）　　　′增加此句，将整屏抓到ｆｏｒｍ２中
　　Ｗｈｉｌｅ　Ｔｒｕｅ
　　ｆｏｒｍ２．Ｔｏｐ＝ｆｏｒｍ２．Ｔｏｐ＋５００
　　Ｉｆ　ｆｏｒｍ２．Ｔｏｐ＜０　Ｔｈｅｎ
　　ｆｏｒｍ１．Ｔｏｐ＝ｆｏｒｍ２．Ｔｏｐ＋Ｓｃｒｅｅｎ．Ｈｅｉｇｈｔ　　　′ｆｏｒｍ１在ｆｏｒｍ２下面
　　Ｅｌｓｅ
　　ｆｏｒｍ１．Ｔｏｐ＝ｆｏｒｍ２．Ｔｏｐ－Ｓｃｒｅｅｎ．Ｈｅｉｇｈｔ　　　′ｆｏｒｍ１在ｆｏｒｍ２上面
　　Ｅｎｄ　Ｉｆ
　　Ｉｆ　ｆｏｒｍ２．Ｔｏｐ＞Ｓｃｒｅｅｎ．Ｈｅｉｇｈｔ　Ｔｈｅｎ
　　ｆｏｒｍ２．Ｔｏｐ＝－Ｓｃｒｅｅｅｎ．Ｈｅｉｇｈｔ　　　′ｆｏｒｍ２超出下界时回到最上面
　　Ｅｅｎ　ｉｆ
　　ＤｏＥｖｅｎｔｓ
　　Ｗｅｎｄ

 