SaveFrameToGif
Syntax
PlayGif1.SaveFrameToGif ( index As Long, strGifName As String) As Boolean
Parameters
| Parameter | Description |
| index | A long value indicates the frame number that will be saved to a gif file |
| strGifName | A string value will be serve as the file name |
Return Value
The return values for this sub are:
| Value | Description |
| True | The frame was saved to gif file successfully |
| False | Failed to save the frame to gif file |
Example
Private Sub Command1_Click()
PlayGif1.Close
PlayGif1.LoadGif "c:\test.gif"
Dim i As Long
For i = 0 To PlayGif1.GetFrameCount - 1
PlayGif1.SaveFrameToGif i, "c:\test_" & i & ".gif"
Next
End Sub
Back to Animated Gif Banner Maker
Back to Animated Gif OCX Control