在用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函数将帮助您实现这一愿望。图 文 结 合：http://www.qqread.com/vb/n882254100.html进入讨论组讨论。
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
