CurrencyManager Class
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 98, Windows 2000 SP4, Windows CE, Windows Millennium Edition, Windows Mobile for Pocket PC, Windows Mobile for Smartphone, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition
The .NET Framework does not support all versions of every platform. For a list of the supported versions, see System Requirements.