Как хост VB6 .net 2.0

Question

Мы хотим назвать некоторые .net-сборки из VB6. Я знаю, что мы можем зарегистрировать сборки .net для COM командой Regasm, а затем вызвать его из VB6. Но теперь мы хотим разместить CLR 2.0 в VB6.

Я знаю, что мы можем назвать класс CorRuntimeHost для размещения CLR. Но MSDN заявила, что она обманчива. После нескольких дней работы в Google я обнаружил, что многие люди используют CorBindToRuntimeEx для размещения CLR. но все эти образцы основаны на C/C++. Извините, я не нашел никаких тампелей, использующих VB6.

Так кто-нибудь знает, как использовать VB6 для размещения .net framework 2.0. За исключением класса CorRuntimeHost, есть ли другой способ размещения .NET-инфраструктуры в VB6?

Answer 1

Private Sub LoadLib() 
Dim unknown As IUnknown 
Dim domain As AppDomain 
Dim handle As ObjectHandle 
Dim path As String 

On Local Error GoTo OOPS 

path = GetDLLPath() 

Set m_host = New CorRuntimeHost 
With m_host 
    .Start 
    .GetDefaultDomain unknown 
End With 

Set domain = unknown 
Set handle = domain.CreateInstanceFrom(path, "STHRest.CXlService") 
Set m_lib = handle.Unwrap 

OOPS: 
If Err.Number <> 0 Then 
    m_err = Err.Description 
    Call RemoveCLR 
End If 

On Local Error GoTo 0 
Exit Sub 

End Sub

Answer 2

Хост CLR должен быть неуправляемым, родным, приложением. Невозможно разместить CLR непосредственно с использованием VB6.

Единственный способ сделать это - написать C++ DLL, которая предоставляет функции __declspec C и использовать эти функции из вашего приложения VB6. Someone did it for FoxPro, so there is some hope.

Даже если предположить, что он играет хорошо (я понятия не имею, будут ли слои COM в двух «кусках» (виртуальная машина VB6 и хост) будут играть хорошо вместе), вам все равно придется делать это на C++. Итак, послушайте комментарий Джона Сондерса. Не делайте этого, выбирайте другой путь.

Answer 3

Я нашел ответ наконец. Я разместил его здесь, так как, возможно, он используется для кого-то другого.

Вы можете refere mscorlib.tlb в Excel VBA, а затем:

Dim ap as ApplicationDomain, apm As mscorlib.AppDomainManager, result as object 
Set apm = New mscorlib.AppDomainManager 
Set m_domain = apm.CreateDomain("kissingerDomain", Nothing, Nothing) 
set object = m_domain.CreateInstanceFrom(DLL_Path, typeName).Unwrap 

Теперь вы можете вызвать метод объекта, ха-ха.

Answer 4

Private Sub LoadLib() 
Dim unknown As IUnknown 
Dim domain As AppDomain 
Dim handle As ObjectHandle 
Dim path As String 

    On Local Error GoTo OOPS 

    path = GetDLLPath() 

    Set m_host = New CorRuntimeHost 
    With m_host 
     .Start 
     .GetDefaultDomain unknown 
    End With 

    Set domain = unknown 
    Set handle = domain.CreateInstanceFrom(path, "STHRest.CXlService") 
    Set m_lib = handle.Unwrap 

OOPS: 
    If Err.Number <> 0 Then 
     m_err = Err.Description 
     Call RemoveCLR 
    End If 

    On Local Error GoTo 0 
    Exit Sub 
End Sub