字体对象克隆方法

时间:2010-01-28 13:49:33  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:到影响。因此,要实现我们的目的,需要做的就是克隆字体对象并赋值给需要的控件。 最简单的克隆字体的方法是手工地拷贝所有单独的字体属性,就象下面一样: Function CloneFont(Font As StdFont) As StdFont Set CloneFont = New StdFont CloneFont.Name = Font.Name CloneFont.Size = Font.Size CloneFont.Bold = Font.Bold CloneFon...
  正文:

当要应用一个控件的字体到另一控件时,最直接的方法就是直接赋值:

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

"字体对象克隆方法"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/VB/12552.html


关键字:

关于《字体对象克隆方法》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td