vbdebughelper.bas

来自「COM编程接口处理方法 多个方法调用COM库函数」· BAS 代码 · 共 28 行

Attribute VB_Name = "VBDebugHelper"
Option Explicit

Public Sub Main()
  On Error GoTo ReregError
  Dim pCCM As IComponentCategoryManager
  Set pCCM = New ComponentCategoryManager
  Dim pCCID As New UID
  Dim pCLSID As New UID

  ' Components for registration follow

  ' CoClass: SimplePoint.SimplePointWksFactoryHelper
  pCLSID.Value = "{1A8E7FA4-E7E5-11D5-8A7F-00104BB6FCCB}"
  pCCID.Value = "{6871A79C-CD65-46F5-A7BB-88F97D0E2CDC}"  ' ESRI PlugIn Workspace Factory Helpers
  pCCM.SetupObject "C:\arcgis\arcexe82\ArcObjects Developer Kit\Samples\Geodatabase\Plug-in Data Sources\SimplePoint\SimplePoint.dll", pCLSID, pCCID, True
  
  Shell "C:\arcgis\arcexe82\bin\ArcCatalog.exe"
  
  Exit Sub
ReregError:
  MsgBox "An error has occured during component re-registration"
  Err.Clear
End Sub