(API标准讲义.docVIP

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函数的声明格式，其中，各参数定义如下： 参数 描述 hDest