vb播放視頻

Library QuartzTypeLib

C:/WINDOWS/system32/quartz.dll

ActiveMovie control type library

 

Dim grp As New QuartzTypeLib.FilgraphManager Const WS_CHILD = &H40000000 Const WS_VISIBLE = &H10000000 Private Sub Form_Load() Dim v As IVideoWindow Debug.Print ScaleX(Height, Me.ScaleMode, vbPixels) grp.RenderFile "d:/zl1127.m2p" Set v = grp v.Owner = Me.hWnd v.Left = 0 v.Top = 0 v.Width = ScaleX(Width, ScaleMode, vbPixels) v.Height = ScaleY(Height, ScaleMode, vbPixels) v.WindowStyle = WS_CHILD Or WS_VISIBLE grp.Run End Sub