Button.Border Propriedade
Definição
Importante
Algumas informações se referem a produtos de pré-lançamento que podem ser substancialmente modificados antes do lançamento. A Microsoft não oferece garantias, expressas ou implícitas, das informações aqui fornecidas.
public Microsoft.Office.Interop.Excel.Border Border { get; }
Valor da propriedade
Um Border que representa a borda do Button.
Exemplos
O exemplo de código a seguir adiciona um Button controle a uma planilha e usa a Border propriedade para colorir a borda da célula verde. O Click manipulador de eventos do botão usa a Visible propriedade para ocultar o botão e, em seguida, solicita que o usuário escolha a opção de reexibir o botão ou permitir que ele permaneça oculto.
Este exemplo destina-se a uma personalização no nível de documento.
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