VB6.0中如何设定COM组件和ActiveX控件的CLSID值

http://ajxfxb.blog.163.com/blog/static/56675086200911181118562/ VB中如何设定COM组件和ActiveX控件的CLSID值   2009-12-18 11:01:08|  分类： VB6 |字号 订阅 此问题以前一直没有碰到过，因为VB建立的COM和ActiveX的工程，都是超级智能，什么都封装好了，连组件注册都帮你弄好了，而且VB没有提供入口来修改这些属性。     以前用VB建立这类工程，不需要关心这些细节，也没碰到过什么问题，因为的确，CLSID都是自动生成，不需要人为干涉。直到今天去上海大平洋保险出差，遇到金蝶OA系统的一个问题：编设出来的组件CLSID和已经布署的系统的CLSID不一样！     这下就出问题了，因为在完成测试新编译出来的组件之前，我们不能把新改的组件布署上去（反正原因很复杂……）。最后是没办法，只好研究一下VB中是如何设置组件的CLSID的。     第一感觉就是VB建立工程的时候，用随机算法算出一组CLSID，然后存在某个地方，因为只有这样，每次编译时，才能保证同一组CLSID。但是把工程目录搜索了一遍，包括ASCII和二进制搜索，都搜不出来，挨个挨个文件看也看不出。     只好研究VB的工程相关设置，也没发现，最后觉得有点令人怀疑的地方是所谓的Version Compatiblity（“版本兼容”）。研究后终于搞清楚了其中来龙去脉。     VB的兼容卡中有三个设置：(工程属性--部件--版本兼容) 1、No Compatibility：不兼容，此设置下，每次编译出的CoClass和Interface的CLSID都会不一样。 2、Project Compatibility：工程兼容，此设置下，每次编译出的CoClass的CLSID一样，但Interface的CLSID不一样。 3、Binary Compatibility：二进制兼容，此设置下，保证每次编译出的CoClass和Interface的CLSID都一样。     当选择2和3时，还要在下面的Edit输入框中输入欲与其兼容的ocx文件。也就是说，要保证2和3，工程移动时必须把dll/ocx都要一起拷过来。否则编译出来的COM对象CLSID就不一样了。     如果丢失原来的ocx文件，就会弹出“Unalbe to set the version compatible component:XXXX”错误信息，你只能强制改为选项1不兼容，但此时你编译出来的组件CLSID会重新生成，也就是说和原来的就不一样了。     当然，因为类型库本来就以资源形式挂在dll/ocx中，所以你也可以直接修改二进制文件。需要注意的是，资源文件中是以二进制来存的，不是以ASCII码来存的。         利用这些原理，也可以写一个方便的插件来实现在VB中对组件CLSID的设置，有空写一个：）。     另外，基于这种原因，如果使用VB编写组件，使用方尽量使用ProgID，因为ProgID即VB中的子类名（.cls），也就是说，是可以很容易设定的。