CurrencyManager Class
Manages a list of Binding objects.
Assembly: System.Windows.Forms (in System.Windows.Forms.dll)
The CurrencyManager derives from the BindingManagerBase class. Use the BindingContext to return either a CurrencyManager or a PropertyManager. The actual object returned depends on the data source and data member passed to the Item property of the BindingContext. If the data source is an object that can return only a single property (instead of a list of objects), the type will be a PropertyManager. For example, if you specify a TextBox as the data source, a PropertyManager will be returned. If, on the other hand, the data source is an object that implements the IList, IListSource, or IBindingList interface, a CurrencyManager will be returned.
The Current property returns the current item in the underlying list. To change the current item, set the Position property to a new value. The value must be greater than 0 and must be less than the value of the Count property.
If the underlying data source implements the IBindingList interface, and the AllowNew property is set to true, you can use the AddNew method.
The following code example binds a TextBox control to a column in a DataTable, gets the CurrencyManager for the binding, and sets its position.
' Place the next line into the Declarations section of the form. Private myCurrencyManager As CurrencyManager Private Sub BindControl(myTable As DataTable) ' Bind a TextBox control to a DataTable column in a DataSet. TextBox1.DataBindings.Add("Text", myTable, "CompanyName") ' Specify the CurrencyManager for the DataTable. myCurrencyManager = CType(me.BindingContext(myTable), CurrencyManager) ' Set the initial Position of the control. myCurrencyManager.Position = 0 End Sub Private Sub MoveNext(myCurrencyManager As CurrencyManager) If myCurrencyManager.Position = myCurrencyManager.Count - 1 Then MessageBox.Show("You're at end of the records") Else myCurrencyManager.Position += 1 End If End Sub Private Sub MoveFirst(myCurrencyManager As CurrencyManager) myCurrencyManager.Position = 0 End Sub Private Sub MovePrevious(myCurrencyManager As CurrencyManager) If myCurrencyManager.Position = 0 Then MessageBox.Show("You're at the beginning of the records.") Else myCurrencyManager.Position -= 1 End if End Sub Private Sub MoveLast(myCurrencyManager As CurrencyManager) myCurrencyManager.Position = myCurrencyManager.Count - 1 End Sub
Windows 7, Windows Vista, Windows XP SP2, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP Starter Edition, Windows Server 2008 R2, Windows Server 2008, Windows Server 2003, Windows Server 2000 SP4, Windows Millennium Edition, Windows 98, Windows CE, Windows Mobile for Smartphone, Windows Mobile for Pocket PC
The .NET Framework and .NET Compact Framework do not support all versions of every platform. For a list of the supported versions, see .NET Framework System Requirements.