2013.5.26 在VB6.0中调用C#.dll窗体

先感谢网友共享的资料: http://www.cnblogs.com/bob79/archive/2012/11/06/2757263.html

                                        http://bbs.csdn.net/topics/90448381

以下对以上进行补充说明.+实践验证.

    功能:在VB6.0(以下简称VB)程序中调用C#.net 编写的窗体(Form),当然Form都能调用了,函数什么的当然也可以;
    功能需求:现在还有很多公司的程序是用VB编写的(苦逼不想学VB),而.net也提供给我们非常多,控件\方法
    解决方案:
    1.C#.net部分直接发代码好了
using System;

using System.Collections.Generic;

using System.Text;

using System.Runtime.InteropServices;     //这个记得

namespace ClassLibrary1

{

    [Guid("61BB24CB-4C2C-40f8-9E13-1AC5E558D56A")]      //这个其实我是直接从网上复制,当然你也可以自己在电脑上生成

    public interface IEncrypt

    {

        string GetS();

        void set(string a);

    }

    [Guid("CB52E990-185E-4448-A7E8-C88ECAD563AB")]

    public class Class1 : IEncrypt

    {

        public string GetS()

        {

            return "adfasdfdf";   //这是我用来测试的.

        }

        public void set(string a)    //调用窗体部分

        {

            Form1 f1 = new Form1(a);

            f1.Show();

        }

    }

}

    2. 在VS2008的DOS命令工具提示框中运行： //到你的开始菜单的VS目录下面去找的吧.

        sn -k C:\myKey.snk<回车> 

    3.C#.net项目属性的设置(这部分内容复制的 第一个网站的内容)
         右击项目，选择属性，打开并编辑项目的属性对话框

在Application tab中，点击Assembly Information按钮，在打开的对话框中选中“make Assembly COM-Visible”（重要）

在Build Tab中，最好用Release模式编译，确认选中“Make assembly COM-Visible”（重要）。

在Signing Tab中引入上一步创建的强名称文件myKey.snk

检查项目的AssemblyInfo文件，ComVisible应设为true，项目和文件版本不为1.0.*，应该是一个具体的值；

    

4.补充设置
    我们项目的框架要设置为 .net Framework 2.0 .之前是4.0没成功.不知道为什么,待测试
    生成你的dll吧.

5.VB部分
     将生成的dll拷贝到C盘(当然你自己随意拉).
    运行cmd.输入 regasm C:\ClassLibrary1 .dll /tlb:C:\ClassLibrary1 .tlb /codebase 
    如果说什么regasm不是内部程序则需要先执行 cd   C:\Windows\Microsoft.NET\Framework\v4.0.30319  这是我的目录.你自己可以搜索C盘,会出来的.在运行 regasm C:\ClassLibrary1 .dll /tlb:C:\ClassLibrary1 .tlb /codebase  即可.成功会提示你:
成功注册了类型

成功注册了导出到“C:\ClassLibrary1 .tlb”的程序集和类型库  
     运行cmd,输入  gacutil /I C:\ClassLibrary1 .dll  . 这个也一样,说gacutil 不是内部程序,同上处理即可.我的目录是:C:\Program Files\Microsoft SDKs\Windows\v7.0A\bin\NETFX 4.0 Tools
    新建一个VB项目.引用我们生成的  C:\ClassLibrary1 .tlb .
    语句如下:
   Private Sub Command1_Click()
       Dim oaa As String

      Dim obj As New ClassLibrary1.Class1

      Set a = New ClassLibrary1.Class1

      oaa = obj.GetS()

      oaa = obj.Set("参数测试")

  End Sub  
    

----------------------------------------------分割线----------------------------------------------------------------
ps:写VB感觉好痛苦.. ,求高手指教如何在C# 中调用VB6.0的界面.??!!