引言 

在PowerPoint这样的软件中，各种各样的图形特效层出不穷，如百叶窗式、飞入式、关门式、棋盘式等等，在VB中也是可以实现这样的效果的，而且十分简单，其方法是调用Windows的API函数BitBlt。 

BitBlt函数简介 

BitBlt函数在API函数群中是个很重要的角色，尤其在图像处理方面，更是不可或缺。其原意是“Bit Block Transfer”，用途是位图的复制。用Bitblt函数显示图形特效，其原理十分简单，在窗体上绘制两个图片框，将图片存入一个图片框，同时令另一个为空，然后调用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 

各参数含义如下： 

参数 含义 

hDestDC 目标设备环境的handle(hDC) 

X，Y 欲复制图形放置在目标设备 

环境的位置（左上角坐标） 

nWidth 欲复制图形的宽度 

nHeight 欲复制图形的高度 

hSrcDc 源设备环境的hDC 

xSrc，ySrc 从源图形的（xSrc，ySrc）坐 

标处开始复制 

dwRop 图形从源设备环境复制到目标 

设备环境时所做的逻辑运算。 

总共有15种运算码，通常使用 

SRCCOPY（&HCC0020），表 

示直接复制。 

实现完美的图片显示效果 

新建一窗体Form1和一模块Module1，在窗体上添加两个图片框Picture1、Picture2和一个按钮Command1，Picture1中加载任一图片，Picture2为空，为按钮编程以达到点击按钮，此图片在Picture2中以下述任一效果出现。 

1．左进入效果 

其原理是将源图形的像素元素，一列一列地复制到目标区域，配合稍许的时间延迟及数据复制的方向，从屏幕上看好像图形从左边进入图片框中。改变delay（）函数中的参数可改变程序运行时间。据此可制作“从下进入”、“从上进入”、“从右进入”等效果。 

2．水平百叶窗效果 

其原理是事先将图形分割成几部分，每一部分都单独传输给目标图像，传输的方式采用“值差”式， 

即先传输第一部分第一块，第二部分第一块……再传输第一部分第二块，第二部分第二块……直到图形出来为止，从屏幕上看好像是门帘逐渐反转显示一样。据此可做出“垂直百叶窗”等效果。 

3．负片效果 

其原理是把图形逐点复制，只是把复制的方式改为“NOTSRCCOPY”，从屏幕上看好像是图片的负片一样。 

4．拉伸效果 

其原理是开始把图形的宽度方向压缩成很窄的矩形，高度方向与原图像保持一致，然后逐步放大以接近原图片的宽度，从屏幕上看好像把图片拉伸了一样。 

以下是部分源程序清单： 

Private Sub Command1_Click() 

Const SRCCOPY = &HCC0020 

Const NOTSRCCOPY = &H330008 

Dim i, j, w, h As Integer 

Dim dtime, effect, scanline As Integer 

Dim source, dest 

dtime = 20000 

w = Picture1.ScaleWidth 

h = Picture1.ScaleHeight 

source = Picture1.hDC 

dest = Picture2.hDC 

effect = Int(5 * Rnd) 

Picture2.Cls 

Select Case effect 

Case 0: ’从左进入效果 

For i = 0 To w 

call BitBlt(dest, 0, 0, i, h, source, 0, 0, srccopy) 

delay dtime * 3 

Next 

Case 1: ’左上角飞入效果 

For i = 0 To w 

Call BitBlt(dest, 0, 0, i, h * (i / w), source, 0, 0, srccopy) 

delay dtime * 3 

Next 

Case 2: ’水平百叶窗效果 

scanline = 10 

For i = 0 To (scanline - 1) 

For j = i To w Step scanline 

Call BitBlt(dest, j, 0, 1, h, source, j, 0, srccopy) 

delay dtime * 2 

Next 

delay 10 * dtime 

Next 

Case 3: ’负片效果 

Call BitBlt(dest, 0, 0, w, h, source, 0, 0, notsrccopy) 

Case 4: ’拉伸效果 

For i = 0 To 100 

For j = w To 0 Step -1 

Call BitBlt(dest, j * i / 100, 0, 1, h, source, j, 0, srccopy) 

Next 

Next 

End Select 

End Sub 

Public Sub delay(dtime As Long) 

Dim i As Long 

For i = 0 To dtime 

Next i 

End Sub 

图片出现的效果还有很多，由于篇幅所限，就不在这里叙述了。只要您灵活地应用以上方法，一定还能产生更多更美的图片效果。这些风格各异的图片效果必定会为您的VB程序增添美丽的情调，使您的程序更富魅力、更专业。 

（以上程序在VB 6.0下调试通过）