Which picture control in VB supports GIF format pictures

jackzeng

Should I import the playback function provided by the moving image playback library quartz.dll (under c:\windows\system32) provided by Windows into VB?

deathadam

[Quote=quote 15th floorjackzengreply:]
Should I import the playback function provided by the moving image playback library quartz.dll (under c:\windows\system32) provided by Windows into VB?
[/Quote]


quartz.dll is a COM component and can be referenced in the VB project. Like Flash animation and Animation animation, you can play it in a loop (always play), or you can play it once.

deathadam

[color=#0000FF][size=18px] Display GIF animation, or GIF picture in the PictureBox control
Get it done in a few lines[/size]:[/color]
[code=VBScript]Option Explicit

'Call the moving image playback type library Quartz.dll, in the c:\windows\system32 directory
Public pMC As FilgraphManager'define pMC as FilgraphManager object
Public pVW As IVideoWindow'define pVW as IVideoWindow object
Public pVP As IMediaPosition
Public pBV As IBasicVideo

'Play GIF animation
Private Sub Command1_Click()
        On Error Resume Next
        Set pMC = New FilgraphManager
        pMC.Stop
        Set pVP = pMC
        pVP.StopTime = 0
        pMC.RenderFile ""
        
        
        On Error GoTo Lhandle
        pMC.RenderFile "E:\offline.gif"'Load GIF animation and play it in PictureBox
        Set pVP = pMC
        's = Str(pVP.Duration)
        
        On Error Resume Next
        Set pVW = pMC
        pVW.WindowStyle = CLng(&H6000000)
        pVW.Left = 0: pVW.Top = 0
        
        
        pVW.Owner = Picture1.hWnd
        pVW.MessageDrain = Picture1.hWnd
        pMC.Run
        
        
        Exit Sub
Lhandle:
        MsgBox ("Error loading file!")
End Sub

'Stop playing GIF animation
Private Sub Command2_Click()
        pMC.Stop
End Sub[/code]

deathadam

[code=VBScript]'Changed to limit the image zoom to the size of Picture1
'Display GIF animation (picture) in the PictureBox control, any form control with a handle hwnd can be
Option Explicit

'Call the moving image playback type library Quartz.dll, in the c:\windows\system32 directory
Private pMC As FilgraphManager'define pMC as FilgraphManager object
Private pVW As IVideoWindow'define pVW as IVideoWindow object
'Public pVP As IMediaPosition
'Public pBV As IBasicVideo

'Play GIF animation
Private Sub Command1_Click()
        On Error Resume Next
        Set pMC = New FilgraphManager
        pMC.Stop
        'Set pVP = pMC
        'pVP.StopTime = 0
        pMC.RenderFile ""
        
        
        On Error GoTo Lhandle
        pMC.RenderFile "E:\offline.gif"'Load GIF animation and play it in PictureBox
        'Set pVP = pMC
        's = Str(pVP.Duration)
        
        On Error Resume Next
        Set pVW = pMC
        pVW.WindowStyle = CLng(&H6000000)
        
        'Limit the image in the size of Picture1
        pVW.Left = 0: pVW.Top = 0
        pVW.Width = Picture1.ScaleWidth
        pVW.Height = Picture1.ScaleHeight
        
        pVW.Owner = Picture1.hWnd'Play in Picture1
        pVW.MessageDrain = Picture1.hWnd'This line is very important, it is necessary to define the right-click menu of the image
        pMC.Run'Always play
        
        Exit Sub
Lhandle:
        MsgBox ("Error loading file!")
End Sub

'Stop playing GIF animation
Private Sub Command2_Click()
        pMC.Stop
        Set pVW = Nothing
        Set pMC = Nothing
End Sub

Private Sub Form_Load()
        Me.ScaleMode = 3
        Picture1.ScaleMode = 3
End Sub[/code]

vegbird

deathadam's method is good

ak595959

Thank you, I haven't used quartz.dll. I just tried it and it works. But the biggest question is, can it set the background transparent?

I used a transparent .gif but still cannot be transparent. If it is not transparent, the use value of quartz.dll will be lost...

coolboboler

Mark.

Up....

deathadam

[Quote=quote the reply ofak595959on the 21st floor:]
Thank you, I haven't used quartz.dll. I just tried it and it works. But the biggest question is, can it set the background transparent?

I used a transparent .gif but still cannot be transparent. If it is not transparent, the use value of quartz.dll will be lost...
[/Quote]

Can't be transparent, just a method! Of course not as good as the one you did above!