windows media player那些条纹图案是动态的能picturebox实现吗? ========================================== 如果“条纹图案”是指可视化效果,直接SetParent就可以了。。 但“要播放的文件是mpg4格式的avi文件”好像不行再看看。。
播放mp4格式的文件何必要用windows media player呢. 安装directx8.1 sdk后,里面会有一个用VB调用directshow做的播放器例子,应该可以达到你的要求.
Option Explicit'Powered by Jadeluo, 2005/01/20'此工程需要引用Quartz.DLL类库Dim pMC As QuartzTypeLib.FilgraphManager Dim pVW As QuartzTypeLib.IVideoWindowPrivate Sub Form_Load() Set pMC = New FilgraphManager pMC.RenderFile "C:\1.MPG" Set pVW = pMC pVW.Left = 0 pVW.Top = 0 Picture1.Width = pVW.Width * Screen.TwipsPerPixelX Picture1.Height = pVW.Height * Screen.TwipsPerPixelY pVW.Owner = Picture1.hWnd pMC.Run End Sub
如果是静态的直接截图就行了,如果是动态的在picturebox中可能就无法实现了。
==========================================
如果“条纹图案”是指可视化效果,直接SetParent就可以了。。
但“要播放的文件是mpg4格式的avi文件”好像不行再看看。。
安装directx8.1 sdk后,里面会有一个用VB调用directshow做的播放器例子,应该可以达到你的要求.
Dim pVW As QuartzTypeLib.IVideoWindowPrivate Sub Form_Load()
Set pMC = New FilgraphManager
pMC.RenderFile "C:\1.MPG"
Set pVW = pMC
pVW.Left = 0
pVW.Top = 0
Picture1.Width = pVW.Width * Screen.TwipsPerPixelX
Picture1.Height = pVW.Height * Screen.TwipsPerPixelY
pVW.Owner = Picture1.hWnd
pMC.Run
End Sub