Ako Vybuduj Office 2000 COM doplnok programu v jazyku Visual Basic

OnConnection

• Aplik�cia - odkaz na objekt application hostite�a.
• ConnectMode - kon�tanta, ktor� ur�uje, ako doplnok bol pripojen�.
  • ext_cm_AfterStartup - za�al kone�n�m u��vate�om z dial�gov�ho okna doplnky COM.
  • ext_cm_CommandLine - pripojen� z pr�kazov�ho riadka. (Nevz�ahuje na budovan� doplnky COM pre aplik�cie bal�ka Office.)
  • ext_cm_External - pripojen� Extern� aplik�cia prostredn�ctvom automatiz�cie. (Nevz�ahuje na budovan� doplnky COM pre aplik�cie bal�ka Office.)
  • ext_cm_Startup - za�al hostite�om pri spusten� aplik�cie. (Toto spr�vanie je ovl�dan� nastavenia v datab�ze registry).
• AddInInst - odkaz na objekt COMAddIn, odkazuj�ci na tento doplnok v kolekcii COMAddIns pre hostite�sk� aplik�cia.
• Vlastn� - pole varianty, ktor� m��ete uchova� u��vate�sk� d�ta.

OnDisconnection

• RemoveMode - kon�tanta, ktor� ur�uje, ako doplnok bol odpojen�.
  • ext_dm_HostShutdown - odpoj� pri zatvoren� hostite�a aplik�cie.
  • ext_dm_UserClosed - odpojen� koncov�ho pou��vate�a alebo automatiz�cia radi�.
• Vlastn� - pole varianty, ktor� m��ete uchova� u��vate�sk� d�ta.

OnAddInsUpdate

OnStartupComplete a OnBeginShutdown

Registruj� sa doplnok COM

HKEY_CURRENT_USER\Software\Microsoft\Office\<OfficeApp>\Addins\<ProgID>

• 0 = Odpoji� - nie je zaveden�.
• 1 = Pripojen� - je na��tan�.
• 2 = Bootload - za�a�enie na aplik�ciu pri spusten�.
• 8 = DemandLoad - za�a�enie iba ak po�aduje u��vate�.
• 16 = ConnectFirstTime - za�a�enie len raz (pri �al�om spusten�).

Budovanie COM doplnok

Budovanie COM doplnok pomocou Com doplnok �abl�ny

Budovanie COM doplnok pomocou N�vrh�ra Visual Basic 6 doplnok

1. Spustite program Microsoft Visual Basic 6.0 a vyberte Doplnok programu ako typu projektu. To by mali prid�va� n�vrh�r triedy projektu (pripoji�) a formul�r (frmAddin).
2. Otvoren� Dizajn�r okno pre pripojenie a vyberte Microsoft Excel z Aplik�cia Rozba�ovac� zoznam.
3. V Po�iato�n� za�a�enie spr�vanie kvapka-down list, vyberte Spustenie.
4. Odstr�nenie frmAddin z projektu.
5. Z Project okno, kliknite prav�m tla�idlom my�i Pripojte polo�ky a vyberte Zobrazi� k�d.
6. Odstr��te cel� k�d v okne k�d projektanta. Tento k�d funguje pre doplnky VB, ale nie Office doplnky.
7. Do n�vrh�ra, pridajte nasleduj�ci k�d:

      Option Explicit
   
      Dim oXL As Object
      Dim WithEvents MyButton As Office.CommandBarButton
   
      Private Sub AddinInstance_OnConnection(ByVal Application As Object, _
       ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
       ByVal AddInInst As Object, custom() As Variant)
         On Error Resume Next
         MsgBox "My Addin started in " & Application.Name
      
         Set oXL = Application
      
         Set MyButton = oXL.CommandBars("Standard").Controls.Add(1)
            With MyButton
               .Caption = "My Custom Button"
               .Style = msoButtonCaption
   
             ' The following items are optional, but recommended. 
             ' The Tag property lets you quickly find the control 
             ' and helps MSO keep track of it when there is more than
             ' one application window visible. The property is required
             ' by some Office applications and should be provided.
   
               .Tag = "My Custom Button"
    
             ' The OnAction property is optional but recommended. 
             ' It should be set to the ProgID of the add-in, such that if
             ' the add-in is not loaded when a user presses the button,
             ' MSO loads the add-in automatically and then raises
             ' the Click event for the add-in to handle. 
   
               .OnAction = "!<" & AddInInst.ProgId & ">"
   
               .Visible = True
            End With
      
      End Sub
   
      Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As _
         AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
         On Error Resume Next
         MsgBox "My Addin was disconnected by " & _
            IIf(RemoveMode = ext_dm_HostShutdown, _
            "Excel shutdown.", "end user.")
         
         MyButton.Delete
         Set MyButton = Nothing
         Set oXL = Nothing
       End Sub
   
      Private Sub MyButton_Click(ByVal Ctrl As Office.CommandBarButton, _
        CancelDefault As Boolean)
         MsgBox "Our CommandBar button was pressed!"
      End Sub

