在PictureBox控件中显示GIF动画(图片)

 '在PictureBox控件中显示GIF动画(图片),凡有句柄hwnd的窗体控件均可以
'在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件Picture1

Option Explicit

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

'播放GIF动画
Private Sub Command1_Click()

        '终止播放
        On Error Resume Next
        Set pMC = New FilgraphManager
        pMC.Stop
        pMC.RenderFile ""
       
        '加载GIF文件
        On Error GoTo Lhandle
        pMC.RenderFile "E:/offline.gif" '加载GIF动画(图片),并在PictureBox中播放
       
        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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值