У нас есть старый компонент OCX, написанный на VB6, который должен работать на сервере Windows 2016, который дает некоторые странные поведения.Компонент работает в среде Windows 2008 R2 и Windows 2003.
Мы заметили одну вещь.
Dim fso As New FileSystemObject
Вызывает исключение, когда мы изменяем код на
Dim fso As FileSystemObject
Set fso = New FileSystemObject
исключение исчезает.
форма, которую мы запускаем, запускается из пользовательского элемента управлениясо следующим кодом
Public Function Initialize(Optional ByVal pstrMapIni As String, Optional ByVal lGuiAllowed As Boolean = True)
GUIALLOWED = lGuiAllowed
If right(pstrMapIni, 1) <> "\" Then
pstrMapIni = pstrMapIni + "\"
End If
pstrMapIni = pstrMapIni + "map.ini"
frmMain.SetMapIni (pstrMapIni)
Load frmMain
End Function
Загрузка frmMain завершается с ошибкой нулевого ref
, если кто-то имеет представление о том, в каком направлении мы должны искать ... мы вне их.