Postupy: Nastavení vlastností maska a vlastnosti obrázku pro tlačítko CommandBar Office 2003

Překlady článku Překlady článku
ID článku: 824017 - Produkty, které se vztahují k tomuto článku.
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Tento podrobný článek popisuje jak nastavit masku a obrázek vlastnosti ovládacího prvku Microsoft Office 2003 CommandBar z rozšíření spravovaný kód, který je vytvořen s Visual Studio Tools pro sady Microsoft Office. Vlastnosti obrázku umožňují nastavit obrázek zobrazený na ovládací prvek CommandBar. Maska vlastnosti mohou být použity k vytvoření průhledné pozadí, že obrázek.


Vytvořit nový Excel sešit projektu .NET jazyka

  1. V nabídce soubor Microsoft Visual Studio .NET 2003 přejděte na příkaz Nový a klepněte na příkaz projekt.

    Zobrazí se dialogové okno Nový projekt.
    1. V seznamu Typy Project rozbalte položku Microsoft Office System projekty a klepněte na Projekty jazyka.
    2. V seznamu šablony klepněte na Sešit Excel.
    3. V poli název zadejte ExcelCommandbar a potom klepněte na tlačítko OK.

      Zobrazí se průvodce Aplikace.
    4. Klepněte na tlačítko Dokončit.
  2. V nabídce projekt klepněte na tlačítko Přidat odkaz.

    Zobrazí se dialogové okno Přidat odkaz.
    1. Klepněte na kartu .NET. V seznamu součásti klepněte System.Drawing.dll a potom klepněte na tlačítko Vybrat.
    2. V seznamu součásti klepněte stdole a potom klepněte na tlačítko Vybrat.
    3. Klepněte na tlačítko OK.
  3. V horní části ThisWorkbook.vb přidat následující direktivy:
    Imports System.Reflection

Přidat obrázek zdroje aplikace Project

V této části přidáte dva vložený obrázek zdroje k projektu. Jeden prostředek je pro obrázek vlastnosti ovládacího prvku CommandBar. Pro vlastnosti Maska je jiného prostředku.

Přidat zdroj obrázku do aplikace Project, slouží jako obrázek pro svůj řízení CommandBar
  1. V nabídce projekt klepněte na tlačítko Přidat součásti. Zobrazí se v dialogovém okně Přidat novou položku.
  2. V seznamu šablony klepněte na Soubor obrázku.
  3. Název obrázku obrázek.bmp a potom klepněte na tlačítko Otevřít.

    Rastr je otevřen pro úpravy v Editoru rastr.
  4. V nabídce Zobrazit klepněte na příkaz Okno vlastností. Nastavit vlastnosti Šířka a Výška vlastnost rastru 16.
  5. Vyplnění oblasti celé rastrový obrázek s červenou a potom nakreslete zeleného kruhu centra rastrového obrázku.
  6. V aplikaci Solution Explorer klepněte pravým tlačítkem myši obrázek.bmp a potom klepněte na příkaz Vlastnosti. Změnit vlastnost Vytvořit akceEmbedded zdrojů.
  7. V nabídce soubor klepněte na tlačítko Uložit obrázek.bmp.
Přidat zdroj obrázku do aplikace Project, slouží jako maska vaše Image Control CommandBar
  1. V aplikaci Solution Explorer klepněte na tlačítko obrázek.bmp.
  2. V nabídce soubor klepněte na tlačítko Kopírovat.
  3. V nabídce soubor klepněte na tlačítko Vložit.

    Nový soubor s názvem Kopie obrázek.bmp je přidán do projektu.
  4. V aplikaci Solution Explorer klepněte pravým tlačítkem myši Mask.bmp a klepněte na příkaz Přejmenovat. Změnit název Mask.bmp.
  5. V aplikaci Solution Explorer klepněte pravým tlačítkem myši Mask.bmp a potom klepněte na tlačítko Otevřít. Změnit barvu pozadí obrázku bílé a změnit barvu kruhu černé.

    Poznámka: Pokud obrázek s maskou je přidán ovládací prvek CommandBar, černé oblasti maska jsou viditelné. Bílý oblasti jsou průhledné.
  6. V nabídce soubor klepněte na tlačítko Uložit Mask.bmp.

