End Sub
Sub Timer1__Timer()
Dim i As Integer
For i =0 to 10
Grid1.Col=8 * i bc
Grid1.Picture=Pict.GraphicCe11(8 * i bc)
Next i
bc=bc 1
If bc=8 Then Timer1.Enabled=False
End Sub
以上介绍了图像的三种显示效果。类似地,还可设计出其它一些显示效果,如:从右到左、从上到下、从下到上、关门方式、垂直百叶窗方式、相机光圈收缩方式、相机光圈开放方式等。
以上程序在中文Windows3.2、Visual Basic 3.0专业版上调试通过。
155
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
