VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之API实现完美的图片出现效果

作者:罗玉强 

在用Visual Basic编程的时候,通常要调用图片,如果图片出现的时候是以各种完美的效果出现的,(如马赛克效果,百叶窗效果等)则你的程序就会显得更加灵活,你的程序就会更加专业化。本文讲述了Visual Basic中如何调用API函数,以及用API函数中的BitBlt函数实现各种完美的图片出现效果的过程。 

§1 一般的图片出现效果 

  一般情况下,要使Visual Basic中的图片出现,例如,要显示Picture1中的图片,只需一句代码: 

Picture1.Visible=True 

  使用以上方法时,图片是突然出现的。也可以编复杂一点的代码,使图片从左到右、从上到下或从中间向四周扩大。例如,使Picture1中的图片从左到右出现,其代码为: 

Picture1.Width = 0 

Picture1.Visible = True 

For i = 0 To 5000 Step 50 注释:5000代表图片的高度 

Picture1.Width = i 

Next i 

使Picture1中的图片从上到下出现的代码为: 

Picture1.Height = 0 

Picture1.Visible = True 

For i = 0 To 4000 Step 40 注释:4000代表图片的宽度 

Picture1.Height = i 

Next i 

使Picture1中的图片从中间向四周扩大的代码为: 

Picture1.Width = 0 

Picture1.Height = 0 

Picture1.Visible = True 

For i = 0 To 100 

Picture1.Width = Picture1.Width + 50 

Picture1.Height = Picture1.Height + 40 

Picture1.Left = Picture1.Left - 100 

Picture1.Top = Picture1.Top - 80 

Next i 

  当然,你可以灵活地应用以上办法实现其他更加好看的图片出现效果。然而,同Authorware等其他软件编制的程序相比,你的图片出现效果仍然会黯然失色,因为Authorware编程时,可以很容易地实现从上到下、从左到右、百叶窗、开门、关门等完美的图片出现效果,要在Visual Basic中做到这些效果并非易事。 

但“天无绝人之路”,强大的Windows API函数中的BitBlt函数将帮助您实现这一愿望。 

§2 BitBlt函数 

一、 BitBlt函数的功能 

BitBlt API函数的功能是将屏幕上任何一块拷贝到屏幕上其它任何一个地方。 

二、 声明BitBlt函数 

1. 运行Visual Basic4.0程序组中的API Text Viewer程序项。 
2. 在API Text Viewer中,单击File菜单下的Load Text File...命令。 

3. 在出现的Select a Text API File对话框中,选择Win32api.txt文件。 

4. 为了使以后拷贝Windows API函数更快,你可以将Win32api.txt文件转换成为一个数据库。如图,单击“是(Y)”。 

5. 在API Type下拉框中选择Declare。 

6. 在Available Items中选择BitBlt,如图,单击Add按纽,于是BitBlt便出现在Selected Items框中,单击Copy按纽。BitBlt函数变拷贝到剪贴板上。 

7. 关闭API Text Viewer,打开Visual Basic程序,使用Insert菜单下的Module命令新建一个Module1,使用Edit菜单下的Paste命令,将剪贴板上的BitBlt函数拷贝到Module1中。这样,在您的程序中,就可以使用BitBlt函数了。 

三、BitBlt函数中各参数简介 

Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long 

  以上是BitBlt函数的声明格式,其中,各参数定义如下: 

参数 

描述 

hDestDC 

接收位图的设备描述表 



目标矩形左上角的逻辑X坐标 



目标矩形左上角的逻辑Y坐标 

nWidth 

目标矩形的宽度 

nHeight 

目标矩形的高度 

hSrcDC 

源设备描述表 

xSrc 

源位图左上角的逻辑X坐标 

ySrc 

源位图左上角的逻辑Y坐标 

dwRop 

拷贝模式 

dwRop的各种可能值为: 

&HCC0020 

dest=source 

&HEE0086 

dest=source OR dest 

&H8800C6 

dest=source AND dest 

&H660046 

dest=source XOR dest 

&H440328 

dest=source AND (NOT dest) 

&H330008 

dest=not source 

&H1100A6 

dest=(NOT source)AND(NOT dest) 

&HC000CA 

dest=source AND pattern 

&HBB0226 

dest=(NOT source) OR dest 

&HF00021 

dest=pattern 

&HFB0A09 

dest=Dpsnoo 

&H5A0049 

dest=pattern XOR dest 

&H550009 

dest=NOT dest 

&H42& 

dest=BLACK 

&HFF0062 

dest=WHITE 

在本程序中使用的BitBlt函数均定义dwRop=HCC0020,如果你定义dwRop为其他值,会收到其他异想不到的效果。 

§3 用BitBlt函数实现各种各样的图片出现效果 

实现髦滞计鱿中Ч幕驹硎牵荷柚昧礁鐾计騊icture1和Picture2,在Picture1中装入要显示的图片,(可以在窗体设计时就装好,也可以在程序运行过程中装入。)将Picture1中的图片以各种方法拷贝到Picture2中,从而实现各种各样的图片出现效果。 

