HOW TO: Impostare la proprietà della maschera e la proprietà Picture per un pulsante CommandBar di Office 2003

Creare un nuovo Visual Basic .NET Excel cartella progetto

1. Scegliere Nuovo dal menu file in Microsoft Visual Studio .NET 2003, quindi progetto .
   
   Verrà visualizzata la finestra di dialogo Nuovo progetto .
   1. Nell'elenco Tipi progetto espandere Sistema progetti di Microsoft Office e quindi fare clic su Progetti di Visual Basic .
   2. Nell'elenco modelli , fare clic su Cartella di lavoro di Excel .
   3. Nella casella nome digitare ExcelCommandbar e quindi fare clic su OK .
      
      Verrà visualizzata guidata Microsoft Office Project .
   4. Fare clic su Fine .
2. Scegliere Aggiungi riferimento dal menu progetto .
   
   Verrà visualizzata la finestra di dialogo Aggiungi riferimento .
   1. Fare clic sulla scheda .NET . Nell'elenco dei componenti, fare clic su System.Drawing.dll e quindi fare clic su Seleziona .
   2. Nell'elenco dei componenti, fare clic su stdole e quindi fare clic su Seleziona .
   3. Fare clic su OK .
3. Aggiungere la seguente direttiva nella parte superiore della ThisWorkbook.vb:

   Imports System.Reflection

Aggiungi risorse di immagine al progetto

1. Nel menu progetto , fare clic su Aggiungi componente . Verrà visualizzata la finestra di dialogo Aggiungi nuovo elemento .
2. Nell'elenco modelli , fare clic su File Bitmap .
3. Denominare l'immagine immagine.bmp e quindi fare clic su Apri .
   
   Apertura della bitmap per la modifica nell' Editor di bitmap .
4. Dal menu Visualizza , scegliere Finestra Proprietà . Impostare la proprietà Width e la proprietà Height della bitmap a 16 .
5. Riempimento dell'area di bitmap intero con rosso e quindi disegnare un cerchio verde al centro dell'immagine bitmap.
6. In Esplora soluzioni, fare clic con il pulsante destro del mouse su immagine.bmp e scegliere Proprietà . Modificare la proprietà di Operazione di generazione su Risorsa incorporata .
7. Nel menu file , fare clic su Salva immagine.bmp .

1. In Esplora soluzioni fare clic su immagine.bmp .
2. Nel menu file , fare clic su Copia .
3. Nel menu file , fare clic su Incolla .
   
   Un nuovo file denominato Copia di immagine.bmp viene aggiunto al progetto.
4. In Esplora soluzioni, fare clic con il pulsante destro del mouse su Mask.bmp e scegliere Rinomina . Modificare il nome in Mask.bmp .
5. In Esplora soluzioni, fare clic con il pulsante destro del mouse su Mask.bmp e quindi fare clic su Apri . Modificare il colore di sfondo immagine per bianco e modificare il colore del cerchio nero.
   
   Nota Quando l'immagine con la maschera viene aggiunto al controllo CommandBar , le aree di nere di maschera sono visibili. Le aree bianche sono trasparenti.
6. Nel menu file , fare clic su Salva Mask.bmp .

Aggiungere codice per creare un oggetto CommandBar e un controllo CommandBar

1. Aggiungere la seguente variabile a livello di classe alla classe OfficeCodeBehind :

   WithEvents CBarButton As Office.CommandBarButton

2. Aggiungere il codice riportato di seguito al gestore eventi ThisWorkbook_Open in 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. Aggiungere la seguente classe, MyAxHost subito dopo il gestore di eventi ThisWorkbook_Open in 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. Aggiungere la funzione riportata di seguito alla classe 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. Premere F5 per compilare ed eseguire il progetto.
   
   Si noterà che ExcelCommandBar.xls verrà aperto in Excel. Quando viene aperta la cartella di lavoro, viene visualizzato Risorse CommandBar . CommandBar personali ha un controllo di controllo CommandButton con un'immagine trasparente.

Torna all'inizio | Invia suggerimenti