27 lines
580 B
QBasic
27 lines
580 B
QBasic
Attribute VB_Name = "LMUFunctions"
|
|
'===== Ìîäóëü âíåøíèõ ôóíêöèé äëÿ êëàññà ïðîâåðêè ññûëîê =====
|
|
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 ' Ñòàòè÷åñêàÿ ïåðåìåííàÿ
|
|
If result Is Nothing Then
|
|
' Îòêðûâàåì êîííåêò ïðè ïåðâîì îáðàùåíèè
|
|
Set result = New LinkMappingUnit
|
|
End If
|
|
Set GetLMU = result
|
|
End Function
|