.NET 8 подвергается воздействию VB6 с использованием COM

Проблема

У нас есть большое приложение с большим количеством кода графического интерфейса на VB6 и логикой, в основном, в библиотеках .NET Framework 4.7.2. Теперь мы хотим перейти на .NET 8 и испытываем трудности с доступом к библиотекам VB6 с помощью COM:

1. Set oObject = Новый COMObject не работает (класс пуст в браузере объектов VB6)
2. События не раскрываются

Обе проблемы, похоже, связаны с предоставлением классов с атрибутом [ClassInterface(ClassInterfaceType.AutoDual)].

Мы используем dscom32 (tlbexport/tlbregister) и знаем CA1408.

Как нам преодолеть наши проблемы (1 и 2), не переписывая много кода VB6 небезопасным с точки зрения типов способом и не создавая дополнительный уровень .NET Framework 4.7.2?

Файл проекта .NET 8

<Project Sdk = "Microsoft.NET.Sdk">

    <PropertyGroup>
        <TargetFramework>net8.0</TargetFramework>
        <EnableComHosting>True</EnableComHosting>
        <PlatformTarget>x86</PlatformTarget>
    </PropertyGroup>

    <Target Name = "ServerUsage" AfterTargets = "Build">
        <Message Importance = "High" Text = "Register:%0a    regsvr32.exe &quot;$(ProjectDir)$(OutputPath)$(ComHostFileName)&quot;" />
        <Message Importance = "High" Text = "Unregister:%0a    regsvr32.exe /u &quot;$(ProjectDir)$(OutputPath)$(ComHostFileName)&quot;" />
    </Target>

</Project>

Код .NET 8

using System.Runtime.InteropServices;

namespace TestCOM
{
    [ComVisible(true)]
    [Guid("A5447236-9520-4596-B4C6-D40175EBDA10")]
    [InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
    public interface ITestCOM
    {
        string GetString();
    }

    [ComVisible(true)]
    [Guid("3FCD4A46-F73D-495F-9DE3-85D50924ED06")]
    //[ClassInterface(ClassInterfaceType.AutoDual)]
    public class TestCOM : ITestCOM
    {
        string ITestCOM.GetString() => "Test";
    }
}

Код VB6

Sub Main()

    ' This is not working:
    ' Dim oTest As TestCOM
    ' Set oTest = New TestCOM
    '
    ' Requires ClassInterfaceType.AutoDual
    '
    ' dscom32 tlbexport "%cd%\Test.dll"
    ' -> Failed to export type library. Dual class interfaces not supported!
    
    ' This is working:
    Dim oTest As ITestCOM
    Set oTest = CreateObject("TestCOM.TestCOM")
    Debug.Print oTest.GetString()

End Sub

Новый кодекс по мотивам Севы Алексеева

Обе проблемы теперь решены для меня.

Код .NET 8

using System;
using System.Runtime.InteropServices;

namespace TestCOM
{
    internal delegate void OnGetStringCOM(EventArgsCOM args);

    [ComVisible(true)]
    [Guid("E6BCA6A0-70F3-4218-B344-3632F638D51A")]
    [InterfaceType(ComInterfaceType.InterfaceIsDual)]
    public interface IEventArgsCOM
    {
        string Message { get; set; }
    }

    [ComVisible(true)]
    [Guid("77414A17-1CA5-4E45-940E-F26C8F50BE3E")]
    [ClassInterface(ClassInterfaceType.None)]
    public class EventArgsCOM(string message) : EventArgs, IEventArgsCOM
    {
        public string Message { get; set; } = message;
    }

    [ComVisible(true)]
    [Guid("891E4AFB-8CD3-4611-80F6-F3AC755EF3B4")]
    [InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
    public interface ITestCOMEvents
    {
        [DispId(1)]
        void OnGetStringCOM(EventArgsCOM args);
    }

    [ComVisible(true)]
    [Guid("A5447236-9520-4596-B4C6-D40175EBDA10")]
    [InterfaceType(ComInterfaceType.InterfaceIsDual)]
    public interface ITestCOM
    {
        string GetString();
    }

    [ComVisible(true)]
    [Guid("3FCD4A46-F73D-495F-9DE3-85D50924ED06")]
    [ClassInterface(ClassInterfaceType.None)]
    [ComSourceInterfaces(typeof(ITestCOMEvents))]
    public class TestCOM : ITestCOM
    {
        private event OnGetStringCOM OnGetStringCOM;

        public string GetString()
        {
            OnGetStringCOM?.Invoke(new EventArgsCOM("test raised"));
            return "test returned";
        }
    }
}

Код VB6

Private WithEvents moTest As Test.TestCOM

Private Sub Class_Initialize()

    Set moTest = New TestCOM
    
End Sub

Public Function PrintString()

    Debug.Print moTest.GetString()
    ' test returned

End Function

Private Sub moTest_OnGetStringCOM(ByVal args As Test.IEventArgsCOM)

    Debug.Print args.Message
    ' test raised
    
End Sub