用VB实现屏幕滚屏保护效果
曾见过这样一种屏幕保护程序：静止的屏幕突然整屏上下或左右翻滚起来，这种奇特的屏幕保护效果是如何制造出来的？当我告诉你其中奥妙之后，你也可以利用VB来轻松地“编”出这种效果。下面以上下滚屏为例，说明实现的过程（限于篇幅，这里只给出可直接实现的程序，关于屏幕保护程序的编写暂不讨论）：
实现效果一：画面在漆黑的背景屏幕里滚动，其思路是将整屏画面抓到一个窗体内，而将另一个窗体的背景置黑，首先创建两个窗体forml和form2，置AutoRedraw属性为True，BorderStyle属性为None（无边框），将form2的Backcolor置为黑色。在forml中编制程序如下：
DimScreenhWnd％，ScreenDC％，rc％
′WindowsAPI函数
DeclareFunctionBitBlt％Lib＂GDI＂（ByValhDestDC％，ByValdx％，ByValdy％，ByValnWidth％，ByValnHeight％，ByValhSrcDC％，ByValsx％，ByValsy％，ByValdwRop＆）
DeclareFunctionGetDesktopWindow％Lib＂USER＂（）
...[ 查看全文 ]
