请教各位大侠一个VB6.0中用Webbrowser控件显示GIF图片的问题?_百度...
发布网友
发布时间：2024-10-24 04:30
共1个回答
热心网友
时间：2024-10-24 14:27
'引用 ActivMove control type library
Dim pMC As New FilgraphManager
Dim pVW As IVideoWindow
Private Sub Command1_Click()
Me.ScaleMode = 3
Picture1.ScaleMode = 3
pMC.Stop
pMC.RenderFile App.Path & "\1.gif"
Set pVW = pMC
pVW.WindowState = CLng(&H60000000)
pVW.Left = -8: pVW.Top = -30
Picture1.Width = pVW.Width - 16
Picture1.Height = pVW.Height - 38
pVW.Owner = Picture1.hWnd
pVW.MessageDrain = Picture1.hWnd
pMC.Run
End Sub
这就可以实现播放GIF了
