每个人都希望每天都是开心的，不要因为一些琐事扰乱了心情还，闲暇的时间怎么打发，关注图老师可以让你学习更多的好东西，下面为大家推荐字体对象克隆招法，赶紧看过来吧！
【 tulaoshi.com - 编程语言 】
当要应用一个控件的字体到另一控件时，最直接的方法就是直接赋值：
SetText2.Font=Text1.Font
但多数情况下这种方法并不奏效，因为这实际上是将同一字体的引用分配给了2个控件。换言之，当随后修改其中之一控件的字体时，另外一个控件也受到影响。因此，要实现我们的目的，需要做的就是克隆字体对象并赋值给需要的控件。
最简单的克隆字体的方法是手工地拷贝所有单独的字体属性，就象下面一样：
FunctionCloneFont(FontAsStdFont)AsStdFont
SetCloneFont=NewStdFont
CloneFont.Name=Font.Name
CloneFont.Size=Font.Size
CloneFont.Bold=Font.Bold
CloneFont.Italic=Font.Italic
CloneFont.Underline=Font.Underline
CloneFont.Strikethrough=Font.Strikethrough
EndFunction
'函数的应用
SetText2.Font=CloneFont(Text1.Font)
如果使用VB6，就可以使用PropertyBag对象快速拷贝所有字体属性，并且代码会很简练、速度也快2倍：
FunctionCloneFont(FontAsStdFont)AsStdFont
DimpbAsNewPropertyBag
'拷贝字体到PropertyBag对象中
pb.WriteProperty"Font",Font
'恢复字体对象到新控件
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/）SetCloneFont=pb.ReadProperty("Font")
EndFunction
但是我们还能进一步地对代码进行优化，方法就是使用可被所有StdFont对象识别的隐藏IFont接口。这个接口具有一个Clone方法，用它就可以精确地实现我们的目的。它以非正常方式执行：创建一个克隆Font对象，然后返回相应的引用。这可能是实现克隆目的的最简洁代码了，而且，执行速度也是这里列举的3种方法中最快的一个，要比使用PropertyBag对象的方法快大约3倍左右。来看看具体代码：
FunctionCloneFont(FontAsIFont)AsStdFont
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/）Font.CloneCloneFont
EndFunction
->来源:http://www.tulaoshi.com/n/20160219/1621066.html
![第五节 克隆 [5]](http://img.tulaoshi.com/201602/19/d2f4c7911ccdd8c32cb5af67086fa3ea_thumb_189.jpg)