正在阅读：VB超频快餐，让我一次用个够！（七）VB超频快餐，让我一次用个够！（七）

2004-02-14 09:34 出处：eNet学院作者：听风责任编辑：pjl

字体对象克隆招法当要应用一个控件的字体到另一控件时，最直接的方法就是直接赋值： Set Text2.Font = Text1.Font 但多数情况下这种方法并不奏效，因为这实际上是将同一字体的引用分配给了2个控件。换言之，当随后修改其中之一控件的字体时，另外一个控件也受到影响。因此，要实现我们的目的，需要做的就是克隆字体对象并赋值给需要的控件。最简单的克隆字体的方法是手工地拷贝所有单独的字体属性，就象下面一样： Function CloneFont(Font As StdFont) As StdFont Set CloneFont = New StdFont CloneFont.Name = Font.Name CloneFont.Size = Font.Size CloneFont.Bold = Font.Bold CloneFont.Italic = Font.Italic CloneFont.Underline = Font.Underline CloneFont.Strikethrough = Font.Strikethrough End Function ’函数的应用 Set Text2.Font = CloneFont(Text1.Font) 如果使用VB6，就可以使用PropertyBag对象快速拷贝所有字体属性，并且代码会很简练、速度也快2倍： Function CloneFont(Font As StdFont) As StdFont Dim pb As New PropertyBag ’拷贝字体到PropertyBag对象中 pb.WriteProperty "Font", Font ’恢复字体对象到新控件 Set CloneFont = pb.ReadProperty("Font") End Function 但是我们还能进一步地对代码进行优化，方法就是使用可被所有StdFont对象识别的隐藏IFont接口。这个接口具有一个Clone方法，用它就可以精确地实现我们的目的。它以非正常方式执行：创建一个克隆Font对象，然后返回相应的引用。这可能是实现克隆目的的最简洁代码了，而且，执行速度也是这里列举的3种方法中最快的一个，要比使用PropertyBag对象的方法快大约3倍左右。来看看具体代码： Function CloneFont(Font As IFont) As StdFont Font.Clone CloneFont End Function