27 lines
580 B
QBasic
27 lines
580 B
QBasic
|
Attribute VB_Name = "LMUFunctions"
|
|||
|
|
'===== <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> =====
|
|||
|
|
Option Explicit
|
|||
|
|
Option Private Module
|
|||
|
|
|
|||
|
|
Public Type LMU_LinksInfo
|
|||
|
|
lnkCount_ As Long
|
|||
|
|
errCount_ As Long
|
|||
|
|
modCount_ As Long
|
|||
|
|
End Type
|
|||
|
|
|
|||
|
|
Public Enum LMU_Return
|
|||
|
|
RV_LINK_OK
|
|||
|
|
RV_LINK_FIXED
|
|||
|
|
RV_LINK_NOFIX
|
|||
|
|
RV_NOTAFSO
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
Public Function GetLMU() As LinkMappingUnit
|
|||
|
|
Static result As LinkMappingUnit ' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
If result Is Nothing Then
|
|||
|
|
' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
Set result = New LinkMappingUnit
|
|||
|
|
End If
|
|||
|
|
Set GetLMU = result
|
|||
|
|
End Function
|