先在Picture1中装入待显示的图片,并设置Picture1的属性为AutoRedraw=True,Visible=False, 设置Picture2的属性为AutoRedraw=False,Visible=True,设置Form的属性为ScaleMode=3。 

一、从上到下效果 

将Picture1从形式上分为很多小块 

  如图所示,要将Picture1中的图片拷贝到Picture2中,首先将Picture1从形式上划分为很多小块a1、a2、a3、…,每块宽度为。 

  然后利用BitBlt函数先将Picture1中的a1块拷贝到Picture2中的相同位置,等待片刻,再拷贝a2块、a3块、…直到。如果将取得足够小,则人眼看到 Picture2中的图片就是以从上到下的效果出现的。其程序如下: 

Picture2.Cls 

nHeight = 3‘小块的高度,即 

Stripes = Picture1.Height / nHeight‘总共的小块数目n个 

P2 = nHeight 

P1 = Picture1.Width 

For I = 0 To Picture1.Height Step nHeight 

p3 = I 

r% = BitBlt(Form1.Picture2.hDC, 0, p3, P1, P2, Form1.Picture1.hDC, 0, p3, &HCC0020) 

For j = 1 To 8000 注释:‘等待片刻,图片从上到下出现的时间可以由此调节 

Next 

Next 

明白了以上制作原理以后,图片从下到上、从做到右、从右到左出现的效果也就可以实现了。 

二、开门效果 

开门效果的制作也是先将Picture1从形式上划分为很多小块a1、a2、a3、…,每块宽度为。如图。 

然后利用BitBlt函数先将Picture1中的a0块拷贝到Picture2中的相同位置,等待片刻,再拷贝a1块、a2块、…直到。如果将取得足够小,则人眼看到 Picture2中的图片就是以开门的效果出现的。其程序如下: 

Picture2.Cls 

nWidth = 3‘小块的宽度,即 

Stripes = Picture1.Width / nWidth‘总共的小块数目n个 

P2 = Picture1.Height 

P1 = nWidth 

For I = Picture1.Width / 2 + nWidth To 0 Step -nWidth 

p3 = I 

p4 = Picture1.Width - I 

r% = BitBlt(Form1.Picture2.hDC, p3, 0, P1, P2, Form1.Picture1.hDC, p3, 0, &HCC0020) 

r% = BitBlt(Form1.Picture2.hDC, p4, 0, P1, P2, Form1.Picture1.hDC, p4, 0, &HCC0020) 

For j = 1 To 8000‘等待片刻,图片开门效果出现的时间可以由此调节 

Next 

Next 

根据同样的方法可以制作“上下开门”、“左右关门”、“上下关门”、“从中间向四周扩大”、“从四周向中间缩小”等效果。 

三、百叶窗效果 

分成几个大块,每个大块分成很多个小块 

如图所示,要将Picture1中的图片拷贝到Picture2中,首先将Picture1从形式上划分为很多宽度为的大块,然后再将每一块进一步划分为宽度为的若干小块。 

然后利用BitBlt函数先将Picture1中的a1块拷贝到Picture2中的相同位置,再拷贝b1块、c1块、…5却蹋倏奖碼2块、b2块、c2块、…。如果将取得足够小,则人眼看到 Picture2中的图片就是以百叶窗的效果出现的。其程序如下: 

Picture2.Cls 

nWidth = 3 

mWidth = 18 

Stripes = Picture1.Width / nWidth 

P2 = Picture1.Height 

P1 = nWidth 

For j = 0 To mWidth Step nWidth 

For I = 0 To Picture1.Width + nWidth Step mWidth 

p3 = I + j 

r% = BitBlt(Form1.Picture2.hDC, p3, 0, P1, P2, Form1.Picture1.hDC, p3, 0, &HCC0020) 

Next 

For k = 1 To 200000 

Next 

Next 

根据同样的道理,可以制作上下百叶窗效果。 

四、逐段翻开效果 

分成几个大块,每个大块分成很多个小块 

如图所示,要将Picture1中的图片拷贝到Picture2中,首先将Picture1从形式上划分为很多宽度为的大块,然后再将每一块进一步划分为宽度为的若干小块。 

然后利用BitBlt函数先将Picture1中的a0块拷贝到Picture2中的相同位置,再拷贝a1块、a2块、…。等待片刻,再拷贝b0块、b1块、b2块、…。如果将取得足够小,则人眼看到 Picture2中的图片就是以逐段翻开的效果出现的。其程序如下: 

stripewidth = 40 

Stripes = Picture1.ScaleWidth / stripewidth 

P2 = Picture1.ScaleHeight 

For i = 0 To (Stripes - 1) / 10 Step 1 

For m = 0 To stripewidth / 2 

