erwinspy_addin_class.cls

这个源程序用来读写ERWIN设计的ER1文件中的元数据信息

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ERwinSpy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Public Function Run()
    On Error GoTo ErrExit
    
    ' Activate the API
    Dim oSCAPI As New SCAPI.Application
    
    ' Init the form
    frmMain.Init oSCAPI
    
    ' Show the form
    frmMain.Show 1
    
    Exit Function
' Error exit
ErrExit:
    MsgBox "Failed to create SCAPI instance"
End Function