请教各位大侠一个VB6.0中用Webbrowser控件显示GIF图片的问题?
我用Webbrowser控件成功在VB窗口中显示了GIF图片,1.不知道如何让Webbrowser控件随GIF图片大小变化(每次调用不同图片,就得重新设置Webbrows...
我用Webbrowser控件成功在VB窗口中显示了GIF图片,
1.不知道如何让Webbrowser控件随GIF图片大小变化(每次调用不同图片,就得重新设置Webbrowser控件的Width和Height植)
2.不知道如何取消GIF图片在Webbrowser控件中显示时的左边和上边间隙,如图 展开
1.不知道如何让Webbrowser控件随GIF图片大小变化(每次调用不同图片,就得重新设置Webbrowser控件的Width和Height植)
2.不知道如何取消GIF图片在Webbrowser控件中显示时的左边和上边间隙,如图 展开
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了
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的位置.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询