Koodit: VB6: RichTextbox: fontin kopiointi

Private Sub Command1_Click()
'-------------------------
' Copy font
'-------------------------
    If RichTextBox1.SelFontName <> Null Then varCopyfont.FontName = RichTextBox1.SelFontName
    If Not IsNull(RichTextBox1.SelFontSize) Then
        varCopyfont.Font.Size = RichTextBox1.SelFontSize
        End If
    If Not IsNull(RichTextBox1.SelColor) Then varCopyfont.ForeColor = RichTextBox1.SelColor
    If Not IsNull(RichTextBox1.SelBold) Then varCopyfont.FontBold = RichTextBox1.SelBold
    If Not IsNull(RichTextBox1.SelItalic) Then varCopyfont.FontItalic = RichTextBox1.SelItalic
    If Not IsNull(RichTextBox1.SelUnderline) Then varCopyfont.FontUnderline = RichTextBox1.SelUnderline
    If Not IsNull(RichTextBox1.SelStrikeThru) Then varCopyfont.FontStrikethru = RichTextBox1.SelStrikeThru
End Sub

Private Sub Command2_Click()
'-------------------------
' Paste font
'-------------------------
    RichTextBox1.SelFontName = varCopyfont.FontName
    RichTextBox1.SelFontSize = varCopyfont.FontSize
    RichTextBox1.SelColor = varCopyfont.ForeColor
    RichTextBox1.SelBold = varCopyfont.FontBold
    RichTextBox1.SelItalic = varCopyfont.FontItalic
    RichTextBox1.SelUnderline = varCopyfont.FontUnderline
    RichTextBox1.SelStrikeThru = varCopyfont.FontStrikethru
    RichTextBox1.SetFocus
End Sub