Button.Border Свойство
Определение
Важно!
Некоторые сведения относятся к предварительной версии продукта, в которую до выпуска могут быть внесены существенные изменения. Майкрософт не предоставляет никаких гарантий, явных или подразумеваемых, относительно приведенных здесь сведений.
public Microsoft.Office.Interop.Excel.Border Border { get; }
Значение свойства
Объект Border, представляющий границу объекта Button.
Примеры
Следующий пример кода добавляет Button элемент управления на лист и использует Border свойство для выделения цветом границы ячейки зеленого цвета. ClickОбработчик событий кнопки использует Visible свойство для скрытия кнопки, а затем предлагает пользователю выбрать либо скрытие кнопки, либо разрешить ее сохранение скрытой.
Этот пример предназначен для настройки на уровне документа.
private void AlterControlAppearance()
{
Microsoft.Office.Tools.Excel.Controls.Button hideButton =
this.Controls.AddButton(this.Range["B2", "C3"],
"hideButton");
hideButton.Text = "Click to hide";
hideButton.Border.Color = ColorTranslator.ToOle(Color.Green);
hideButton.Click += new EventHandler(hideButton_Click);
}
void hideButton_Click(object sender, EventArgs e)
{
Microsoft.Office.Tools.Excel.Controls.Button clickedButton =
(Microsoft.Office.Tools.Excel.Controls.Button)sender;
clickedButton.Visible = false;
// Allow the user to make the button visible.
if (DialogResult.Yes ==
MessageBox.Show("This sheet contains a hidden control." +
" Make it visible?", "Example", MessageBoxButtons.YesNo))
{
clickedButton.Visible = true;
}
}
Private Sub AlterControlAppearance()
Dim HideButton As Microsoft.Office.Tools.Excel.Controls.Button = _
Me.Controls.AddButton(Me.Range("B2", "C3"), "HideButton")
HideButton.Text = "Click to hide"
HideButton.Border.Color = ColorTranslator.ToOle(Color.Green)
AddHandler HideButton.Click, AddressOf hideButton_Click
End Sub
Private Sub HideButton_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim ClickedButton As Microsoft.Office.Tools.Excel.Controls.Button = _
CType(sender, Microsoft.Office.Tools.Excel.Controls.Button)
ClickedButton.Visible = False
' Allow the user to make the button visible.
If DialogResult.Yes = MessageBox.Show( _
"This sheet contains a hidden control." & _
" Make it visible?", "Example", MessageBoxButtons.YesNo) Then
ClickedButton.Visible = True
End If
End Sub