在用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函数将帮助您实现这一愿望。
|