Přidejte kód vytvoření CommandBar řízení a CommandBar

V této části přidat kód projektu, který načte zdroje vložený obrázek v datových proudů, vytvoří CommandBar a řízení CommandBar a nastaví vlastnosti obrázku a Maska vlastnosti pro ovládací prvek CommandBar.
  1. Přidat následující třídy úroveň proměnnou třídy OfficeCodeBehind:
    WithEvents CBarButton As Office.CommandBarButton
  2. Následující kód přidejte obslužnou rutinu události ThisWorkbook_Open v ThisWorkbook.vb:
        'Get a reference to this assembly.
        Dim ThisAssembly As [Assembly]
        ThisAssembly = [Assembly].GetExecutingAssembly()
    
        'Load the Picture and the Mask image resources.
        Dim imgStreamPic As System.IO.Stream, imgStreamMask As System.IO.Stream
        imgStreamPic = ThisAssembly.GetManifestResourceStream("ExcelCommandBar.Picture.bmp")
        imgStreamMask = ThisAssembly.GetManifestResourceStream("ExcelCommandBar.Mask.bmp")
    
        'Obtain references to IPictureDisp for both images.
        Dim ax As New MyAxHost
        Dim Pic As stdole.IPictureDisp, Mask As stdole.IPictureDisp
        Pic = ax.IPictureDisp(Drawing.Image.FromStream(imgStreamPic))
        Mask = ax.IPictureDisp(Drawing.Image.FromStream(imgStreamMask))
    
        'Add a temporary CommandBar and a CommandBar button.
        Dim CBar As Office.CommandBar
        CBar = ThisApplication.CommandBars.Add("My CommandBar", , , True)
        CBarButton = CType(CBar.Controls.Add(Office.MsoControlType.msoControlButton), _
                    Office.CommandBarButton)
        CBarButton.Style = Office.MsoButtonStyle.msoButtonIconAndCaption
        CBarButton.Caption = "My Button"
        CBarButton.Tag = "My_Button"
        CBarButton.Picture = Pic
        CBarButton.Mask = Mask
        CBar.Visible = True
    
    
  3. Přidat následující třídy MyAxHost okamžitě po obslužné rutiny události ThisWorkbook_Open v ThisWorkbook.vb:
    Public Class MyAxHost
    
        Inherits System.Windows.Forms.AxHost
    
        Public Sub New()
            MyBase.New("59EE46BA-677D-4d20-BF10-8D8067CB8B33")
        End Sub
    
        Public Shared Function IPictureDisp(ByVal Image As System.Drawing.Image) As stdole.IPictureDisp
            IPictureDisp = CType(AxHost.GetIPictureDispFromPicture(Image), stdole.IPictureDisp)
        End Function
    
    End Class
  4. Přidat následující funkce třídy OfficeCodeBehind:
    Private Sub CBarButton_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton,  _
        ByRef CancelDefault As Boolean) Handles CBarButton.Click
        MessageBox.Show("You clicked My Button!")
    End Sub
  5. Stisknutím klávesy F5 sestavit a spustit projektu.

    Všimněte si, že v aplikaci Excel otevře ExcelCommandBar.xls. Při otevření sešitu se zobrazí Tento CommandBar. Moje CommandBar má jeden ovládací prvek CommandButton s průhledný obrázek.


Odkazy

Další informace získáte v následujícím článku znalostní báze Microsoft Knowledge Base:
286460Postupy: Nastavení pro Office XP CommandBars maska a vlastnosti obrázku

Vlastnosti

ID článku: 824017 - Poslední aktualizace: 28. února 2014 - Revize: 2.4
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Office Excel 2003
  • Microsoft Office Word 2003
  • Microsoft Visual Studio Tools for the Microsoft Office System
Klíčová slova: 
kbnosurvey kbarchive kbmt kbhowtomaster kbpia KB824017 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:824017

Dejte nám zpětnou vazbu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com