clocatorrelative.cls

来自「Data monkey是一个强大的是数据传输和转换应用程序。使用DataMonk」· CLS 代码 · 共 36 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CLocatorRelative"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private mRelativeTo As String

Public Function GetRelationString() As String
    Relation = mRelativeTo
End Function
Public Sub SetRelation(RelativeTo As Object)

    '*************************************************************************
    ' Tell whatever object we are relative to to notify us when it is 'Found'.
    '*************************************************************************
    
    RelativeTo.RegisterForNotification Me
    mRelativeTo = RelativeTo.Name
    
End Sub
Public Sub Notify(Notifier As Object)
    
    '*************************************
    ' One of our relatives has been found.
    '*************************************
    
    ' Store line, and position information for the found relative.
    
    ' If all relatives have been found, use position information to locate me.
    
End Sub