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

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.

824017
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
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.

back to the top

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
back to the top

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.
back to the top

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 FunctionEnd 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.
back to the top

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
back to the top

Upozornění: Tento článek byl přeložen automaticky

Vlastnosti

ID článku: 824017 - Poslední kontrola: 02/28/2014 12:12:40 - Revize: 2.4

  • Microsoft Office Excel 2003
  • Microsoft Office Word 2003
  • Microsoft Visual Studio Tools for the Microsoft Office System
  • kbnosurvey kbarchive kbmt kbhowtomaster kbpia KB824017 KbMtcs
Váš názor