8. Ulo�i� projekt a vytvori� MyAddin.dll. N�vrh�r zaregistruje doplnok pre v�s.
9. Otvori� program Microsoft Excel a vy v�imnete okno s hl�sen�m, ke� doplnok je nalo�en� a vylo�en�. Na paneli s n�strojmi �tandardn� bude ma� nov� tla�idlo ozna�en� Moje vlastn� tla�idlo �e n� doplnok bude spracov�va� pri v�bere.

Budovanie COM doplnok pomocou implementuje

1. Otvorte program Visual Basic a vytvori� nov� projekt ActiveX DLL. N�zov projektu MyCOMAddin, a n�zov verejn� triedy Pripojte.
2. Z Odkazy dial�gov� okno (projekt | Odkazy), prida� odkaz na Objektov� kni�nica programu Microsoft Office 9.0 (alebo 10.0 bal�ka Office XP) a typ kni�nice Microsoft Add-In Designer. Ak nem��ete n�js� n�vrh�ra doplnok v zozname odkazov, by Preh�ad�va� pre Msaddndr.dll alebo Msaddndr.tlb, oby�ajne nach�dza v prie�inku "C:\Program Files\Common Files\Designer".
3. V K�d okno pre pripojenie, dopln� sa nasleduj�ce:

      Option Explicit
      Implements IDTExtensibility2
   
      Dim oHostApp As Object
      Dim WithEvents MyButton As Office.CommandBarButton
   
     Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object, _
        ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
   
        ByVal AddInInst As Object, custom() As Variant)
     
         On Error Resume Next
       ' Set a reference to the host application...
         Set oHostApp = Application
      
       ' If you aren't in startup, then manually call OnStartupComplete...
         If (ConnectMode <> ext_cm_Startup) Then _
            Call IDTExtensibility2_OnStartupComplete(custom)
         
      End Sub
   
      Private Sub IDTExtensibility2_OnStartupComplete(custom() As Variant)
         Dim oCommandBars As Office.CommandBars
         Dim oStandardBar As Office.CommandBar
      
         On Error Resume Next
       ' Set up a custom button on the "Standard" commandbar...
         Set oCommandBars = oHostApp.CommandBars
         If oCommandBars Is Nothing Then
          ' Outlook has the CommandBars collection on the Explorer object
            Set oCommandBars = oHostApp.ActiveExplorer.CommandBars
         End If
      
         Set oStandardBar = oCommandBars.Item("Standard")
         If oStandardBar Is Nothing Then
          ' Access names it's main toolbar Database
   
            Set oStandardBar = oCommandBars.Item("Database")
         End If
      
       ' In case the button was not deleted, use the exiting one...
         Set MyButton = oStandardBar.Controls.Item("My Custom Button")
            If MyButton Is Nothing Then
   
               Set MyButton = oStandardBar.Controls.Add(1)
               With MyButton
                  .Caption = "My Custom Button"
                  .Style = msoButtonCaption
    
             ' The following items are optional, but recommended. 
             ' The Tag property lets you quickly find the control 
             ' and helps MSO keep track of it when there is more than
             ' one application window visible. The property is required
             ' by some Office applications and should be provided.
   
               .Tag = "My Custom Button"
    
             ' The OnAction property is optional but recommended. 
             ' It should be set to the ProgID of the add-in, such that if
             ' the add-in is not loaded when a user presses the button,
             ' MSO loads the add-in automatically and then raises
             ' the Click event for the add-in to handle. 
   
                  .OnAction = "!<MyCOMAddin.Connect>"
   
                  .Visible = True
               End With
            End If
    
       ' Display a simple message to know which application you started in...
         MsgBox "Started in " & oHostApp.Name & "."
   
         Set oStandardBar = Nothing
         Set oCommandBars = Nothing
      End Sub
   
      Private Sub IDTExtensibility2_OnDisconnection(ByVal RemoveMode As _
        AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
   
         On Error Resume Next
         If RemoveMode <> ext_dm_HostShutdown Then _
            Call IDTExtensibility2_OnBeginShutdown(custom)
         
         Set oHostApp = Nothing
   
      End Sub
   
      Private Sub IDTExtensibility2_OnBeginShutdown(custom() As Variant)
         On Error Resume Next
       ' Notify the user you are shutting down, and delete the button...
         MsgBox "Our custom Add-In is unloading."
         MyButton.Delete
         Set MyButton = Nothing
      End Sub
   
      Private Sub MyButton_Click(ByVal Ctrl As Office.CommandBarButton,    CancelDefault As Boolean)
         MsgBox "Our CommandBar button was pressed!"
      End Sub
   
      Private Sub IDTExtensibility2_OnAddInsUpdate(custom() As Variant)
         'You do nothing if this is called, but you need to
         'add a comment so Visual Basic properly implements the function...
      End Sub

4. Ulo�i� projekt a vytvori� MyCOMAddin.dll. V�ak pred doplnok bude fungova� mus�te priradi� ka�d� aplik�cia bal�ka Office, ktor� chcete ho spusti�. V re�lnom svete, pom�ckou na nastavenie m��ete to urobi� po nain�talovan� DLL. Pre t�to vzorku bud� vola� funkciu registr�cie priamo z Visual Basic IDE.
5. Prida� nov� modul do projektu. V k�dexe pre Module1 prida� nasleduj�ce:

      Option Explicit
   
      Private Declare Function RegCreateKeyEx Lib "advapi32.dll" _
      Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
      ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As _
      Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, _
      phkResult As Long, lpdwDisposition As Long) As Long
      
      Private Declare Function RegSetValueEx Lib "advapi32.dll" _
      Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As _
      String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, _
      ByVal cbData As Long) As Long
      
      Private Declare Function RegDeleteKey Lib "advapi32.dll" _
      Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) _
      As Long
      
      Private Declare Function RegCloseKey Lib "advapi32.dll" _
      (ByVal hKey As Long) As Long
   
      Private Const HKEY_CURRENT_USER = &H80000001
      Private Const KEY_ALL_ACCESS = &H1F0037
      Private Const REG_CREATED_NEW_KEY = &H1
      Private Const REG_SZ = 1
      Private Const REG_DWORD = 4
   
      'These are the settings for your Add-in...
      Private Const PROGID As String = "MyCOMAddin.Connect"
      Private Const DESCRIPTION As String = "My VB5/6 COM Add-In Sample"
      Private Const LOADBEHAVIOR As Long = 3
      Private Const SAFEFORCOMMANDLINE As Long = 0
   
   
      Public Sub RegisterAll()
         RegisterOfficeAddin "Access"
         RegisterOfficeAddin "Excel"
         RegisterOfficeAddin "FrontPage"
         RegisterOfficeAddin "Outlook"
         RegisterOfficeAddin "PowerPoint"
         RegisterOfficeAddin "Word"
      End Sub
   
      Public Sub UnregisterAll()
         UnRegisterOfficeAddin "Access"
         UnRegisterOfficeAddin "Excel"
         UnRegisterOfficeAddin "FrontPage"
         UnRegisterOfficeAddin "Outlook"
         UnRegisterOfficeAddin "PowerPoint"
         UnRegisterOfficeAddin "Word"
      End Sub
   
      Public Sub RegisterOfficeAddin(sTargetApp As String)
         Dim sRegKey As String
         Dim nRet As Long, dwTmp As Long
         Dim hKey As Long
      
         sRegKey = "Software\Microsoft\Office\" & sTargetApp _
            & "\Addins\" & PROGID
      
         nRet = RegCreateKeyEx(HKEY_CURRENT_USER, sRegKey, 0, _
            vbNullString, 0, KEY_ALL_ACCESS, 0, hKey, dwTmp)
         
         If nRet = 0 Then
            If dwTmp = REG_CREATED_NEW_KEY Then
               Call RegSetValueEx(hKey, "FriendlyName", 0, _
                  REG_SZ, ByVal PROGID, Len(PROGID))
               Call RegSetValueEx(hKey, "Description", 0, _
                  REG_SZ, ByVal DESCRIPTION, Len(DESCRIPTION))
               Call RegSetValueEx(hKey, "LoadBehavior", 0, _
                  REG_DWORD, LOADBEHAVIOR, 4)
               Call RegSetValueEx(hKey, "CommandLineSafe", 0, _
                  REG_DWORD, SAFEFORCOMMANDLINE, 4)
            End If
            Call RegCloseKey(hKey)
         End If
      
      End Sub
   
      Public Sub UnRegisterOfficeAddin(sTargetApp As String)
         Dim sRegKey As String
         sRegKey = "Software\Microsoft\Office\" & sTargetApp _
            & "\Addins\" & PROGID
      
          Call RegDeleteKey(HKEY_CURRENT_USER, sRegKey)
      
      End Sub

6. Z Okam�it� okno (zobrazenie | Okam�it� okna), typu RegisterAlla stla�te kl�ves ENTER. To bude zaregistruje doplnok v�etky Office aplik�cie podporovan� (Access, Excel, FrontPage, Outlook, PowerPoint a Word).
7. Otvoren� ktorejko�vek aplik�cie Office vymenovan�ch pred. Ozn�menie v okne s hl�sen�m na sp���anie a vyp�nanie a vlastn� tla�idlo Prida� na panel s n�strojmi �tandardn�.
8. Ak chcete zru�i� registr�ciu doplnok, zadajte UnregisterAll v jazyku Visual Basic okam�itom okne a potom stla�te kl�ves ENTER.

Sp� na za�iatok | Odo�lite odozvu