实现图象的旋转在VB中有一个控件PictureClip,它是以网格或图片框显示原始位图的某一部分以便进一步做剪切的工作。一般情况下,我们将所需的众多小图形合并成一个图文件,在程序中一次读入,形成一个大图片,然后可通过PictureClip控件读取这个大图片中任何想要的各个小图片。这样可以避免装入太多的对象,同时在程序的编写及执行上都能取得较好的效果。它可以用来实现球形物体图象的旋转,提供该控件的文件是PICCLP32.OCX。下面用例子来说明其用法:该例是演示一个写有“欢迎来到中国旅游”的圆球按均匀的速度旋转。设计程序前要准备一幅图象,设文件名earth.bmp,这幅图象包括了不同角度拍摄该物体的图片(至少有8张,越多视觉效果越好,在本例中假设为16张,并假设图象中的图片可分为2行,每行有8张图片)。具体方法是在设计程序的FORM窗体上添加一个PICTURE控件,设其名为Picture1;再添加一个PictureClip控件,设其名为PictureClip1,同时还需要有一个时钟控件,设为Timer1,其时间间隔属性设置为50。将PictureClip1的Picture属性设为上面所准备的图象earth.bmp,cols属性值设置为8,rows属性值设置为2。程序如下:首先定义下列变量,Dim XSub Timer1_Timer()X=X+1If X=16 Then X=0Picture1.picture=PicClip1.GraphicCell(X)End Sub
http://www.yesky.com/20010830/194459.shtml
http://www.vbaspnew.com/ziyuan/w/dmt/95.txt