Практическое руководство. Добавление пользовательских значков на панель инструментов и в пункты меню

Статья
04/28/2010

Обновлен: Ноябрь 2007

Применение
Сведения, приведенные в данном разделе, относятся только к указанным проектам Visual Studio Tools for Office и версиям Microsoft Office. Тип проекта Проекты уровня приложения Версия Microsoft Office Outlook 2003 Outlook 2007 Дополнительные сведения см. в разделе Доступность функций по типам приложений и проектов.

Сведения, приведенные в данном разделе, относятся только к указанным проектам Visual Studio Tools for Office и версиям Microsoft Office.

Тип проекта

Проекты уровня приложения

Версия Microsoft Office

Outlook 2003
Outlook 2007

Дополнительные сведения см. в разделе Доступность функций по типам приложений и проектов.

В этом примере описывается порядок добавления значка к кнопке панели команд в пользовательском меню Microsoft Office Outlook. Значок содержится в ресурсах проекта. Дополнительные сведения о ресурсах проекта см. в разделах Добавление и редактирование ресурсов (Visual C#) и Практическое руководство. Добавление или удаление ресурсов.

Добавление пользовательских значков

Чтобы создать элементы управления CommandBarPopup и CommandBarButton, которые представляют пользовательское меню и команду меню соответственно, добавьте код в файл ThisAddIn.vb или ThisAddIn.cs проекта Outlook. В коде выполняется проверка существования меню. Если меню существует, выполняется его удаление. После этого добавляется новое меню.

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);
    }
}

Создайте новый класс ConvertImage. Класс System.Forms.Axhost используется в этом классе для преобразования файла Image к типу изображения, которое может использоваться в пунктах меню.

<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);
    }
}

Добавьте метод, который используется для преобразования файла значка в файл Image посредством его добавления в список ImageList. В коде выполняется передача файла Image созданному методу ConvertImage.Convert, после чего файл возвращается вызвавшему объекту.

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;
}

Компиляция кода

Для этого примера требуются следующие компоненты:

Значок Icon1 в ресурсах проекта.

См. также

Поделиться через

Практическое руководство. Добавление пользовательских значков на панель инструментов и в пункты меню

Добавление пользовательских значков

Компиляция кода

См. также

Задачи

Основные понятия

Другие ресурсы

Дополнительные ресурсы