Compartir a través de


Button.Creator Property

Definition

Gets a value that indicates the application in which the Button was created.

public:
 property Microsoft::Office::Interop::Excel::XlCreator Creator { Microsoft::Office::Interop::Excel::XlCreator get(); };
public Microsoft.Office.Interop.Excel.XlCreator Creator { get; }
member this.Creator : Microsoft.Office.Interop.Excel.XlCreator
Public ReadOnly Property Creator As XlCreator

Property Value

The xlCreatorCode.

Examples

The following code example adds a Button control to the current worksheet. The Click event handler for this button displays the values of the Creator and Application properties.

This example is for a document-level customization.

private void DisplayCreatorAndApplication()
{
    Microsoft.Office.Tools.Excel.Controls.Button creatorButton1 =
            this.Controls.AddButton(this.Range["B2", "C3"],
            "creatorButton1");
    creatorButton1.Text = "Click to view creator and application";
    creatorButton1.Click += new EventHandler(creatorButton_Click);
}

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

    string applicationString = "The current application is " +
        clickedButton.Application.Name.ToString();

    if (clickedButton.Creator == Excel.XlCreator.xlCreatorCode)
    {
        MessageBox.Show(applicationString +
            ". Created by Microsoft Excel");
    }
    else
    {
        MessageBox.Show(applicationString +
            ". Created by an application other than Microsfot Excel");
    }
}
Private Sub DisplayCreatorAndApplication()
    Dim CreatorButton1 As Microsoft.Office.Tools.Excel.Controls.Button = _
        Me.Controls.AddButton(Me.Range("B2", "C3"), "CreatorButton1")
    CreatorButton1.Text = "Click to view creator and application"
    AddHandler CreatorButton1.Click, AddressOf CreatorButton_Click
End Sub

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

    Dim ApplicationString As String = "The current application is " & _
        ClickedButton.Application.Name.ToString()

    If ClickedButton.Creator = Excel.XlCreator.xlCreatorCode Then
        MsgBox(ApplicationString & ". Created by Microsoft Excel")
    Else
        MsgBox(ApplicationString & _
            ". Created by an application other than Microsfot Excel")
    End If
End Sub

Remarks

Because the Button was created in Microsoft Office Excel, this property returns the string XCEL, which is equivalent to the hexadecimal number 5843454C.

Applies to