怎么用picturebox 显示播放器的图像呢,高手指教分(50)

Question

曾经看别人的控件实现用picture显示播放器的输出界面,今天也接到了个项目,也需要用picuturebox 来实现,请高人指教如何实现!较急,非常感谢!在线等...

Answer 1

用ActiveMovieControl这个库，功能很强的。Private Const WS_CHILD = &H40000000
Private Const WS_CLIPCHILDREN = &H2000000Private m_FilGraph      As FilgraphManager
Private m_Video         As IVideoWindowPrivate Sub Command1_Click()
    
    Dim strFileName     As String
    
    strFileName = "F:\Music\MTV\阿桑_叶子.asf"
    
    Set m_FilGraph = New FilgraphManager
    
    m_FilGraph.RenderFile strFileName
    
    Set m_Video = m_FilGraph
    
    With m_Video
        .Owner = Picture1.hWnd     'Owner可以设置为任意窗口的句柄
        .WindowStyle = WS_CHILD Or WS_CLIPCHILDREN
        .Top = 0
        .Left = 0
        .Width = Picture1.Width / Screen.TwipsPerPixelX
        .Height = Picture1.Height / Screen.TwipsPerPixelY
    End With
    
    m_FilGraph.Run
    
End Sub

Answer 2

可以打开目前流行格式的文件吗?rm,rmvb,vob,dat等