Visual Basic

Private FilterComboBoxDataSource()
    ' Variable to store actual SelectedItem from LookUp BindingSource
       Dim t As DataRowView = Nothing

    ' Variable to store actual ItemID value from Main BindingSource
   Dim i as Integer = -1

   ' Stores the current row from Main BindingSource as a typed DataRow from Main DataTable
    Dim r As MainRow = CType(CType(Me.MainBindingSource.Current, DataRowView).Row, MainRow)

    ' Stores actual UpdateMode for every Binding of the ComboBox DataBinding Collection
    ' and changes it to DataSourceUpdateMode.Never
    ' (At moment only one binding exists, that for SelectedValue)
       Dim updateModes As Dictionary(Of BindingMemberInfo, DataSourceUpdateMode) =
           New Dictionary(Of BindingMemberInfo, DataSourceUpdateMode)
       For Each b As Binding In Me.ItemIDComboBox.DataBindings
           updateModes.Add(b.BindingMemberInfo, b.DataSourceUpdateMode)
           b.DataSourceUpdateMode = DataSourceUpdateMode.Never
       Next

   ' If ItemID isn't Null, searches related record in LookUp BindingSource underlying DataTable and stores it
   ' (Should use IsNull Function of untyped DataRow because ItemID is a NonNull Field)
       If Not r.IsNull("ItemID") Then
           Dim dv As DataView = CType(Me.LookUpBindingSource.List, DataView).Table.DefaultView
           dv.Sort = "ID ASC"
           t = dv(dv.Find(r.ItemID))
       ' Stores ItemID value - needed because t couldn't be find, so ItemID will be used to relocate the record - See below
      i = r.ItemID
       End If

   ' Set up Filter for LookUp BindingSource
   ' Field1, Field2 and Field3 are fields from Main DataTable whose values are displayed, via Main BindingSource,
   ' in three CheckBoxes on the form
       Me.LookUpBindingSource.Filter =
           String.Format("Field1 = {0} And Field2 = {1} And Field3 = {2}",
                         Me.Field1CheckBox.Checked,
                         Me.Field2CheckBox.Checked,
                         Me.Field3CheckBox.Checked)

   ' If an item was previously selected in ComboBox (t is not nothing)
   ' tries to find and reselect it in the ComboBox by setting the position
   ' of filtered LookUp BindingSource
   ' IT DOESN'T WORK: IndexOf(t) always returns -1. Why?
       If Not IsNothing(t) Then
           Me.TipiMovimentoBindingSource.Position =
               Me.TipiMovimentoBindingSource.IndexOf(t)
       End If

   ' If an item was previously selected in ComboBox (i > -1)
   ' tries to find and reselect it in the ComboBox by setting the position
   ' of filtered LookUp BindingSource
   ' THIS WORKS
       If i > -1 Then
           Me.TipiMovimentoBindingSource.Position =
               Me.TipiMovimentoBindingSource.Find("ID", i)
       End If

   ' Reset DataSourceUpdateMode for each binding of ComboBox
       For Each b As Binding In Me.IDTipoComboBox.DataBindings
           b.DataSourceUpdateMode = updateModes(b.BindingMemberInfo)
       Next

       updateModes = Nothing
   End Sub

Imports DirectShowLib
Imports System.Runtime.InteropServices.ComTypes

    Private Sub GetSettings()
        Try
            Dim capDevices As DsDevice() = Nothing
            Dim CamDevice As DsDevice = Nothing
            Dim CamFilter As IBaseFilter = Nothing
            Dim CamControl As IAMCameraControl = Nothing
            Dim graphBuilder As IFilterGraph2 = CType(New FilterGraph, IFilterGraph2)
            '' ''Dim IID_IBaseFilter As Guid = New Guid("56a86895-0ad6-11ce-b03a-0020af0ba770")
            Dim nMin As Long = 0
            Dim nMax As Long = 0
            Dim nStep As Long = 0
            Dim nDefault As Long = 0
            Dim nFlags As Long = 0
            Dim hr As Int64 = 0

            capDevices = DsDevice.GetDevicesOfCat(FilterCategory.VideoInputDevice)
            CamDevice = capDevices(0)

            If (CamDevice.Name = String.Empty) Then
                MsgBox("No video capture devices found!", MsgBoxStyle.OkOnly)
                Exit Sub
            End If

            '' ''CamDevice.Mon.BindToObject(Nothing, Nothing, IID_IBaseFilter, CamDevice) ' Causes "Specified cast is not valid." error
            hr = graphBuilder.AddSourceFilterForMoniker(CamDevice.Mon, Nothing, CamDevice.Name, CamFilter)
            CamControl = CType(CamFilter, IAMCameraControl)
            hr = CamControl.GetRange(VideoProcAmpProperty.Brightness, nMin, nMax, nStep, nDefault, nFlags)
            Me.tbBrightness.Minimum = nMin ' can get -50
            Me.tbBrightness.Maximum = nMax ' 50
            Me.tbBrightness.SmallChange = nStep ' 1
            Me.tbBrightness.Value = nDefault ' 0
            '' ''Me.tbBrightness.nFlags = nFlags ' 2
        Catch ex As Exception

        End Try
    End Sub

    Private Sub tbBrightness_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbBrightness.Scroll
        Try
            Dim capDevices As DsDevice() = Nothing
            Dim CamDevice As DsDevice = Nothing
            Dim CamFilter As IBaseFilter = Nothing
            Dim CamControl As IAMCameraControl = Nothing
            Dim graphBuilder As IFilterGraph2 = CType(New FilterGraph, IFilterGraph2)
            Dim hr As Int64 = 0
            Dim nVal As Int64 = tbBrightness.Value

            capDevices = DsDevice.GetDevicesOfCat(FilterCategory.VideoInputDevice)
            CamDevice = capDevices(0)

            hr = GraphBuilder.AddSourceFilterForMoniker(CamDevice.Mon, Nothing, CamDevice.Name, CamFilter)
            CamControl = CType(CamFilter, IAMCameraControl)
            hr = CamControl.Set(VideoProcAmpProperty.Brightness, nVal, CameraControlFlags.Auto)
        Catch ex As Exception

        End Try
    End Sub