在VB中哪个图片控件支持GIF格式的图片

jackzeng

要把  Windows提供的运动图像播放库quartz.dll（在c:\windows\system32下面）提供的播放函数播放导入到VB么？

deathadam

[Quote=引用 15 楼 jackzeng 的回复:]
要把  Windows提供的运动图像播放库quartz.dll（在c:\windows\system32下面）提供的播放函数播放导入到VB么？
[/Quote]


quartz.dll属COM组件,在VB工程中引用即可.像Flash动画、Animation动画一样，你可以循环播放（一直播放），也可以播放一次结束。

deathadam

[color=#0000FF][size=18px]在PictureBox控件中显示GIF动画,或GIF图片
简单几行搞定[/size]:[/color]
[code=VBScript]Option Explicit

'调用运动图像播放类型库Quartz.dll,在c:\windows\system32目录下
Public pMC As FilgraphManager '定义pMC为FilgraphManager对象
Public pVW As IVideoWindow '定义pVW为IVideoWindow对象
Public pVP As IMediaPosition
Public pBV As IBasicVideo

'播放GIF动画
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" '加载GIF动画，并在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 ("加载文件错误！")
End Sub

'停止播放GIF动画
Private Sub Command2_Click()
        pMC.Stop
End Sub[/code]

deathadam

[code=VBScript]'改了一下，限定图像缩放到Picture1的大小
'在PictureBox控件中显示GIF动画（图片）,凡有句柄hwnd的窗体控件均可以
Option Explicit

'调用运动图像播放类型库Quartz.dll,在c:\windows\system32目录下
Private pMC As FilgraphManager '定义pMC为FilgraphManager对象
Private pVW As IVideoWindow '定义pVW为IVideoWindow对象
'Public pVP As IMediaPosition
'Public pBV As IBasicVideo

'播放GIF动画
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" '加载GIF动画，并在PictureBox中播放
        'Set pVP = pMC
        's = Str(pVP.Duration)
        
        On Error Resume Next
        Set pVW = pMC
        pVW.WindowStyle = CLng(&H6000000)
        
        '限定图像在Picture1的大小中
        pVW.Left = 0: pVW.Top = 0
        pVW.Width = Picture1.ScaleWidth
        pVW.Height = Picture1.ScaleHeight
        
        pVW.Owner = Picture1.hWnd '在Picture1中播放
        pVW.MessageDrain = Picture1.hWnd '此行非常重要，用来定义图像的右键菜单所必须
        pMC.Run '一直播放
        
        Exit Sub
Lhandle:
        MsgBox ("加载文件错误！")
End Sub

'停止播放GIF动画
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 的方法不错

ak595959

谢谢 quartz.dll 我倒是没用过, 刚试了一下, 是可以动, 但最大的一个问题是, 请问它能设背景透明吗 ?

我用了透明的 .gif 但还是无法透明, 如无法透明的话, 则quartz.dll 的利用价值就没啦......

coolboboler

Mark.

Up....

deathadam

[Quote=引用 21 楼 ak595959 的回复:]
谢谢 quartz.dll 我倒是没用过, 刚试了一下, 是可以动, 但最大的一个问题是, 请问它能设背景透明吗 ?

我用了透明的 .gif 但还是无法透明, 如无法透明的话, 则quartz.dll 的利用价值就没啦......
[/Quote]

不能透明，只是一种方法而已！当然不如你上面做的那个！