Ako nastaviť masky a vlastnosti obrázka pre Office XP CommandBars

Preklady článku Preklady článku
ID článku: 286460 - Zobraziť produkty, ktorých sa tento článok týka.
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

SUHRN

Microsoft Office XP zavádza dva nové vlastnosti CommandBarButton objekt: Maska a Obrázok vlastnosti. Tieto vlastnosti môžete použiť na umiestnenie obrázkov na vlastné generované príkaz panel kontrol.

Poznámka: Tieto vlastnosti sú tiež k dispozícii v programe Microsoft Office 2003.

DALSIE INFORMACIE

V Maska a Obrázok vlastnosti sú definované ako typ IPictureDisp, ktorý je členom Stdole knižnice. IPictureDisp používa metódy, ktoré nemôžu byť zaradené hranice procesu. Preto, Maska a Obrázok vlastnosti môže byť volaná iba procesu (makrá VBA, automatizácia Add-Ins a ActiveX DLL spustiť v procese). Nájdete v časti „odkazy" Ďalšie informácie týkajúce sa tohto správania.

Vzorka ukazuje ako Ak chcete vytvoriť automatizačný doplnok, ktorý pridáva CommandBar tlačidlo s maskovaný obrázok.

Postup vytvorenia obrázky obrázok a maska

  1. Spustite program Microsoft Paint. Na Obrázok ponuky, kliknite na tlačidlo Atribúty. Zmeniť veľkosť obrazu 32 x 32 a kliknite na ok.
  2. Kreslenie žltá tvár na maľovanie povrch. Vyplnenie priestoru okolité kružnice s modrou.

    Zbaliť tento obrázokRozbaliť tento obrázok
    Obrázok vzorky obrázok.bmp. Kroky

				znova vytvoriť tento obrázok sú uvedené v tomto článku.
  3. Uložiť obrázok ako Circle.bmp.
  4. Vytvoriť maska, vyplňte kruhu s čierny a výplne oblasť mimo kružnice s bielym. Keď obrázok s maska sa pridá do CommandBar kontrolu, čierne oblasti maska sú viditeľné, zatiaľ čo biele plochy sú transparentné.

    Zbaliť tento obrázokRozbaliť tento obrázok
    Obrázok vzorky Mask.bmp. Kroky na

				znova vytvoriť tento obrázok sú uvedené v tomto článku.
  5. Uložiť obrázok ako Mask.bmp.

Postup vytvorenia doplnok COM


  1. Spustiť Visual Basic a vytvoriť nový doplnok programu projekt.
  2. Na Project ponuky, kliknite na tlačidlo Odkazy. Ak "Microsoft Office" typ knižnice skôr než verzia XP je vybrané, zrušte túto typ knižnice a vyberte typ knižnice pre spoločnosť Microsoft Balík Office XP. Kliknite na položku ok.
  3. V okne Project Explorer kliknite pravým tlačidlom myši frmAddin a potom kliknite na tlačidlo Odstrániť frmAddin.
  4. V okne Project Explorer, dvakrát kliknite na Pripojte dizajnér. Pre Aplikácia Vyberte Microsoft Excel, a pre Počiatočné zaťaženie správanie Vyberte Spustenie.
  5. Na View ponuky, kliknite na tlačidlo Kód a nahradiť kód pre doplnok s nasledovným:
    Option Explicit
    
    Dim oExcel As Object
    Dim WithEvents oButton As Office.CommandBarButton
    
    Private Sub AddinInstance_OnConnection(ByVal Application As Object, _
     ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
     ByVal AddInInst As Object, custom() As Variant)
    
      Dim oPic As stdole.IPictureDisp
      Dim oMask As stdole.IPictureDisp
    
      ' Load the picture and mask.
      Set oPic = LoadPicture(App.Path & "\circle.bmp")
      Set oMask = LoadPicture(App.Path & "\mask.bmp")
    
      ' Save an instance of our application.
      Set oExcel = Application
      ' Create a new button on the standard CommandBar.
      Set oButton = oExcel.CommandBars("Standard").Controls.Add(msoControlButton)
      With oButton
        ' Set a tag for the button.
        .Tag = "My Button"
        ' Set the event to fire when the button is pressed.
        .OnAction = "!<" & AddInInst.ProgId & ">"
        ' Set the picture property -- if you are using the Mask property, this
        ' property must be set before you set the Mask property.
        .Picture = oPic
        ' Set the Mask property.
        .Mask = oMask
        ' Show the button.
        .Visible = True
      End With
    End Sub
    
    Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As _
       AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
    
       ' Delete the button.
       oButton.Delete
       ' Release references.
       Set oButton = Nothing
       Set oExcel = Nothing
     End Sub
    
    Private Sub oButton_Click(ByVal Ctrl As Office.CommandBarButton, _
      CancelDefault As Boolean)
      ' Our button was pressed.
      MsgBox "The button was pressed!"
    End Sub
    					
  6. Uloženie projektu a vybudovať doplnok v priečinku ktoré bitové mapy sú uložené.
  7. Spustite program Excel. Nový ovládací prvok s žltom kruhu sa zobrazí na štandardné CommandBar. Všimnite si, že oblasť okolo žltom kruhu je transparentné.

Dodatočné poznámky

Ako u bolo uvedené, IPictureDisp rozhranie nemôže zaradené hranice procesu. Sa pokúša nastaviť Obrázok a Maska vlastnosti out proces výsledok v nasledujúcich Chyba:
Chyba spustenia "-2147418113(8000ffff)":
Metóda "Obraz" objektu "_CommandBarButton" zlyhala
Preto vám nemožno nastaviť tieto vlastnosti CommandBarButton od všetkých automatizačných klientov von procese alebo v procese súčasť, ktorá je spustená v debug režime v jazyku Visual Basic IDE. Ak spustíte vzorky doplnok, popísaný v tomto článku z Visual Basic IDE, budete chybové. Sa predišlo chybe pri ladenie, môžu komentár riadky súbor Obrázok a Maska vlastnosti alebo používať podmienené kompilácia, napríklad # Ak...Potom... # iný smernica.

ODKAZY

Ďalšie informácie získate po kliknutí na nasledujúce čísla článkov publikovaných v databáze Microsoft Knowledge Base:
238228Ako Vybuduj Office 2000 COM Doplnok v jazyku Visual Basic
230689 VZORKA: Comaddin.exe Office 2000 COM doplnok napísané vo Visual c ++
150034 PRB: LPPICTUREDISP nemôžu byť prenesené hranice procesu
Ďalšie informácie nájdete v nasledujúcich Microsoft Webová lokalita:
http://support.Microsoft.com/ofd

Vlastnosti

ID článku: 286460 - Posledná kontrola: 24. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Office Access 2003
  • Microsoft Access 2002 Standard Edition
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Word 2002 Standard Edition
  • Microsoft FrontPage 2002 Standard Edition
  • Microsoft Office Outlook 2003
  • Microsoft Outlook 2002 Standard Edition
  • Microsoft Office PowerPoint 2003
  • Microsoft PowerPoint 2002 Standard Edition
Kľúčové slová: 
kbautomation kbhowto kbmt KB286460 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:286460

Odošlite odozvu

 

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