C#实现vb6和html都可以调用的ActiveX,

新建控件库 项目，AssemblyInfo.cs 修改为

新建一个接口 名为 IObjectSafety
添加
using System.Runtime.InteropServices;

/// <summary>
/// 这个guid不要更改
/// </summary>
[Guid("CB5BDC81-93C1-11CF-8F20-00805F2CD064"), InterfaceType(ComInterfaceType.InterfaceIsDual)]

public interface IObjectSafety
{
    //    
    /// <summary>
    ///
    /// </summary>
    /// <param name="riid"></param>
    /// <param name="pdwSupportedOptions"></param>
    /// <param name="pdwEnabledOptions"></param>
    void GetInterfacceSafyOptions(
       System.Int32 riid,
       out System.Int32 pdwSupportedOptions,
       out System.Int32 pdwEnabledOptions);
    /// <summary>
    ///
    /// </summary>
    /// <param name="riid"></param>
    /// <param name="dwOptionsSetMask"></param>
    /// <param name="dwEnabledOptions"></param>
    void SetInterfaceSafetyOptions(
       System.Int32 riid,
       System.Int32 dwOptionsSetMask,
       System.Int32 dwEnabledOptions);
  

}



新建一个控件
using System;
using System.Reflection;
using System.Runtime.InteropServices;
using System.Text;
using System.Windows.Forms;
using Microsoft.Win32;

namespace orRActiveX
{

    /// <summary>
    /// 用户控件。
    /// </summary>
    [ProgId("ORRActiveX.ORRShowGlass")] //我们的控件名
    [Guid("E6DB4C0C-4B29-4806-89B5-17DE7BB79C54")] //guid.
    [ClassInterface(ClassInterfaceType.AutoDual)] //必须的，否则你无法调用 。
    public partial class orRShowGlass : UserControl, IObjectSafety //集成用户控件和安全接口。  
    {
    
        /// <summary>
        /// 设置父对象。
        /// </summary>
        /// <param name="hWndChild">在这里应该是本窗体本身</param>
        /// <param name="hWndNewParent">要显示该窗体的对象。 </param>
        /// <returns></returns>
        [DllImport("user32.dll")]
        private static extern int SetParent(IntPtr hWndChild, int hWndNewParent);

    

        /// <summary>
        ///
        /// </summary>
        public orRShowGlass()
        {
            InitializeComponent();
        }
        ///<summary>
        ///</summary>
        public  void LoadMe(Int32 hWnd)
        {
            SetParent(this.Handle, hWnd);
        }
        /// <summary>
        ///
        /// </summary>
        /// <param name="top"></param>
        /// <param name="left"></param>
        public void SetLoc(Int32 top, Int32 left)
        {
            Left = left;
            Top = top;
        }

        /// <summary>
        ///
        /// </summary>
        /// <param name="width"></param>
        /// <param name="height"></param>
        //[ComEventInterface() ]
        public void SetSize(Int32 width, Int32 height)
        {
            Width = width;
            Height = height;
        }

        ///<summary>
        /// 注册函数，假如你能实现标准dll的方式的话，我们就可以做到完全的标准ocx了。
        ///</summary>
        ///<param name="key">键值，这个是注册时，注册程序给程序传的。 </param>
        [ComRegisterFunction()]
        public static void RegisterClass(string key)
        {
            // 去掉这个， 我们不需要他 HKEY_CLASSES_ROOT/
            StringBuilder sb = new StringBuilder(key);
            sb.Replace(@"HKEY_CLASSES_ROOT/", "");
            // 打开 CLSID/{guid}
            RegistryKey k = Registry.ClassesRoot.OpenSubKey(sb.ToString(), true);
            // 创建'Control'键
            //ActiveX 控件容器
            RegistryKey ctrl = k.CreateSubKey("Control");
            ctrl.Close();
            // 创建CodeBase入口，- 这里是必须的.
            RegistryKey inprocServer32 = k.OpenSubKey("InprocServer32", true);
            inprocServer32.SetValue("CodeBase", Assembly.GetExecutingAssembly().CodeBase);
            inprocServer32.Close();
            k.Close();
        }

        ///    <summary>
        ///    调用反注册控件
        ///    </summary>
        ///    <param name="key">Tke registry key</param>
        [ComUnregisterFunction()]
        public static void UnregisterClass(string key)
        {
            StringBuilder sb = new StringBuilder(key);
            sb.Replace(@"HKEY_CLASSES_ROOT/", "");

            // 打开HKCR/CLSID/{guid}
            RegistryKey k = Registry.ClassesRoot.OpenSubKey(sb.ToString(), true);
            // 删除'Control'如果不存在，不要抛出错误
            k.DeleteSubKey("Control", false);
            // 下一步，打开InprocServer32
            k.OpenSubKey("InprocServer32", true);
            //删除 CodeBase键，如果不存在，不要抛出错误
            k.DeleteSubKey("CodeBase", false);
            k.Close();
        }

        #region 为 html调用提供的接口。 IObjectSafety

        /// <summary>
        ///
        /// </summary>
        /// <param name="riid"></param>
        /// <param name="pdwSupportedOptions"></param>
        /// <param name="pdwEnabledOptions"></param>
        void IObjectSafety.GetInterfacceSafyOptions(int riid, out int pdwSupportedOptions, out int pdwEnabledOptions)
        {
            pdwSupportedOptions = 1;
            pdwEnabledOptions = 2;
        }

        /// <summary>
        ///
        /// </summary>
        /// <param name="riid"></param>
        /// <param name="dwOptionsSetMask"></param>
        /// <param name="dwEnabledOptions"></param>
        void IObjectSafety.SetInterfaceSafetyOptions(int riid, int dwOptionsSetMask, int dwEnabledOptions)
        {
        }

        #endregion
    }
}


然后需要给程序集添上 签名 。 在项目属性中的 生成菜单中选择 为 com  Interop 注册 .


要在html中使用 使用下面的方法。
<body >  
<object id="23423"  
   classid="clsid:E6DB4C0C-4B29-4806-89B5-17DE7BB79C54" >  
</object>  
</body>
classid 是程序中的控件前面的guid中的内容。
在vb6中调用时先引用生成的 tlb文件，和你的项目名相同。  
程序中可以使用下面的方法。



Dim x As New orRShowGlass.ORRShowGlass


Private Sub Form_Load()
x.LoadMe hWnd
' x.SetLoc 1, 1 使用这个也可以
x.Top = 0
x.Left = 0
x.Width = Me.Width / 15
x.Height = Me.Height / 15
x.Refresh
End Sub

Private Sub Form_Resize()
x.Top = 0
x.Left = 0
x.Width = Me.Width / 15
x.Height = Me.Height / 15
x.Refresh
End Sub

InteropFormTools中有更好的实现。
建议采用InteropFormTools，但是他是vb代码的。 c#的目前没有，因为InteropFormTools是微软为vb用户做的！