VB实现自我注册控件,即使使用控件也能做绿色软件
本文讲解程序自动监测系统是不是有此控件，如果没有，则自动注册此控件。这样就可以实现即使带控件也能实现做绿色软件。
VB编程中合理的使用第三方控件，往往能够事半功倍。但是使用第三方控件也有不好的地方，那就是为了保证程序正常运行，必须使程序能够在系统目录或程序目录下找到所用的第三方控件。要做到这一点通常有两种办法：一是把控件和程序制成一个压缩包发行，这样的缺点是有可能导致在程序传播过程中丢失控件文件。二是制作安装程序，缺点是制作过程烦琐。而且上面两种办法也不符合绿色软件的要求。所谓的绿色软件是指软件只有单个可执行文件且无须安装，目前很受用户欢迎。那么有没有办法在使用了第三方控件的情况下实现绿色软件梦呢？答案是有。
做法是，将第三方控件以自定义资源文件方式保存在程序中，程序运行之后使用控件之前将所用到的控件生成到该程序目录下，完成控件从可执行文件中的金蝉脱壳。
具体做法如下：
第一步：将要用到的控件拷贝到当前工程目录下，右键单击该控件，选择属性，记下文件大小。注意，应记下以字节为单位的具体数字，而不是多少K，以备编程使用。
第二步：引用并正常使用该控件。
第三步：新建资源文件加入工程，在资源文件编辑器中添加所使用的第三方控件为自定义资源（CUSTOM），资源号使用默认的101。如果使用了多个控件则分别添加到资源文件的101、102......资源项中，脱壳代码也要作相应的修改。
第四步：编写控件脱壳代码，使其读取资源文件的数据，在程序当前目录下生成控件。
代码如下：
注意：将以上代码作为一个模块添加到工程中，并在工程-工程属性设置中将启动对象选为Sub Main,即上面的脱壳代码。然后编译生成EXE文件，将该EXE文件拷贝到其他没有安装所用控件的计算机上运行一下看看是否实现了控件携带之金蝉脱壳。如果是那么OK！以上为使用一个控件的情况，使用多个控件方法基本相同,大家可以自己做一下。
