Button.Application Propriété
Définition
Important
Certaines informations portent sur la préversion du produit qui est susceptible d’être en grande partie modifiée avant sa publication. Microsoft exclut toute garantie, expresse ou implicite, concernant les informations fournies ici.
Obtient un objet Application qui représente le créateur de Button.
public Microsoft.Office.Interop.Excel.Application Application { get; }
Valeur de propriété
Objet Application qui représente le créateur de Button.
Exemples
L’exemple de code suivant ajoute un Button contrôle à la feuille de calcul active. Le Click Gestionnaire d’événements pour ce bouton affiche les valeurs des Creator Application Propriétés et.
Cet exemple est destiné à une personnalisation au niveau du document.
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