将多幅GIF动画和成为一个新的GIF文件

解决方案 »

  1.   

    自己分析gif文件格式,然后合成不就行了。
    GIF文件格式(中文):http://asp.6to23.com/iseesoft/devdoc/imgdoc/gif.htm 
    GIF编码/解码程序:http://www.fantasiasoft.net/Zyl910/zSaveGIF.zip 
      

  2.   

    不光是改字节那么简单的,一定要吃透gif文件格式
      

  3.   

    TO  yunfeng007(一水寒) :
    我要合成的是动画,看清楚是动画,不是不会动的
      

  4.   

    你可以通过工具把Gif动画文件分开成若干帧,再把它导入到资源文件中。在程序中用Timer1来调用它。
    1):资源文件的写法:(假设有四帧,分别为1.bmp、2.bmp、3.bmp、4.bmp)
        100 bitmap 1.bmp
        200 bitmap 2.bmp
        300 bitmap 3.bmp
        400 bitmap 4.bmp
    (具体的生成和添加资源文件的步骤我就不罗嗦了)
    2):代码:
    在通用中设置:Dim wch As Integer
    '需要在窗体上添加Image1和Timer1两个控件
    Private Sub Form_Load()
    Image1.Picture = LoadResPicture(100, vbResBitmap)
    wch= 100
    End SubPrivate Sub Timer1_Timer()
    '别忘记了要设置时间的Interval属性
    wch = 100 + wch
        If wch > 400 Then wch = 100
           Image1.Picture = LoadResPicture(wch, vbResBitmap)
    End Sub