VB.NET AForge USBカメラの情報を取得

AForgeを使用して、特定のUSBカメラのサポートするフレームレート、画像サイズを全て、取得する方法を記載します。

フレームレートは、画像に対する最大フレームレートが取得されます。

USBカメラのサポート情報の取得する

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

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ComboBox1.Items.Clear()

    Dim videoDevices = New FilterInfoCollection(FilterCategory.VideoInputDevice)

    Dim videoSource = New VideoCaptureDevice(videoDevices(0).MonikerString)     '最初に見つかったビデオデバイスを使用

    Dim videoCapabilities = videoSource.VideoCapabilities                       'ビデオデバイスの提供する機能一覧を配列に格納

    For Each v In videoCapabilities
        Dim s = String.Format("{0} {1}×{2}", v.MaximumFrameRate, v.FrameSize.Width, v.FrameSize.Height)
        ComboBox1.Items.Add(s)
    Next

    ComboBox1.SelectedIndex = 0
End Sub