在picturebox中播放avi时，如何让动画的大小和picturebox大小一致

Question

我以前也遇到过此问题，好像不能实现。
最后我是用别的控件实现的。
若有哪位知道，告知一声。

Answer 1

可以啊，在我以前公布的Mmedia 类库中加入下面这个方法。
（http://www.csdn.net/expert/topic/71/71043.shtm）
'让动画大小随播放窗口变化
Public Sub mmStrech(ByVal Wid As Integer, ByVal High As Integer)
    mciSendString "put " & sAlias & " window at 0 0 " & _
                     Wid & " " & High, 0&, 0, 0
                     
'调用程序如下,注意长度模式
'   With Picture1
'      .ScaleMode = vbPixels
'      mmpeg.mmStrech .ScaleWidth, .ScaleHeight
'   End WithEnd Sub MmAvi.mmOpen "G:\resource\Avi\start.avi", Frame1.hWnd
 MmAvi.mmStrech Picture1.Width \ Screen.TwipsPerPixelX, Picture1.height\Screen.TwipsPerPixelY
 MmAvi.mmPlay