VB6 AddIns 控件样式模板

通常VB提供的控件样式并不能满足用户的需要，因此用户需要频繁更改控件样式，如果项目需要的控件比较多，为了统一控件的样式，用户需要频繁的拷贝控件，以保证样式的统一，因此为了同步控件的样式，程序员的工作会很多，还有就是设计完成的样式无法保留，以为下一个项目来使用，因此利用vb6的Add-Ins 的功能可以很方便的实现这些功能。

这样就可以在添加控件的过程，系统会弹出窗口提示用户选择已经存在的样式。



也可以修改代码来更改控件的样式，以满足自己的要求。
>
也可以将任何控件的样式保存出来。
>

使用后效果如下，这样就可以快速完成控件样式的设置
 
所有的样式属性均保存在文件中，通过对文件的修改和利用，就可以快速的完成样式的设置。

目前在代码中还需要处理集合类型的属性，如Font对象。
 
修订：通过下面代码补充了字体相关的属性

                    sb.Add st.Merge(".ControlObject.Font.Bold=", .Font.Bold)
                    sb.Add st.Merge(".ControlObject.Font.Charset=", .Font.Charset)
                    sb.Add st.Merge(".ControlObject.Font.Italic=", .Font.Italic)
                    sb.Add st.Merge(".ControlObject.Font.Name=", Chr(34), .Font.Name, Chr(34))
                    sb.Add st.Merge(".ControlObject.Font.Size=", .Font.Size)
                    sb.Add st.Merge(".ControlObject.Font.Strikethrough=", .Font.Strikethrough)
                    sb.Add st.Merge(".ControlObject.Font.Underline=", .Font.Underline)
                    sb.Add st.Merge(".ControlObject.Font.Weight=", .Font.Weight)

对于图像还没有好的办法只有通过.Properties("Picture").Object=LoadPicture(Path)来解决了，还有就是Path只能用绝对路径，不爽。

还有就是需要用户需要注意属性的设置次序，不同属性的设置次序会带来不同的效果，因此需要注意。

在配置文件的处理中使用了VB脚本控件，目前还没有考虑安全性。

现在迷上了Add-Ins开发的想法就是效率开发，让复用无处不在。

已经完成VB Add-Ins有控件前缀自动添加、控件样式模板和代码模板，现在遇到的难题事，代码模板的使用还是比较麻烦，如果能够内置到IDE里边就好了，目前效果如下：



补充：

1：App.path传递路径。

2：文件覆盖提示。

3：重写文件内容问题。