タイトル : Re: USBカメラ 投稿日 : 2009/02/27(Fri) 21:39 投稿者 : K.J.K.
提示されたコードを利用するのならば、それぞれ別個のウィンドウに出す場合は、 エラー処理を無視すると、おそらくこんな感じでは。 なお、試してないので適宜修正してください。 ついでに、VB6 は SP6 が推奨です。 Private Sub Form_Load() Dim fltCamera1 As QuartzTypeLib.IFilterInfo Dim fltCamera2 As QuartzTypeLib.IFilterInfo Dim regFilter As QuartzTypeLib.IRegFilterInfo Dim pinCamera As QuartsTypeLib.IPinInfo Set mGrp = New QuartzTypeLib.FilgraphManager On Error Resume Next For Each regFilter In In mGrp.RegFilterCollection If regFilter.Name Like CAMERA_FILTER_NAME & "*" Then If fltCamera1 Is Nothing Then Call regFilter.AddFilter(fltCamera1) Else Call regFilter.AddFilter(fltCamera2) If Not (fltCamera2 Is Nothing) Then Exit For End If End If Next If Not (fltCamera1 Is Nothing) Then For Each pinCamera In fltCamera1.Pins If 1 = pinCamera.Direction Then Call pinCamera.Render Set pinCamera = Nothing Exit For End If Next End If If Not (fltCamera2 Is Nothing) Then For Each pinCamera In fltCamera2.Pins If 1 = pinCamera.Direction Then Call pinCamera.Render Set pinCamera = Nothing Exit For End If Next End If Call mGrp.Run End Sub |