VBでテレビを操作するには？ (ID:84198)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 MSDNライブラリーのVisualBasicでのTVアプリケーションのサンプルより、DirectShowでテレビを映し、チャンネル設定が行えないかと思い試行錯誤してみたのですが、実行時に「Cannot find a Tuning Space that matches the request.」と出てしまいます。 DirectXを初めて使うためわからないことばかりで、本を探してみるのですがVBでDirextXを使う本がほとんど店に売ってない状況です。 以下がソースコードです Dim objTSContainer As New SystemTuningSpaces Dim objVidAnalog As MSVidAnalogTunerDevice Dim flag 'チャンネル設定→MSVideoControlでView Private Sub Command1_Click() If flag = 1 Then VidControl.Stop End If 'TuningSpaceセット（ここでエラー発生） Set objVidAnalog = objTSContainer("Antenna").CreateTuneRequest objVidAnalog.CountryCode = 81 '13チャンネルを映す objVidAnalog.Channel = 13 VidControl.View objVidAnalog VidControl.Run flag = 1 End Sub Private Sub Form_Load() flag = 0 For Each tunespace In objTSContainer tunename = tunespace.UniqueName List1.AddItem tunename Next End Sub VidControlはMSVideoControlのオブジェクトです。