VB.NET AForge USB接続ビデオデバイス取得

AForgeでUSB接続のビデオデバイスを全て、取得する方法を記載します。

AForgeを使用すると簡単に、ビデオデバイスを取得することが出来ます。

全ビデオデバイスの取得

フォームにボタン１つ、ComboBox１つ配置します。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim videoDevices = New FilterInfoCollection(FilterCategory.VideoInputDevice)

    ComboBox1.Items.Clear()
    If videoDevices.Count <> 0 Then
        For Each device In videoDevices
            ComboBox1.Items.Add(device.Name)
        Next

        ComboBox1.SelectedIndex = 0
    End If
End Sub

※ComboBoxには、USBデバイスの名称が表示されます。AForgeでビデオ接続する場合は、デバイスの名前ではなく、モニカストリングを使用します。

'最初にみつかったビデオデバイスのモニカストリング
Dim MonikerString = videoDevices(0).MonikerString