VB6 Add-Ins 控件样式模板
通常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里边就好了,目前效果如下:
![](/images/cnblogs_com/duiker/26111/r_Picture5.jpg)
补充:
1:App.path传递路径。
2:文件覆盖提示。
3:重写文件内容问题。
这样就可以在添加控件的过程,系统会弹出窗口提示用户选择已经存在的样式。
![](/images/cnblogs_com/duiker/26111/r_Picture1.jpg)
也可以修改代码来更改控件的样式,以满足自己的要求。
>
![](/images/cnblogs_com/duiker/26111/r_Picture2.jpg)
也可以将任何控件的样式保存出来。
>
![](/images/cnblogs_com/duiker/26111/r_Picture3.jpg)
使用后效果如下,这样就可以快速完成控件样式的设置
![](/images/cnblogs_com/duiker/26111/r_Picture4.jpg)
所有的样式属性均保存在文件中,通过对文件的修改和利用,就可以快速的完成样式的设置。
目前在代码中还需要处理集合类型的属性,如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里边就好了,目前效果如下:
![](/images/cnblogs_com/duiker/26111/r_Picture5.jpg)
补充:
1:App.path传递路径。
2:文件覆盖提示。
3:重写文件内容问题。