VB播放GIF的问题

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目录下，但是如何调用？）　　

...全文