RemoteBindableComponent.DataBindings Свойство (2007 System)
Обновлен: Ноябрь 2007
Получает объекты Binding для компонента.
Пространство имен: Microsoft.VisualStudio.Tools.Office
Сборка: Microsoft.Office.Tools.v9.0 (в Microsoft.Office.Tools.v9.0.dll)
Синтаксис
'Декларация
Public ReadOnly Property DataBindings As ControlBindingsCollection
'Применение
Dim instance As RemoteBindableComponent
Dim value As ControlBindingsCollection
value = instance.DataBindings
public ControlBindingsCollection DataBindings { get; }
Значение свойства
Тип: System.Windows.Forms.ControlBindingsCollection
Коллекция ControlBindingsCollection, содержащая объекты Binding для компонента.
Реализации
IBindableComponent.DataBindings
Заметки
Данное свойство используется для доступа к коллекции ControlBindingsCollection. Добавляя к коллекции объекты Binding, можно связать любое свойство компонента со свойством объекта.
Примеры
В следующем примере кода на текущий лист добавляется одна ячейка элемента управления NamedRange (производная от RemoteBindableComponent), DataSet с одним столбцом имен и Button. В данном примере используется свойство DataBindings для привязки DataSet к свойству Value2 класса NamedRange. Данный пример кода является частью большого примера для класса RemoteBindableComponent.
Private namedRange1 As Microsoft.Office.Tools.Excel.NamedRange
Private WithEvents button1 As Microsoft.Office.Tools.Excel.Controls.Button
Private customerNames As String() = _
{"Reggie", "Sally", "Henry", "Christine"}
Private ds As DataSet
Private Sub SetBindingContext()
namedRange1 = Me.Controls.AddNamedRange(Me.Range("A1", _
System.Type.Missing), "namedRange1")
' Create a button that scrolls through the data
' displayed in the NamedRange.
button1 = Me.Controls.AddButton(50, 20, 100, 20, "button1")
button1.Text = "Display next item"
' Create a data table with one column.
ds = New DataSet()
Dim table As DataTable = ds.Tables.Add("Customers")
Dim column1 As New DataColumn("Names", GetType(String))
table.Columns.Add(column1)
' Add the names to the table.
Dim row As DataRow
Dim i As Integer
For i = 0 To customerNames.Length - 1
row = table.NewRow()
row("Names") = customerNames(i)
table.Rows.Add(row)
Next i
' Create a new Binding that links the Value2 property
' of the NamedRange and the Names column.
Dim binding1 As New Binding("Value2", ds, "Customers.Names", True)
namedRange1.DataBindings.Add(binding1)
End Sub
private Microsoft.Office.Tools.Excel.NamedRange namedRange1;
private Microsoft.Office.Tools.Excel.Controls.Button button1;
private string[] customerNames =
{ "Reggie", "Sally", "Henry", "Christine" };
private DataSet ds;
private void SetBindingContext()
{
namedRange1 = this.Controls.AddNamedRange(
this.Range["A1", missing], "namedRange1");
// Create a button that scrolls through the data
// displayed in the NamedRange.
button1 = this.Controls.AddButton(50, 20, 100, 20,
"button1");
button1.Text = "Display next item";
button1.Click += new EventHandler(button1_Click);
// Create a data table with one column.
ds = new DataSet();
DataTable table = ds.Tables.Add("Customers");
DataColumn column1 = new DataColumn("Names", typeof(string));
table.Columns.Add(column1);
// Add the names to the table.
DataRow row;
for (int i = 0; i < customerNames.Length; i++)
{
row = table.NewRow();
row["Names"] = customerNames[i];
table.Rows.Add(row);
}
// Create a new Binding that links the Value2 property
// of the NamedRange and the Names column.
Binding binding1 = new Binding("Value2", ds, "Customers.Names", true);
namedRange1.DataBindings.Add(binding1);
}
Разрешения
- Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.