VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 数据库 > VF教程 >
  • vfp教程之让三维动画在VFP表单中动起来

首先,请将作出的动画(背景为白色)以BMP图象格式逐帧存放在所建项目的子目录下, 
本例为title1.bmp,title2.bmp,......,title25.bmp. 
    然后,在表单里增加一个图象类对象,名为Image1,将BackStyle属性改为"透明";并在 
其Picture属性中填入第一帧图象的文件名,本例为title1.bmp. 
    接着,在增加一个计时器对象,在其Interval属性中填入100(每秒10帧,改动该值可 
控制动画显示速度),并在Timer Event事件中填入如下代码: 
    a=Thisform.Image1.Picture 
    s=5 's为图象文件名前缀的英文字符个数,本例为5 
    zs=25  'zs为图象的帧数,本例为25帧 
    b=subst(a,Rat('',a)+1+s) 
    n=Val(b) 
    n=Iif(n=zs,1,n+1) 
    Thisform.Image1.Picture=strtran(a,b,alt(str(n)+'.bmp') 
   最后,按下"运行"按钮,图象动起来了. 
   记住把所有bmp文件添加到项目管理器的"其他文件"里,这样在编译成exe文件时,VFP 
会将所有BMP文件数据嵌入exe文件中并自动调用,运行时只需拷一个exe文件即可.
相关教程