----------------------------------------- 〇ActiveMovie control type libraryを参照設定
Public Class Form1 Dim mGrp As QuartzTypeLib.FilgraphManager Dim mp As QuartzTypeLib.IMediaPosition Dim ba As QuartzTypeLib.IBasicAudio Dim vw As QuartzTypeLib.IVideoWindow Dim bv As QuartzTypeLib.IBasicVideo
Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
mGrp = New QuartzTypeLib.FilgraphManager
'再生用のグラフを作成 mGrp.RenderFile(txtFile.Text)・・・・・(※)
mp = mGrp
ba = mGrp
'ビデオサイズ(縦横)を取得 Dim vx&, vy& bv = mGrp bv.GetVideoSize(vx, vy)