VB超频快餐

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

上一篇： 关于VBScript 与 JavaScript如何传递变量的详细研究！（包括服务器端与客户端）
下一篇： 怎样用VB写多线程

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!