首页 > > 程序设计 > VB >

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

2018-06-17 17:15:16来源：未知阅读 ()

曾见过这样一种屏幕保护程序：静止的屏幕突然整屏上下或左右翻滚起来，这种奇特的屏幕保护效果是如何制造出来的？当我告诉你其中奥妙之后，你也可以利用VB来轻松地“编”出这种效果。下面以上下滚屏为例，说明实现的过程（限于篇幅，这里只给出可直接实现的程序，关于屏幕保护程序的编写暂不讨论）：

实现效果一：画面在漆黑的背景屏幕里滚动，其思路是将整屏画面抓到一个窗体内，而将另一个窗体的背景置黑，首先创建两个窗体forml和form2，置Au?toRedraw属性为True，Border?Style属性为None（无边框），将form2的Backcolor置为黑色。在forml中编制程序如下：
DimScreenhWnd％，ScreenDC％，rc％
′WindowsAPI函数
DeclareFunctionBitBlt％Lib＂GDI＂（ByValhDest?DC％，ByValdx％，ByValdy％，ByValnWidth％，ByValnHeight％，ByValhSrcDC％，ByValsx％，ByValsy％，ByValdwRop＆）
DeclareFunctionGetDesk?topWindow％Lib＂USER＂（）
DeclareFunctionGetDC％Lib＂US?ER＂（ByValhWnd％）
DeclareFunctionReleaseDC％Lib＂USER＂（ByValhWnd％，ByValhDC％）

SubForm－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
WhileTrue
form1?Top＝form1?Top＋500
′500为移动速度
ifform1?Top＞Screen?HenghtThen
′超出屏幕下界时回到最上面
form1?Top＝－Screen?Height
Endif
DoEvents′响应其它事件
Wend
EndSub
′点击鼠标结束滚幕
SubForm－MouseDown（）
End
EndSub
实现效果二：整屏画面连续不断地翻滚。最简单的一个思路是将整屏画面抓到两个一样的窗体中交替连续地滚动出现，在上述程序的基础上修改如下：
form2?Top＝－Screen?Henght
′将form2紧接form1的顶部放置
rc％＝BitBlt％（form2?hDC，0，0，form2?ScaleWidth，form2?ScaleHeight，ScreenDC％，0，0，＆HCC0020）
′增加此句，将整屏抓到form2中
WhileTrue
form2?Top＝form2?Top＋500
Ifform2?Top＜0Then
form1?Top＝form2?Top＋Screen?Height
′form1在form2下面
Else
form1?Top＝form2?Top－Screen?Height
′form1在form2上面
EndIf
Ifform2?Top＞Screen?HeightThen
form2?Top＝－Screeen?Height
′form2超出下界时回到最上面
Eenif
DoEvents
Wend->

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有