Comment : ajouter des icônes personnalisées aux éléments de menu et de barre d'outils

Article
04/28/2010

Mise à jour : novembre 2007

S'applique à
Les informations de cette rubrique s'appliquent uniquement aux projets Visual Studio Tools pour Office et versions de Microsoft Office spécifiés. Type de projet Projets au niveau de l'application Version de Microsoft Office Outlook 2003 Outlook 2007 Pour plus d'informations, consultez Fonctionnalités disponibles par type d'application et de projet.

Les informations de cette rubrique s'appliquent uniquement aux projets Visual Studio Tools pour Office et versions de Microsoft Office spécifiés.

Type de projet

Projets au niveau de l'application

Version de Microsoft Office

Outlook 2003
Outlook 2007

Pour plus d'informations, consultez Fonctionnalités disponibles par type d'application et de projet.

Cet exemple ajoute une icône à un bouton de barre de commandes dans un menu personnalisé de Microsoft Office Outlook. L'icône est incluse dans les ressources du projet. Pour plus d'informations sur les ressources de projet, consultez Ajout et modification de ressources (Visual C#) et Comment : ajouter ou supprimer des ressources.

Pour ajouter des icônes personnalisées

Ajoutez un code au fichier ThisAddIn.vb ou ThisAddIn.cs du projet Outlook pour créer les contrôles CommandBarPopup et CommandBarButton qui représenteront le menu personnalisé et la commande de menu. Ce code vérifie la présence éventuelle du menu. Si le menu existe, ce code le supprime. Il ajoute ensuite le nouveau menu.

Private MenuBar As Office.CommandBar
Private newMenuBar As Office.CommandBarPopup
Private ButtonOne As Office.CommandBarButton
Private menuTag As String = "AUniqueName"


Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
    RemoveMenubar()
    AddMenuBar()
End Sub

Private Sub AddMenuBar()
    Try
        MenuBar = Me.Application.ActiveExplorer().CommandBars.ActiveMenuBar
        newMenuBar = menuBar.Controls.Add( _
            Office.MsoControlType.msoControlPopup, _
            Temporary:=False)
        If newMenuBar IsNot Nothing Then
            newMenuBar.Caption = "See New Icon"
            newMenuBar.Tag = menuTag
            buttonOne = newMenuBar.Controls.Add( _
                Office.MsoControlType.msoControlButton, _
                Before:=1, Temporary:=False)
            With buttonOne
                .Style = Office.MsoButtonStyle _
                .msoButtonIconAndCaption
                .Caption = "New Icon"
                .FaceId = 65
                .Tag = "c123"
                .Picture = getImage()
            End With
            newMenuBar.Visible = True
        End If
    Catch Ex As Exception
        MessageBox.Show(Ex.Message)
    End Try
End Sub

Private Sub RemoveMenubar()
    Try
        ' If the menu already exists, remove it.
        Dim foundMenu As Office.CommandBarPopup = _
            Me.Application.ActiveExplorer().CommandBars.ActiveMenuBar. _
            FindControl(Office.MsoControlType.msoControlPopup, _
            System.Type.Missing, menuTag, True, True)
        If foundMenu IsNot Nothing Then
            foundMenu.Delete(True)
        End If
    Catch Ex As Exception
        MessageBox.Show(Ex.Message)
    End Try
End Sub

private Office.CommandBar menuBar;
private Office.CommandBarPopup newMenuBar;
private Office.CommandBarButton buttonOne;
private string menuTag = "AUniqueTag";

private void ThisAddIn_Startup(object sender, System.EventArgs e)
{
    RemoveMenubar();
    AddMenuBar();
}

private void AddMenuBar()
{
    try
    {
        menuBar = this.Application.ActiveExplorer().CommandBars.ActiveMenuBar;
        newMenuBar = (Office.CommandBarPopup)menuBar.Controls.Add(
            Office.MsoControlType.msoControlPopup, missing,
            missing, missing, false);
        if (newMenuBar != null)
        {
            newMenuBar.Caption = "See New Icon";
            newMenuBar.Tag = menuTag;
            buttonOne = (Office.CommandBarButton)
                newMenuBar.Controls.
            Add(Office.MsoControlType.msoControlButton, System.
                Type.Missing, System.Type.Missing, 1, true);
            buttonOne.Style = Office.MsoButtonStyle.
                msoButtonIconAndCaption;
            buttonOne.Caption = "New Icon";
            buttonOne.FaceId = 65;
            buttonOne.Tag = "c123";
            buttonOne.Picture = getImage();
            newMenuBar.Visible = true;
        }
    }
    catch (Exception ex)
    {
        MessageBox.Show(ex.Message);
    }
}

private void RemoveMenubar()
{
    // If the menu already exists, remove it.
    try
    {
        Office.CommandBarPopup foundMenu = (Office.CommandBarPopup)
            this.Application.ActiveExplorer().CommandBars.ActiveMenuBar.
            FindControl(Office.MsoControlType.msoControlPopup,
            System.Type.Missing, menuTag, true, true);
        if (foundMenu != null)
        {
            foundMenu.Delete(true);
        }
    }
    catch (Exception ex)
    {
        MessageBox.Show(ex.Message);
    }
}

Créez une classe appelée ConvertImage. Cette classe utilise System.Forms.Axhost pour convertir un fichier Image en un type d'image qui peut s'appliquer à l'élément de menu.

<Microsoft.VisualStudio.Tools.Applications.Runtime.StartupObjectAttribute(0), _
 Global.System.Security.Permissions.PermissionSetAttribute _
 (Global.System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
Public Class ConvertImage
    Inherits System.Windows.Forms.AxHost
    Public Sub New()
        MyBase.New("59EE46BA-677D-4d20-BF10-8D8067CB8B32")
    End Sub

    Public Shared Function Convert(ByVal Image _
        As System.Drawing.Image) As stdole.IPictureDisp
        Convert = GetIPictureFromPicture(Image)
    End Function
End Class

sealed public class ConvertImage : System.Windows.Forms.AxHost
{
    private ConvertImage()
        : base(null)
    {
    }

    public static stdole.IPictureDisp Convert
        (System.Drawing.Image image)
    {
        return (stdole.IPictureDisp)System.
            Windows.Forms.AxHost
            .GetIPictureDispFromPicture(image);
    }
}

Ajoutez une méthode pour convertir le fichier icône en un fichier Image en l'ajoutant à un ImageList. Ce code envoie le fichier Image à la méthode ConvertImage.Convert que vous avez créée, puis retourne le fichier à l'appelant.

Private Function getImage() As stdole.IPictureDisp
    Dim tempImage As stdole.IPictureDisp = Nothing
    Try
        Dim newIcon As Icon = My.Resources.Icon1
        Dim newImageList As New ImageList
        newImageList.Images.Add(newIcon)
        tempImage = ConvertImage.Convert(newImageList.Images(0))
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
    Return tempImage
End Function

private stdole.IPictureDisp getImage()
{
    stdole.IPictureDisp tempImage = null;
    try
    {
        System.Drawing.Icon newIcon = 
            Properties.Resources.Icon1;

        ImageList newImageList = new ImageList();
        newImageList.Images.Add(newIcon);
        tempImage = ConvertImage.Convert(newImageList.Images[0]);
    }
    catch (Exception ex)
    {
        MessageBox.Show(ex.Message);
    }
    return tempImage;
}

Compilation du code

Cet exemple nécessite :

Une icône nommée Icon1 dans les ressources de projet.

Voir aussi

Comment : ajouter des icônes personnalisées aux éléments de menu et de barre d'outils

Pour ajouter des icônes personnalisées

Compilation du code

Voir aussi

Tâches

Concepts

Autres ressources

Ressources supplémentaires