在优化一个软件时,发现了大量同类控件的属性设置问题。这些控件都具有相同的属性,需要编写大量重复的代码,非常难看,一旦改变,还需要全部重新写上一遍,效率非常低。于是,突发奇想,并借助CallByName函数,构造了一个通用的控件属性设置函数,节约了很多程序,有利于生成高性能的运行代码。
一、函数构造
- '通用控件属性设置函数
- '参数说明:Frm,控件所在窗体;CtrlName,Frm窗体上的控件名字;LMin,Lmax分别是控件的最小、最大编号;cPropertyName,表示要设置的属性名称;bProperty,表示要设置的控件属性。
- ' 作 者:Chenjl1031(东方之珠)
- ' 编写时间:2008.9.28
- Public Function SetControlProperty(Frm As Form, ByVal CtrlName As