VB利用PictureBox控件播放GIF动画
发布时间:2020-12-17 07:36:00 所属栏目:百科 来源:网络整理
导读:'改了一下,限定图像缩放到Picture1的大小'在PictureBox控件中显示GIF动画(图片),凡有句柄hwnd的窗体控件均可以Option Explicit '调用运动图像播放类型库Quartz.dll,在c:windowssystem32目录下Private pMC As FilgraphManager '定义pMC为FilgraphManager
'改了一下,限定图像缩放到Picture1的大小 '在PictureBox控件中显示GIF动画(图片),凡有句柄hwnd的窗体控件均可以 Option Explicit '调用运动图像播放类型库Quartz.dll,在c:windowssystem32目录下 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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |