VB6中禁用.NET ActiveX控件自动失活的最佳实践问询

当前方案的合理性判断 #

你通过ICustomQueryInterface完全抑制IOleInPlaceObject接口的做法不合理。IOleInPlaceObject是OLE就地激活模型的核心接口，负责控件与容器之间的激活、焦点管理等交互逻辑。直接拒绝返回该接口会破坏OLE控件的标准行为契约，Tab键焦点失效就是典型的副作用——容器无法通过标准OLE接口向控件传递焦点切换指令。

更优解决方案 #

方案1：修改IOleObject::GetMiscStatus返回值（推荐） #

通过调整GetMiscStatus的返回标志，可以让控件在VB6容器中保持正确的激活状态，同时保留标准焦点交互能力。关键是设置以下OLEMISC枚举值：

• OLEMISC_ACTIVATEWHENVISIBLE：控件可见时自动激活
• OLEMISC_SETCLIENTSITEFIRST：确保先设置客户端站点再执行其他操作
• OLEMISC_SIMPLEFRAME：标记控件为简单框架，适配VB6容器的布局逻辑
• 避免设置OLEMISC_INSIDEOUT：该标志会导致控件的激活逻辑与VB6容器冲突

具体C#实现示例：

using System.Runtime.InteropServices;

[ComVisible(true)]
public class UserControl1 : UserControl, IOleObject, ICustomQueryInterface
{
    // 拦截IOleObject查询，返回自定义实现
    public CustomQueryInterfaceResult GetInterface(ref Guid iid, out IntPtr ppv)
    {
        if (iid == typeof(IOleObject).GUID)
        {
            var defaultOleObj = Marshal.GetComInterfaceForObject(this, typeof(IOleObject), CustomQueryInterfaceMode.Ignore);
            var wrappedObj = new CustomOleObjectWrapper(defaultOleObj);
            ppv = Marshal.GetComInterfaceForObject(wrappedObj, typeof(IOleObject));
            return CustomQueryInterfaceResult.Handled;
        }
        ppv = IntPtr.Zero;
        return CustomQueryInterfaceResult.NotHandled;
    }

    // 自定义IOleObject包装类，重写GetMiscStatus
    private class CustomOleObjectWrapper : IOleObject
    {
        private readonly IOleObject _innerOleObj;

        public CustomOleObjectWrapper(IntPtr innerPtr)
        {
            _innerOleObj = Marshal.GetObjectForIUnknown(innerPtr) as IOleObject;
        }

        // 重写GetMiscStatus，返回修正后的标志
        public int GetMiscStatus(uint dwAspect)
        {
            return (int)(OLEMISC.OLEMISC_ACTIVATEWHENVISIBLE 
                        | OLEMISC.OLEMISC_SETCLIENTSITEFIRST 
                        | OLEMISC.OLEMISC_SIMPLEFRAME);
        }

        // 其他IOleObject方法直接委托给默认实现
        public int SetClientSite(IOleClientSite pClientSite) => _innerOleObj.SetClientSite(pClientSite);
        public int GetClientSite(out IOleClientSite ppClientSite) => _innerOleObj.GetClientSite(out ppClientSite);
        public int SetHostNames(string szContainerApp, string szContainerObj) => _innerOleObj.SetHostNames(szContainerApp, szContainerObj);
        public int Close(uint dwSaveOption) => _innerOleObj.Close(dwSaveOption);
        public int SetMoniker(uint dwWhichMoniker, IMoniker pmk) => _innerOleObj.SetMoniker(dwWhichMoniker, pmk);
        public int GetMoniker(uint dwAssign, uint dwWhichMoniker, out IMoniker ppmk) => _innerOleObj.GetMoniker(dwAssign, dwWhichMoniker, out ppmk);
        public int InitFromData(IDataObject pDataObject, bool fCreation, uint dwReserved) => _innerOleObj.InitFromData(pDataObject, fCreation, dwReserved);
        public int GetClipboardData(uint dwReserved, out IDataObject ppDataObject) => _innerOleObj.GetClipboardData(dwReserved, out ppDataObject);
        public int DoVerb(int iVerb, IntPtr lpmsg, IOleClientSite pActiveSite, int lindex, IntPtr hwndParent, RECT[] lprcPosRect) => _innerOleObj.DoVerb(iVerb, lpmsg, pActiveSite, lindex, hwndParent, lprcPosRect);
        public int EnumVerbs(out IEnumOLEVERB ppEnumOleVerb) => _innerOleObj.EnumVerbs(out ppEnumOleVerb);
        public int Update() => _innerOleObj.Update();
        public int IsUpToDate() => _innerOleObj.IsUpToDate();
        public int GetUserClassID(out Guid pClsid) => _innerOleObj.GetUserClassID(out pClsid);
        public int GetUserType(uint dwFormOfType, out string pszUserType) => _innerOleObj.GetUserType(dwFormOfType, out pszUserType);
        public int SetExtent(uint dwDrawAspect, SIZEL[] psizel) => _innerOleObj.SetExtent(dwDrawAspect, psizel);
        public int GetExtent(uint dwDrawAspect, out SIZEL psizel) => _innerOleObj.GetExtent(dwDrawAspect, out psizel);
        public int Advise(IAdviseSink pAdvSink, out uint pdwConnection) => _innerOleObj.Advise(pAdvSink, out pdwConnection);
        public int Unadvise(uint dwConnection) => _innerOleObj.Unadvise(dwConnection);
        public int EnumAdvise(out IEnumSTATDATA ppEnumAdvise) => _innerOleObj.EnumAdvise(out ppEnumAdvise);
        public int SetColorScheme(LOGPALETTE[] pLogpal) => _innerOleObj.SetColorScheme(pLogpal);
    }

    // 定义OLEMISC枚举
    private enum OLEMISC : uint
    {
        OLEMISC_ACTIVATEWHENVISIBLE = 0x00000001,
        OLEMISC_SETCLIENTSITEFIRST = 0x00000002,
        OLEMISC_SIMPLEFRAME = 0x00000100
    }

    // 导入必要的OLE接口定义
    [ComImport, Guid("00000112-0000-0000-C000-000000000046"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
    private interface IOleObject
    {
        [PreserveSig] int SetClientSite(IOleClientSite pClientSite);
        [PreserveSig] int GetClientSite(out IOleClientSite ppClientSite);
        [PreserveSig] int SetHostNames(string szContainerApp, string szContainerObj);
        [PreserveSig] int Close(uint dwSaveOption);
        [PreserveSig] int SetMoniker(uint dwWhichMoniker, IMoniker pmk);
        [PreserveSig] int GetMoniker(uint dwAssign, uint dwWhichMoniker, out IMoniker ppmk);
        [PreserveSig] int InitFromData(IDataObject pDataObject, bool fCreation, uint dwReserved);
        [PreserveSig] int GetClipboardData(uint dwReserved, out IDataObject ppDataObject);
        [PreserveSig] int DoVerb(int iVerb, IntPtr lpmsg, IOleClientSite pActiveSite, int lindex, IntPtr hwndParent, RECT[] lprcPosRect);
        [PreserveSig] int EnumVerbs(out IEnumOLEVERB ppEnumOleVerb);
        [PreserveSig] int Update();
        [PreserveSig] int IsUpToDate();
        [PreserveSig] int GetUserClassID(out Guid pClsid);
        [PreserveSig] int GetUserType(uint dwFormOfType, out string pszUserType);
        [PreserveSig] int SetExtent(uint dwDrawAspect, SIZEL[] psizel);
        [PreserveSig] int GetExtent(uint dwDrawAspect, out SIZEL psizel);
        [PreserveSig] int Advise(IAdviseSink pAdvSink, out uint pdwConnection);
        [PreserveSig] int Unadvise(uint dwConnection);
        [PreserveSig] int EnumAdvise(out IEnumSTATDATA ppEnumAdvise);
        [PreserveSig] int GetMiscStatus(uint dwAspect);
        [PreserveSig] int SetColorScheme(LOGPALETTE[] pLogpal);
    }

    // 其他必要的OLE接口定义（省略部分冗余定义，可根据实际需求补充）
    [ComImport, Guid("00000118-0000-0000-C000-000000000046"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
    private interface IOleClientSite { }
    [ComImport, Guid("0000000d-0000-0000-C000-000000000046"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
    private interface IMoniker { }
    [ComImport, Guid("0000010e-0000-0000-C000-000000000046"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
    private interface IDataObject { }
    [ComImport, Guid("0000010b-0000-0000-C000-000000000046"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
    private interface IEnumOLEVERB { }
    [ComImport, Guid("0000010f-0000-0000-C000-000000000046"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
    private interface IAdviseSink { }
    [ComImport, Guid("00000139-0000-0000-C000-000000000046"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
    private interface IEnumSTATDATA { }

    [StructLayout(LayoutKind.Sequential)]
    private struct RECT { public int left, top, right, bottom; }
    [StructLayout(LayoutKind.Sequential)]
    private struct SIZEL { public int cx, cy; }
    [StructLayout(LayoutKind.Sequential)]
    private struct LOGPALETTE { public ushort palVersion, palNumEntries; }
}

方案2：修正IOleInPlaceObject::UIDeactivate行为 #

如果不想修改GetMiscStatus，可以实现IOleInPlaceObject接口并重写UIDeactivate方法，避免控件在失去焦点时被强制失活：

[ComVisible(true)]
public class UserControl1 : UserControl, IOleInPlaceObject
{
    // 重写UIDeactivate，不执行默认的失活逻辑
    int IOleInPlaceObject.UIDeactivate()
    {
        return 0; // 返回S_OK，不触发控件失活
    }

    // 其他IOleInPlaceObject方法委托给默认实现（可通过Marshal获取默认接口）
    int IOleInPlaceObject.InPlaceDeactivate() => Marshal.GetComInterfaceForObject(this, typeof(IOleInPlaceObject)).Invoke(1, ...);
    // 省略其他方法的实现，可根据实际需求补充
}

方案3：VB6端临时 workaround（不推荐，仅作应急） #

如果控件端修改暂时无法完成，可以在VB6容器的焦点事件中手动设置ActiveX控件的焦点：

Private Sub Picture1_GotFocus()
    mCtrl.SetFocus
End Sub

内容的提问来源于stack exchange，提问作者Michael