r% = BitBlt(Picture2.hDC, P1 + m + stripewidth / 2 + i * stripewidth, 0, 2, P2, Picture1.hDC, P1 + m + stripewidth / 2 + i * stripewidth, 0, &HCC0020) 

r% = BitBlt(Picture2.hDC, P1 - m + stripewidth / 2 + i * stripewidth, 0, 2, P2, Picture1.hDC, P1 - m + stripewidth / 2 + i * stripewidth, 0, &HCC0020) 

For j = 1 To 10000 

Next j 

Next m 

For j = 1 To 50000 

Next j 

Next i 

五、逐段进入效果 

将Picture1从形式上划分为很多宽度为的大块 

a1块在Picture2中的位置 

a1块在Picture2中的位置前进了 

逐段进入效果的制作要麻烦一些,要将Picture1中的图片拷贝到Picture2中,首先将Picture1从形式上划分为很多宽度为的大块a1、a2、a3、…。 

利用BitBlt函数先将Picture1中的a1块拷贝到Picture2中的最右边,如图(2),等待片刻,将Picture2中的图片清除掉,然后将Picture1中的a1块拷贝到Picture2中的距离最右边处。如图(3),a1块好象向左前进了,如此下去,就可以实现a1块从左进入,使用同样的办法使a2块、a3块、…依次逐渐进入。这样,人眼看到 Picture2中的图片就是以逐段进入的效果出现的。其程序如下: 

Picture2.Cls 

nWidth = 50 

Stripes = Picture1.Width / nWidth 

P2 = Picture1.Height 

P1 = nWidth 

For I = 0 To Picture1.Width + nWidth Step nWidth 

p3 = I 

For k = Picture1.Width To I Step -nWidth 

p4 = k 

Picture2.Cls 

r% = BitBlt(Picture2.hDC, 0, 0, I, P2, Picture1.hDC, 0, 0, &HCC0020) 

r% = BitBlt(Picture2.hDC, p4, 0, P1, P2, Picture1.hDC, p3, 0, &HCC0020) 

For j = 1 To 300000 注释:Wait For A While 

Next j 

Next k 

Next i 

  必须指出,以上逐段进入的效果有一个明显的缺点,就是有“闪动”现象。产生这种现象的原因是由于程序不停地删除、不停地拷贝同一块造成的。如果不删除而只拷贝,则不会出现“闪动”现象。 

六、马赛克效果 

  马赛克效果在很多软件中都有应用,其原理是将Picture1从形式上划分为很多小块,如图所示,一共有n块。然后利用BitBlt函数将Picture1中的小块随机地拷贝到Picture2中的相同位置处。 

  你不能简单地产生一个随机数,然后将这个随机数的值所对应的那一小块图片拷到Picture2中。因为随机数是随机的,所以有可能某些数重复出现,而某些数很久甚至始终未出现。这就造成Picture2中有些块被重复拷贝,而有些块始终未出现。另外,在随机拷贝的后阶段,随机数与以前重复的概率越来越大,这就造成新块出现的时间越来越慢,达不到理想的马赛克效果。 

  解决的办法是先产生一个随机系列。用一维数组 B(n)记录n个随机值,每一个随机值都在n以内,且各不相同。然后按顺序将B(n)中的随机值读出,并根据这个随机值拷贝对应的图片块。这样,新块出现的速度才能做到均匀,而且保证每个图片块都能出现,从而达到非常完美的马赛克效果。 

Dim A(0 To 1000) As Integer 

Dim B(0 To 400) As Integer 

Dim S1, S2 As Integer 


Picture2.Cls 

注释:产生随机数组 

For I = 0 To 1000 

A(I) = 0 

Next 

For I = 0 To 400 

Loop1: k = Int(Rnd() * 1000) + 1 

If Not (A(k) = 0) Then GoTo Loop1 

A(k) = I 

Next 

For I = 0 To 1000 

If Not (A(I) = 0) Then 

B(V1) = A(I) 

V1 = V1 + 1 

End If 

Next 

‘根据随机数组的值,拷贝小图片 

S1 = Picture1.Width / 20 

S2 = Picture1.Height / 20 

For I = 0 To 400 

k2 = B(I) Mod 20 

k1 = ((Int(B(I)) - k2) / 20) * S2 

k2 = k2 * S1 

r% = BitBlt(Picture2.hDC, k2, k1, S1 + 2, S2 + 2, Picture1.hDC, k2, k1, &HCC0020) 

For j = 1 To 5000 注释:wait 

Next 

Next 

以上程序在WIN95,VB4中运行通过,在VB3,VB5,VB6中梢加修改,也可以运行通过。图片出现的效果还有很多,限于篇幅所限,就不在这里叙述了。只要你灵活地应用以上方法,一定还能产生更多更美的图片出现效果。这些风格各异的图片出现效果必定会为您的Visual Basic程序增添美丽的情调,使您的程序更富魅力、更具专业。 

相关教程