| | | API实现完美的图片出现效果 | | 2001-11-24·
· ··yesky
| 1 2 3 4 5 6 7 下一页
在用Visual Basic编程的时候，通常要调用图片，如果图片出现的时候是以各种完美的效果出现的，（如马赛克效果，百叶窗效果等）则你的程序就会显得更加灵活，你的程序就会更加专业化。本文讲述了Visual Basic中如何调用API函数，以及用API函数中的BitBlt函数实现各种完美的图片出现效果的过程。
§1 一般的图片出现效果
一般情况下，要使Visual Basic中的图片出现，例如，要显示Picture1中的图片，只需一句代码：
使用以上方法时，图片是突然出现的。也可以编复杂一点的代码，使图片从左到右、从上到下或从中间向四周扩大。例如，使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函数将帮助您实现这一愿望。1 2 3 4 5 6 7 下一页 | | | 感谢
访问天极网，如果您觉得该文章涉及版权问题，请看这里！
|
|
