可以使用API函数BitBlt来实现百叶窗效果,非常好,你最好看看帮助,自己试试,我做出来了的
解决方案 »
- 关于由用户自定义报表的问题,想问一下有经验的人
- 谁有factory setup 使用说明或教程(中文)
- 求助,Winsock控件关于IP的问题
- 有比较了解FTP协议的吗?近来帮个忙
- 小弟临近毕业 有个实习报告没有完成 希望各位大哥大姐帮我 谢谢 急~~~~
- 请问,要如何将VB窗口左上角的小图标换成我们想要的小图标呢??????????????/
- 请问pdg文件用什么软件可以查看?
- VB中有生成GUID数值的函数吗?请教
- 如何做搜索软件(比如要搜索机器内所有的*.txt文件)
- **我的程序有一textbox控件,问如何对其中内容实现打印,并能够控制打印属性(如页数等)?**
- 倒,遇到小问题
- 听说软考开始报名了,要报考的四川的程序员大家一起来交流一下吧!
在Powerpoint这样的软件中,各种各样的图形特效层出不穷,其中“百叶窗”的切
换效果尤为新颖奇特。在VB中实现这样的图形特效十分简单方便。其方法是调用
WINDOWS的API函数Bitblt。BitBlt函数就类似于C语言中的getimage、putimage两
个函数的组合运用。BitBlt原意是“Bit Block Transfer”,其主要用途是位图的
复制。用BitBlt函数显示图形特效,其原理十分简单,制作时先在表单中绘制两个
图片框,将图片存入一个图片框,同时将另一个图片框设为空,然后调用BitBlt函
数将第一个图片框中的图形一部分一部分地复制到第二个图片框中,这样就可以实
现千奇百怪的图形特效。其步骤如下:
在VB环境中新建一个窗体,绘制两个图片框picSour和picDest,两个命令按钮
cmdShow和cmdExit。首先在窗体的通用过程中声明BitBlt函数即所需要的常量名,
在载入窗体同时在picSour中载入图片,在按钮cmdShow的事件中调用BitBlt函数。
程序如下:
API函数声明:
Declare Function BitBlt Lib″GDI″(ByVal hDestDC As Integer,ByVal X As
Integer,ByVal Y As Integer,ByVal nWidth AS Integer,ByVal nHeight As
Integer,ByVal hSrcDC As Integer,ByVal xSrc As Integer,ByVal ySrc As
Integer,ByVal dwRop As Long)As Integer
Const COPY-PUT=&HCC0020′BitBlt的15种算法之一,表示直接拷贝
载入图片:
Sub Form-Load()
picsour.Picture=LoadPicture(″c:\windows\LEAVES.bmp″)
picsour.ScaleMode=3′以象素为单位
End Sub
显示“百叶窗”的切换效果:
Sub Comshow-Click()
H%=picsour.ScaleHeight
W%=picsour.ScaleWidth
scanlines=4
For i=0 To(scanlines-1)
For j=i To H% Step scanlines
s%=BitBlt%(picdest.hDC,0,j,W%,1,picsour.hDC,0,j,copy-Put)
delay 500′延时
Next j
Next i
End Sub
其中delay是一个通用子过程,用于延时,以便于能看清楚切换效果。代码如
下:
Sub delay(delaytime As Integer)
For i=1 To delaytime
Next i
End Sub
通过这样简单的程序就可以实现“百叶窗”的切换特效,其实,只要有合适的
算法,运用BitBlt函数能够实现的图形特效是无穷的。有兴趣的读者可以查阅有关
VB的参考书。
另外就实现百叶窗的效果来说,还有一个更简单的方法,不要调用bitblt的。
代码如下:
picDest.Cls
nStep = 3
nWidth = 18
nHeight = picSource.ScaleHeight
For j = 0 To nWidth Step nStep
For i = 0 To picSource.ScaleWidth Step nWidth
nLeft = i + j
picDest.PaintPicture picSource.Picture, nLeft, 0, nStep, nHeight, _
nLeft, 0, nStep, nHeight, vbSrcCopy
Next
For k = 1 To 600000: Next ' 延 时
Next其中picDest,picSource和楼上介绍的是一个意思。
你可以试试看。
提示一下思路(一水平百叶窗为例):
将目标图象和源图象均水平分成N等份,把每一份在水平分成M等份。然后把目标图象的N等份的1 TO M 用PaintPicture同时拷贝到源图象上即可。