Button.Border Eigenschaft
Definition
Wichtig
Einige Informationen beziehen sich auf Vorabversionen, die vor dem Release ggf. grundlegend überarbeitet werden. Microsoft übernimmt hinsichtlich der hier bereitgestellten Informationen keine Gewährleistungen, seien sie ausdrücklich oder konkludent.
public Microsoft.Office.Interop.Excel.Border Border { get; }
Eigenschaftswert
Ein Border, der den Rahmen von Button darstellt.
Beispiele
Im folgenden Codebeispiel wird ein Button -Steuerelement zu einem Arbeitsblatt hinzugefügt und die- Border Eigenschaft verwendet, um den Rahmen der Zelle grün zu färben. Der Click -Ereignishandler der Schaltfläche verwendet die Visible -Eigenschaft, um die Schaltfläche auszublenden, und fordert den Benutzer auf, die Schaltfläche entweder auszublenden oder zuzulassen, dass Sie ausgeblendet bleibt.
Dieses Beispiel gilt für eine Anpassung auf Dokument Ebene.
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