Nasıl Yapılır: Araç Kutusuna Özel Simge Ekleme ve Menü Öğeleri

Makale
08/01/2011

Bu örnekte, Microsoft Office Outlook'ta özel bir menü üzerindeki komut çubuğuna bir simge eklenir. Bu, projenin kaynaklarında içerilmeyen bir simgedir. Proje kaynakları hakkında daha fazla bilgi için bkz. Adding and Editing Resources (Visual C#) ve bkz. Nasıl Yapılır: Ekle veya Kaynaklar Kaldır.

Uygulama alanı: Bu konudaki bilgiler şu uygulamaların uygulama düzeyi projelerine yöneliktir: InfoPath 2007, Outlook 2007, Project 2007 ve Visio 2007. Daha fazla bilgi için bkz. Office Uygulamalarında Kullanılabilir Özellikler ve Proje Türü.

Bu örnek için Outlook belirli olsa da, bir komut çubuğu düğmesi için bir simge ekler bu kod parçasını simgeleri yukarıda listelenen uygulamaları komut çubuğu düğmeleri eklemek için kullanılır.

Özel simgeler eklemek için

Outlook projesinin ThisAddIn.vb ya da ThisAddIn.cs dosyasına, özel menüyü ve menü komutunu temsil eden CommandBarPopup ve CommandBarButton denetimlerini oluşturmak için kod ekleyin. Bu kod, menünün var olup olmadığını kontrol eder. Eğer varsa, menüyü kaldırır. Ardından yeni menüyü ekler.

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
        MsgBox(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
        MsgBox(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)
    {
        System.Windows.Forms.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)
    {
        System.Windows.Forms.MessageBox.Show(ex.Message);
    }
}

ConvertImage adında yeni bir sınıf oluşturun. Bu sınıf, Image dosyasını menü öğesine uygulanabilen bir türe dönüştürmek için System.Forms.Axhost kullanır.

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

Simge dosyasını bu dosyaya bir ImageList ekleyerek Image dosyasına dönüştürmek için bir yöntem ekleyin. Bu kod, Image dosyasını oluşturduğunuz ConvertImage.Convert yöntemine gönderir ve dosyayı kendisini çağırana döndürür.

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

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

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