Visual Basic

Private Sub MainBindingSource_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MainBindingSource.CurrentChanged
            Me.FilterComboBoxDataSource()
	    Me.ItemIDComboBox.DataBindings("SelectedValue").ReadValue()
        End If
    End Sub

Private FilterComboBoxDataSource()
	 ' 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
 
	' 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)
 
	' 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

nlarson11 wrote:

not a good candidate

nlarson11 wrote:

Is there a limit to how many current calls can be made to a shared routine?

' If you got groups like these
shared Sub MySBSOpener(sbs as Object, HowMany as integer, ByRef TestCount as Integer)
shared Sub MySBSTester(sbs As Object, HowOften as integer, Verbose as Boolean)
shared Sub MySBSCloser(sbs as Object, Title as String, ByRef TestCount as Integer, Verbose as Boolean)

' consider these
Class SBS
  private _howMany as int
  private _howOften as int

  Public Sub New(HowMany as Integer, HowOften as Integer)
    _howMany = HowMany
    _howOften = HowOften 
  End Sub

  public Sub MyOpener() ' this sub now uses "Me" as the Object,
                        ' _howMany as a field
                        ' and puts the result in the TestCount property
  public Sub MyTester() ' other example sub use their parameters in their body
  public Sub MyCloser(Title As String) ' except title, which is still passed

  public property Verbose as Boolean
  public readonly property TestCount
    get
      return _testCount
    end get
  end property

End Class

Bastard Programmer from Hell

Public Class Class1
    Inherits DataGridView

    Private _AllowUserToAddRows As Boolean = False

    Public Shadows Property allowUserToAddRows() As Boolean
        Get
            Return _AllowUserToAddRows
        End Get
        Set(ByVal value As Boolean)
            If _AllowUserToAddRows <> value Then
                _AllowUserToAddRows = value
                MyBase.AllowUserToAddRows = value
            End If
        End Set
    End Property
End Class

Imports System.ComponentModel

Public Class MyLabel
    Inherits Label

    Public Sub New()
        MyBase.New()

        'This call is required by the Component Designer.
        InitializeComponent()
    End Sub

    <DefaultValue(False)> _
    Public Shadows Property Visible As Boolean
        Get
            Return MyBase.Visible
        End Get
        Set(ByVal value As Boolean)
            MyBase.Visible = value
        End Set
    End Property
End Class

Public Class MyDataGridView
    Inherits DataGridView

    Public Sub New()
        InitializeComponent()
        AllowUserToAddRows = False
        AllowUserToDeleteRows = False
    End Sub

End Class