Странный случай отсутствия метода: SXS и Controls.Add results in object не поддерживает это свойство или метод?

Краткий ответ: это известная проблема с VB6. Оператор «Controls.Add» не работает с параллельным расположением. Попробуйте вместо этого использовать оператор «Load».

Длинный ответ: VB6 компилирует CLSID элемента управления в исполняемый файл, даже если вы используете ProgID для создания элемента управления. Выполнение «Control.Add» проверяет, что CLSID совпадает. Не спрашивайте, почему, это тайна, которую лучше не трогать. В то же время бок о бок win32 (в отличие от .Net бок о бок - другая тема) должен быть подготовлен к обработке одного и того же идентификатора ProgID, используемого более чем одним манифестом (когда вы переключаетесь между контекстами активации , например), поэтому он внутренне генерирует новый временный CLSID для каждого ProgID. В конце концов, когда вы вызовете CLSIDFromProgID, вы получите временный CLSID. Если вы затем вызовете CoCreateInstance, он будет работать нормально - sxs соблюдает CLSID. Но если вы пойдете искать CLSID где угодно (реестр, ваша внутренняя таблица), вы его не найдете. И вот программа VB6 вызывает CLSIDFromProgID, а затем проверяет, находится ли полученный CLSID во внутренней таблице. Потерпеть поражение.

Это случай магии VB, несовместимой с манифестами. Проблема связана с поведением VB со ссылками на пользовательские элементы управления. Даже если вы сильно затемните переменную As UserControl, доступ к методам / свойствам по этой ссылке будет привязан поздно! VB создает класс расширения для каждого пользовательского элемента управления, на который имеется ссылка, чтобы предоставить общие методы (например, SetFocus, Move и т. Д.), Поэтому, когда вы Dim что-то As UserControl, это компилируется не как ссылка на UserControl в библиотеке типов элементов управления, а на VBControlExtender унаследованный класс, в любом случае автоматически сгенерированная оболочка на UserControl.

Что я делаю с тех пор, как открыл для себя главу о пользовательских элементах управления в книге Advanced Visual Basic 6 Curland, является создание пользовательский Direct User Controls typelib, который заставляет VB не использовать оболочки. В основном это выглядит так:

[
  uuid(GUIDHERE-0000-1111-2222-2B5E1A72D6BF),
  version(1.0),
  helpstring("Direct User Controls Typelib 1.0")
]
library <<mytypelib>>
{
    importlib("stdole2.tlb");
    importlib("C:\\WINDOWS\\system32\\COMCTL32.ocx");
    importlib("C:\\WINDOWS\\system32\\COMCT232.ocx");
    importlib("C:\\WINDOWS\\system32\\shdocvw.dll");
    ...

    typedef [public] ComctlLib.ImageList                DirectImageList;
    typedef [public] ComctlLib.ListView                 DirectListView;
    typedef [public] ComctlLib.ProgressBar              DirectProgressBar;
    typedef [public] ComctlLib.Slider                   DirectSlider;
    typedef [public] ComctlLib.StatusBar                DirectStatusBar;
    typedef [public] ComctlLib.TabStrip                 DirectTabStrip;
    typedef [public] ComctlLib.Toolbar                  DirectToolbar;
    typedef [public] ComctlLib.TreeView                 DirectTreeView;

    typedef [public] ComCtl2.Animation                  DirectAnimation;
    typedef [public] ComCtl2.UpDown                     DirectUpDown;

    typedef [public] SHDocVw.WebBrowser                 DirectWebBrowser;
    ...
}

В моих проектах сохраняю «прямые» ссылки, вызывая методы с ранней привязкой. Я использую Controls.Add вот так

Dim oCtl As DirectXxx
Set oCtl = pvCastVBControlExtender(Controls.Add(PROGID_Xxx, sName)).Object

где помощник по кастингу - это что-то вроде этого

Private Function pvCastVBControlExtender(oCtl As VBControlExtender) As VBControlExtender
    Set pvCastVBControlExtender = oCtl
End Function

Этот фрагмент работает должным образом в трех случаях: в VBIDE с зарегистрированными элементами управления и с элементами управления без регистрации.