字體對象克隆招法

當(dāng)要應(yīng)用一個控件的字體到另一控件時，最直接的方法就是直接賦值：
    Set Text2.Font = Text1.Font
    但多數(shù)情況下這種方法并不奏效，因為這實際上是將同一字體的引用分配給了2個控件。換言之，當(dāng)隨后修改其中之一控件的字體時，另外一個控件也受到影響。因此，要實現(xiàn)我們的目的，需要做的就是克隆字體對象并賦值給需要的控件。
    最簡單的克隆字體的方法是手工地拷貝所有單獨的字體屬性，就象下面一樣：
    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
    '函數(shù)的應(yīng)用
    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
    '恢復(fù)字體對象到新控件
    Set CloneFont = pb.ReadProperty("Font")
    End Function
    但是我們還能進(jìn)一步地對代碼進(jìn)行優(yōu)化，方法就是使用可被所有StdFont對象識別的隱藏IFont接口。這個接口具有一個Clone方法，用它就可以精確地實現(xiàn)我們的目的。它以非正常方式執(zhí)行：創(chuàng)建一個克隆Font對象，然后返回相應(yīng)的引用。這可能是實現(xiàn)克隆目的的最簡潔代碼了，而且，執(zhí)行速度也是這里列舉的3種方法中最快的一個，要比使用PropertyBag對象的方法快大約3倍左右。來看看具體代碼：
    Function CloneFont(Font As IFont) As StdFont
    Font.Clone CloneFont
    End Function