BindingSource.Current 属性

定义

命名空间:

System.Windows.Forms

程序集:

System.Windows.Forms.dll

获取列表中的当前项。

public:
 property System::Object ^ Current { System::Object ^ get(); };

[System.ComponentModel.Browsable(false)]
public object Current { get; }

[<System.ComponentModel.Browsable(false)>]
member this.Current : obj

Public ReadOnly Property Current As Object

属性值

Object

Object，它表示由 List 属性表示的基础列表中的当前项；如果列表中没有任何项，则为 null。

属性

BrowsableAttribute

示例

下面的代码示例演示 了 Current 属性。 若要运行此示例，请将代码粘贴到窗体中，并从窗体的事件Load处理方法调用 PopulateBindingSourceWithFonts 方法。

  public BindingSource bindingSource1 = new BindingSource();
  TextBox box1 = new TextBox();

  private void PopulateBindingSourceWithFonts()
  {
      bindingSource1.CurrentChanged += new EventHandler(bindingSource1_CurrentChanged);
      bindingSource1.Add(new Font(FontFamily.Families[2], 8.0F));
      bindingSource1.Add(new Font(FontFamily.Families[4], 9.0F));
      bindingSource1.Add(new Font(FontFamily.Families[6], 10.0F));
      bindingSource1.Add(new Font(FontFamily.Families[8], 11.0F));
      bindingSource1.Add(new Font(FontFamily.Families[10], 12.0F));
      DataGridView view1 = new DataGridView();
      view1.DataSource = bindingSource1;
      view1.AutoGenerateColumns = true;
      view1.Dock = DockStyle.Top;
      this.Controls.Add(view1);
      box1.Dock = DockStyle.Bottom;
      box1.Text = "Sample Text";
      this.Controls.Add(box1);
      box1.DataBindings.Add("Text", bindingSource1, "Name");
      view1.Columns[7].DisplayIndex = 0;
  }

  void bindingSource1_CurrentChanged(object sender, EventArgs e)
  {
      box1.Font = (Font)bindingSource1.Current;
  }

 Private WithEvents bindingSource1 As New BindingSource()
 Private box1 As New TextBox()

 
 Private Sub PopulateBindingSourceWithFonts()
   
     bindingSource1.Add(New Font(FontFamily.Families(2), 8.0F))
     bindingSource1.Add(New Font(FontFamily.Families(4), 9.0F))
     bindingSource1.Add(New Font(FontFamily.Families(6), 10.0F))
     bindingSource1.Add(New Font(FontFamily.Families(8), 11.0F))
     bindingSource1.Add(New Font(FontFamily.Families(10), 12.0F))
     Dim view1 As New DataGridView()
     view1.DataSource = bindingSource1
     view1.AutoGenerateColumns = True
     view1.Dock = DockStyle.Top
     Me.Controls.Add(view1)
     box1.Dock = DockStyle.Bottom
     box1.Text = "Sample Text"
     Me.Controls.Add(box1)
     view1.Columns("Name").DisplayIndex = 0
     box1.DataBindings.Add("Text", bindingSource1, "Name")
     
 End Sub
  
 Sub bindingSource1_CurrentChanged(ByVal sender As Object, ByVal e As EventArgs) _
     Handles bindingSource1.CurrentChanged
     box1.Font = CType(bindingSource1.Current, Font)
 End Sub

注解

Current使用 属性访问当前项，但使用 List 属性获取整个列表。 若要确定当前对象的类型，请使用 GetType、 或 ToString 方法。

若要更改当前项，请将 Position 属性设置为新的整型值，或使用导航方法之一，例如 MoveNext。

另请参阅

• List
• Position
• Count