VB播放GIF的问题

VB播放GIF的问题 [已结贴,结贴人:kkkgho]

kkkgho
海鸟
等级:

发表于：2008-06-09 12:12:38 楼主

这是豹子的一个代码：

Private pMC As FilgraphManager 'ｶｨﾒ蚪MCﾎｪFilgraphManagerｶﾔﾏ・
Private pVW As IVideoWindow 'ｶｨﾒ蚪VWﾎｪIVideoWindowｶﾔﾏ・

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ｶｯｻｭ｣ｨﾍｼﾆｬ｣ｩ

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

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

但是提示说用户变量类型未定义，如何解决呢（豹子说要调用运动图像播放类型库Quartz.dll,在c:\windows\system32目录下，但是如何调用？）　　

问题点数：5 回复次数：4 修改删除举报引用回复