Partager via


Button.BringToFront, méthode

Déplace Button à l'avant de l'ordre de plan.

Espace de noms :  Microsoft.Office.Tools.Excel.Controls
Assembly :  Microsoft.Office.Tools.Excel.v4.0.Utilities (dans Microsoft.Office.Tools.Excel.v4.0.Utilities.dll)

Syntaxe

'Déclaration
Public Function BringToFront As Object
public Object BringToFront()

Valeur de retour

Type : System.Object
Cette méthode retourne une référence null (Nothing en Visual Basic) ; sinon cette méthode retourne true.

Notes

Cette méthode affecte à l'ordre de plan de Button le dernier index de la collection OLEObjects ; la numérotation de l'ordre de plan est le contraire de la numérotation de l'index de la collection OLEObjects.Plus l'index est élevé dans la collection OLEObjects, plus l'ordre de plan de Button est bas.

Exemples

L'exemple de code suivant utilise les méthodes BringToFront et SendToBack pour définir l'ordre de plan de trois contrôles Button dans une feuille de calcul.En cas de clic du bouton actuellement à l'avant de l'ordre de plan, ce bouton est déplacé en dernière position de la collection par l'appel à SendToBack.Sinon, le bouton est déplacé au début de la collection par l'appel à BringToFront.Notez que l'ordre de plan des trois boutons s'étend initialement de 2 à 4.Le contrôle Runtime Storage sur la feuille de calcul a initialement la position d'ordre de plan 1.

Cet exemple illustre une personnalisation au niveau du document.

Private Sub ToggleZOrder()
    Dim Button1 As Microsoft.Office.Tools.Excel.Controls.Button = _
        Me.Controls.AddButton(Me.Range("A1", "B2"), "Button1")
    Button1.BackColor = Color.Blue

    Dim Button2 As Microsoft.Office.Tools.Excel.Controls.Button = _
        Me.Controls.AddButton(Me.Range("B2", "C3"), "Button2")
    Button2.BackColor = Color.Red

    Dim Button3 As Microsoft.Office.Tools.Excel.Controls.Button = _
        Me.Controls.AddButton(Me.Range("C3", "D4"), "Button3")
    Button3.BackColor = Color.Green

    AddHandler Button1.Click, AddressOf ZOrderButton_Click
    AddHandler Button2.Click, AddressOf ZOrderButton_Click
    AddHandler Button3.Click, AddressOf ZOrderButton_Click
End Sub

Private Sub ZOrderButton_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)

    If ClickedButton.ZOrder = 4 Then
        ClickedButton.SendToBack()
    Else
        ClickedButton.BringToFront()
    End If
End Sub
private void ToggleZOrder()
{
    Microsoft.Office.Tools.Excel.Controls.Button button1 =
        this.Controls.AddButton(this.Range["A1", "B2"],
        "button1");
    button1.BackColor = Color.Blue;

    Microsoft.Office.Tools.Excel.Controls.Button button2 =
        this.Controls.AddButton(this.Range["B2", "C3"],
        "button2");
    button2.BackColor = Color.Red;

    Microsoft.Office.Tools.Excel.Controls.Button button3 =
        this.Controls.AddButton(this.Range["C3", "D4"],
        "button3");
    button3.BackColor = Color.Green;

    button1.Click += new EventHandler(zOrderButton_Click);
    button2.Click += new EventHandler(zOrderButton_Click);
    button3.Click += new EventHandler(zOrderButton_Click);
}

void zOrderButton_Click(object sender, EventArgs e)
{
    Microsoft.Office.Tools.Excel.Controls.Button clickedButton =
        (Microsoft.Office.Tools.Excel.Controls.Button)sender;

    if (clickedButton.ZOrder == 4)
    {
        clickedButton.SendToBack();
    }
    else
    {
        clickedButton.BringToFront();
    }
}

Sécurité .NET Framework

Voir aussi

Référence

Button Classe

Microsoft.Office.Tools.Excel.Controls, espace de noms