c++ - 缺少方法: SXS and Controls.的奇怪案例在 "object doesn'中添加结果支持此属性或方法”？

Question

我有一个用 VB6 编写的项目，它使用了一个 UserControl，该项目在注册 OCX 时运行良好，但如果我使用并排 list 运行同一个项目，则会导致错误。

我可以毫无问题地使用控件，只要它是静态加载的(之前添加到窗体上)，但是如果我添加一个动态控件以在任何使用新控件(属性或方法)时使用窗体，我都会收到此错误:

Object doesn't support this property or method

这个错误可以这样重现:

1. 在 VB6 中创建一个 OCX 项目
2. 添加用户控件
3. 添加一个方法，例如DoSomething 控件
4. 创建一个exe项目
5. 将控件添加到表单，例如UserControl1
6. 在事件中调用 DoSomething

7. 动态加载喜欢:

   Dim y As Control
   UserControl1.DoSomething        '<-------- CASE(1) THIS IS ALLRIGHT!'
   Set y = Controls.Add("Project1.UserControl1", "y")
   y.DoSomething                   '<---- (CASE 2) THIS WILL FAIL USING SXS'
   

我将 WinDbg 中的错误追溯到 IDispatch::GetIDsOfNames，在第二种情况下调用时会失败。

有什么想法吗？!

编辑:不好意思，这是 list 。

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">

<assemblyIdentity name="client.exe" version="1.0.0.0" type="win32" processorArchitecture="x86"/>

<file name="Project1.ocx">
 <comClass
     clsid="{C8CF7991-A8F2-4360-9404-03C9A052C245}"
     description="Project1.UserControl1"
     tlbid="{47853CCC-7BE6-4377-9C82-38A0B7755F65}"
     threadingModel="apartment"
     miscStatusContent="recomposeonresize,cantlinkinside,insideout,activatewhenvisible,setclientsitefirst"
     progid="Project1.UserControl1"/>
 <typelib
     tlbid="{47853CCC-7BE6-4377-9C82-38A0B7755F65}"
     version="1.0"
     helpdir=""
     flags="control,hasdiskimage"/>
</file>

<comInterfaceExternalProxyStub 
     iid="{0E4F313E-7EF3-4FE6-9591-9F7D2D819AEE}"
     name="UserControl1"
     proxyStubClsid32="{00020424-0000-0000-C000-000000000046}"/>
<comInterfaceExternalProxyStub 
     iid="{53307849-4F14-4A59-B0CA-DE4950CE499D}"
     name="UserControl1"
     proxyStubClsid32="{00020420-0000-0000-C000-000000000046}"/>

</assembly>

Answer 1

简短的回答:这是 VB6 的一个已知问题。 “Controls.Add”语句不能并排使用。尝试改用“加载”语句。

长答案:即使您使用 ProgID 创建控件，VB6 也会将控件的 CLSID 编译到可执行文件中。执行“Control.Add”验证 CLSID 是否相同。不要问为什么，这是一个谜，最好不要去触及。同时，win32 并排(与 .Net 并排相反——另一个主题)必须准备好处理被多个 list 使用的相同 ProgID(当你在激活上下文之间切换时，例如)所以它在内部为每个 ProgID 生成一个新的临时 CLSID。最后，当您调用 CLSIDFromProgID 时，您将获得临时 CLSID。如果您随后调用 CoCreateInstance 它工作正常 - sxs 尊重 CLSID。但是如果你去任何地方(注册表，你的内部表)寻找 CLSID，你将找不到它。 VB6 程序调用 CLSIDFromProgID，然后检查它收到的 CLSID 是否在内表中。失败。