Bagaimana membangun Office 2000 COM menambahkan-di dalam Visual Basic

OnConnection

• Aplikasi - referensi ke objek aplikasi host.
• ConnectMode - sebuah konstanta yang menentukan bagaimana tambahan terhubung.
  • ext_cm_AfterStartup - dimulai oleh pengguna akhir dari kotak dialog add-in COM.
  • ext_cm_CommandLine - terhubung dari baris perintah. (Tidak berlaku untuk membangun peralatan tambahan COM untuk aplikasi kantor.)
  • ext_cm_External - terhubung oleh aplikasi eksternal melalui otomatisasi. (Tidak berlaku untuk membangun peralatan tambahan COM untuk aplikasi kantor.)
  • ext_cm_Startup - dimulai oleh tuan rumah pada aplikasi startup. (Perilaku ini dikendalikan oleh pengaturan registri.)
• AddInInst - referensi objek COMAddIn yang merujuk kepada add-in ini dalam koleksi COMAddIns untuk aplikasi host.
• Custom - sebuah array dari varian yang dapat menyimpan data yang ditetapkan pengguna.

OnDisconnection

• RemoveMode - sebuah konstanta yang menentukan bagaimana tambahan diputus.
  • ext_dm_HostShutdown - terputus ketika tuan rumah aplikasi ditutup.
  • ext_dm_UserClosed - terputus oleh pengguna akhir atau kontroler otomatisasi.
• Custom - sebuah array dari varian yang dapat menyimpan data yang ditetapkan pengguna.

OnAddInsUpdate

OnStartupComplete dan OnBeginShutdown

Mendaftar COM add-in

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

• 0 = Putuskan - tidak dimuat.
• 1 = Connected - load.
• 2 = Bootload - beban pada aplikasi Startup.
• 8 = DemandLoad - beban hanya ketika diminta oleh pengguna.
• 16 = ConnectFirstTime - beban hanya sekali (pada startup berikutnya).

Bangunan COM add-in

Bangunan COM add-in dengan menggunakan Com add-in Template

Bangunan COM add-in dengan menggunakan Visual Basic 6 tambahan desainer

1. Mulai Microsoft Visual Basic 6.0 dan pilih Addin sebagai jenis proyek. Ini harus menambahkan class desainer untuk proyek (Connect) dan bentuk (frmAddin).
2. Terbuka Perancang jendela untuk Connect dan pilih Microsoft Excel dari Aplikasi daftar drop-down.
3. Dalam Awal beban perilaku daftar drop-down, pilih Permulaan.
4. Hapus frmAddin dari proyek.
5. Dari Project jendela, klik kanan Menghubungkan item dan pilih Lihat kode.
6. Menghapus semua kode di jendela kode desainer. Kode ini bekerja untuk BB tambahan tetapi tidak kantor tambahan.
7. Tambahkan kode berikut untuk desainer:

      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. Menyimpan proyek dan membuat MyAddin.dll. Perancang akan mendaftar tambahan untuk Anda.
9. Buka Microsoft Excel dan Anda akan melihat kotak pesan ketika tambahan dimuat dan diturunkan. Di toolbar standar, Anda akan memiliki tombol baru berlabel Tombol kustom bahwa kita menambahkan-akan menangani ketika dipilih.

Bangunan COM add-in dengan menggunakan alat-alat

1. Membuka Visual Basic dan membuat sebuah proyek ActiveX DLL baru. Nama proyek MyCOMAddin, dan nama kelas publik Menghubungkan.
2. Dari Referensi kotak dialog (proyek | Referensi), menambahkan referensi ke perpustakaan objek Microsoft Office 9,0 (atau 10,0 untuk Office XP) dan perpustakaan jenis Microsoft Add-In desainer. Jika Anda tidak dapat menemukan Add-In desainer dalam daftar referensi, Anda harus mencari Msaddndr.dll atau Msaddndr.tlb, biasanya terletak di "C: program Files\Designer" folder.
3. Dalam Kode jendela untuk Connect, tambahkan berikut:

      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. Menyimpan proyek dan membuat MyCOMAddin.dll. Namun, sebelum Anda add-in akan bekerja Anda perlu untuk menghubungkannya dengan masing-masing aplikasi Office yang Anda ingin menjalankannya. Di dunia nyata, utilitas konfigurasi dapat melakukannya ketika DLL diinstal. Untuk sampel ini, Anda akan memanggil fungsi pendaftaran langsung dari IDE Visual Basic.
5. Menambahkan modul baru untuk proyek. Dalam kode untuk Module1, tambahkan berikut:

      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. Dari Segera jendela (lihat | Segera jendela), jenis RegisterAll, kemudian tekan ENTER. Ini akan mendaftar tambahan dengan semua aplikasi Office didukung (Access, Excel, FrontPage, Outlook, PowerPoint, dan Word).
7. Terbuka salah satu aplikasi Office terdaftar sebelumnya. Melihat kotak pesan pada startup and shutdown, dan tombol kustom ditambahkan ke toolbar standar.
8. Bila Anda ingin membatalkan registrasi tambahan, ketik UnregisterAll di jendela segera Visual Basic dan kemudian tekan ENTER.

Kembali ke atas | Berikan Masukan