Button.OLEType Свойство (2007 System)
Обновлен: Ноябрь 2007
Возвращает значение, представляющее тип OLE-объекта.
Пространство имен: Microsoft.Office.Tools.Excel.Controls
Сборка: Microsoft.Office.Tools.Excel.v9.0 (в Microsoft.Office.Tools.Excel.v9.0.dll)
Синтаксис
'Декларация
Public ReadOnly Property OLEType As Object
'Применение
Dim instance As Button
Dim value As Object
value = instance.OLEType
public Object OLEType { get; }
Значение свойства
Тип: System.Object
Объект-расширитель xlOLEControl.
Примеры
В следующем примере кода создается элемент управления Button и устанавливается текст кнопки для строки, описывающей тип объекта OLE кнопки, что установлено значением характеристики OLEType.
В этом примере демонстрируется настройка уровня документа.
Private Sub DisplayOLEType()
Dim OleButton As Microsoft.Office.Tools.Excel.Controls.Button = _
Me.Controls.AddButton(Me.Range("B2", "C3"), "OleButton1")
Dim ControlType As String
Select Case OleButton.OLEType
Case Excel.XlOLEType.xlOLEControl
ControlType = "OLE control"
Case Excel.XlOLEType.xlOLEEmbed
ControlType = "OLE embedded control"
Case Excel.XlOLEType.xlOLELink
ControlType = "OLE linked control"
Case Else
ControlType = "Not assigned an OLE type"
End Select
oleButton.Text = controlType
End Sub
private void DisplayOLEType()
{
Microsoft.Office.Tools.Excel.Controls.Button oleButton =
this.Controls.AddButton(this.Range["B2", "C3"],
"oleButton1");
string controlType;
switch ((int)oleButton.OLEType)
{
case (int)Excel.XlOLEType.xlOLEControl:
controlType = "OLE control";
break;
case (int)Excel.XlOLEType.xlOLEEmbed:
controlType = "OLE embedded control";
break;
case (int)Excel.XlOLEType.xlOLELink:
controlType = "OLE linked control";
break;
default:
controlType = "Not assigned an OLE type";
break;
}
oleButton.Text = controlType;
}
Разрешения
- Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.