| 本月文章推荐 |
用VB实现屏幕滚屏保护效果发表日期：2006-2-27
|
|
曾见过这样一种屏幕保护程序：静止的屏幕突然整屏上下或左右翻滚起来，这种奇特的屏幕保护效果是如何制造出来的？当我告诉你其中奥妙之后，你也可以利用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＂（） DeclareFunctionGetDC％Lib＂USER＂（ByValhWnd％） DeclareFunctionReleaseDC％Lib＂USER＂（ByValhWnd％，ByValhDC％） SubForm－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 WhileTrue form1Top＝form1Top＋500 ′500为移动速度 ifform1Top＞ScreenHenghtThen ′超出屏幕下界时回到最上面 form1Top＝－ScreenHeight Endif DoEvents′响应其它事件 Wend EndSub ′点击鼠标结束滚幕 SubForm－MouseDown（） End EndSub 实现效果二：整屏画面连续不断地翻滚。最简单的一个思路是将整屏画面抓到两个一样的窗体中交替连续地滚动出现，在上述程序的基础上修改如下： form2Top＝－ScreenHenght ′将form2紧接form1的顶部放置 rc％＝BitBlt％（form2hDC，0，0，form2ScaleWidth，form2ScaleHeight，ScreenDC％，0，0，＆HCC0020） ′增加此句，将整屏抓到form2中 WhileTrue form2Top＝form2Top＋500 Ifform2Top＜0Then form1Top＝form2Top＋ScreenHeight ′form1在form2下面 Else form1Top＝form2Top－ScreenHeight ′form1在form2上面 EndIf Ifform2Top＞ScreenHeightThen form2Top＝－ScreeenHeight ′form2超出下界时回到最上面 Eenif DoEvents Wend-> |
| 上一篇：用API函数Mcisendstring直接播放背景音乐
人气:5197 下一篇：如何满屏播放AVI文件 人气:3553 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
