PopAds.net - The Best Popunder Adnetwork

ComponentiAggiuntivi

    Un Componente Aggiuntivo COM Ŕ un Programma supplementare che estende le capacitÓ di un programma di Microsoft Office aggiungendovi comandi personalizzati e caratteristiche specializzate. E’ possibile caricare o scaricare componenti aggiuntivi dall’omonima voce nel men¨ strumenti. Per creare un componente aggiuntivo per Microsoft Excel, Ŕ necessario creare una cartella di lavoro, inserirvi righe di codice, barre degli strumenti e voci di menu personalizzate, quindi salvarla come file di componente aggiuntivo per Excel.
      Per creare un componente aggiuntivo per Excel, eseguiamo la procedura seguente:
    1. Creiamo una nuova cartella di lavoro ed aggiungiamo il codice applicativo ed il codice che ci permette di generare dinamicamente barre degli strumenti e barre dei menu personalizzate.
    2. Selezioniamo ProprietÓ dal menu File. Nella finestra di dialogo ProprietÓ NomeDocumento scegliamo la scheda Riepilogo, quindi inseriamo nella casella Titolo il nome del componente aggiuntivo che desideriamo venga visualizzato nella finestra di dialogo Componenti aggiuntivi.
    3. Compilare il progetto del componente aggiuntivo e se lo si desidera inserire una password di protezione al progetto.
    4. Salvare la nuova cartella di lavoro come tipo di file Componente aggiuntivo di Excel con estensione xla.
    Nota Durante la creazione di un componente aggiuntivo per Excel, Ŕ necessario tenere conto del contesto nel quale si sta eseguendo il codice. Per poter restituire un riferimento alla cartella di lavoro del componente aggiuntivo, utilizzare la proprietÓ ThisWorkbook oppure il nome della cartella di lavoro. Per fare riferimento alla cartella di lavoro attualmente aperta in Excel, utilizzare la proprietÓ ActiveWorkbook oppure fare riferimento al nome della cartella di lavoro.
    Dopo aver salvato il componente aggiuntivo, Ŕ possibile riaprirlo in Excel per apportare modifiche al progetto. Il componente aggiuntivo salvato non Ŕ pi¨ associato a una cartella di lavoro visibile, tuttavia, quando viene riaperto, il progetto correlato Ŕ disponibile in Microsoft Visual Basic Editor.
    Se la cartella di lavoro viene salvata come componente aggiuntivo di Excel, la proprietÓ IsAddIn dell'oggetto Workbook corrispondente viene impostata su True.
    Durante il caricamento di un componente aggiuntivo di Excel Ŕ possibile eseguirne il debug. Quando viene caricato un componente aggiuntivo, il progetto corrispondente viene visualizzato in Esplora soluzioni di Visual Basic Editor. Per visualizzare il codice di un progetto protetto, Ŕ necessario inserire la password.
    Di seguito viene descritto un semplice progetto di creazione di un componente aggiuntivo. Il modulo apre una msgbox che indica se il giorno corrente Ŕ pari o dispari. Al caricamento del componente aggiuntivo viene inserita la nuova voce "Giorno Pari" nel men¨: Strumenti. La stessa Ŕ eliminata quando il componente viene rimosso. Per comprendere il codice riportato Ŕ necessario avere appreso le tecniche di personalizzazione dell’interfaccia descritte nella sezione "Approfondimenti".
    Creiamo il nuovo modulo di classe: ClsPari, ed includiamo:
        Public WithEvents Bottone As Office.CommandBarButton
    
        Private Sub Bottone_Click(ByVal Controllo As _
        Office.CommandBarButton, CancelDefault As Boolean)
            Resto = Day(Date) Mod 2
            If Resto = 0 Then
                MsgBox "Oggi Ŕ un giorno pari", vbInformation, "Info!"
            Else
                MsgBox "Oggi Ŕ un giorno dispari", vbInformation, "Info!"
            End If
        End Sub
    	
    Di seguito il codice da inserire in "ThisWorkbook":
        Private CmdBarEvents As New ClsPari
    
        Private Sub Workbook_BeforeClose(Cancel As Boolean)
            Application.CommandBars("Tools").Reset
        End Sub
    
        Private Sub Workbook_Open()
    
            Dim Barra As CommandBar
       
            Set Barra = Application.CommandBars("Tools")
            Barra.Controls.Add.Caption = "Giorno Pari"    
            Set CmdBarEvents.Bottone = Barra.Controls("Giorno Pari")
        
        End Sub
    	
    Ecco la nuova voce che viene creata nel men¨ strumenti: