Question

请教各位大侠一个VB6.0中用Webbrowser控件显示GIF图片的问题?

我用Webbrowser控件成功在VB窗口中显示了GIF图片,
1.不知道如何让Webbrowser控件随GIF图片大小变化(每次调用不同图片,就得重新设置Webbrowser控件的Width和Height植)
2.不知道如何取消GIF图片在Webbrowser控件中显示时的左边和上边间隙,如图

Answer 1

'引用 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了

追问

先谢谢！
但是大哥你这方法我之前试过，对于较小的GIF动画，显示时容易失真
最好能不能用WebBrowser控件实现！

追答

网上现成的支持gif的控件试过没? 如果非要用Webbrowser的话, 白边问题, 你可以用几个Label, 把白边遮起来, 就看不出来了, 自己设置Label的位置.