编写程序，在窗体上显示几行信息，通过自己定义的颜色对话框和字体对话框改变这几行信息的颜色和字体。

    解：在窗体上画三个命令按钮和一个通用对话框，然后编写如下代码。

Private Sub Form_Load()
    Me.Caption = "设置窗体字体和颜色"
    Command1.Caption = "设置颜色"
    Command2.Caption = "设置字体"
    Command3.Caption = "测试"
End Sub

Private Sub Command1_Click()
    CommonDialog1.Flags = vbccrgbinit
    CommonDialog1.Color = BackColor
    CommonDialog1.Action = 3
    Form1.ForeColor = CommonDialog1.Color
End Sub

Private Sub Command2_Click()
    CommonDialog1.Flags = 3
    CommonDialog1.ShowFont
    Form1.FontName = CommonDialog1.FontName
    Form1.FontSize = CommonDialog1.FontSize
    Form1.FontBold = CommonDialog1.FontBold
    Form1.FontItalic = CommonDialog1.FontItalic
    Form1.FontUnderline = CommonDialog1.FontUnderline
    Form1.FontStrikethru = CommonDialog1.FontStrikethru
End Sub

Private Sub Command3_Click()
    Form1.Print "测试一下试试看"
End Sub

程序运行后，单击第一，第二个按钮，设置好字体颜色，字体，再单击第三个按钮测试一下。测试结果示意图如下。

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_12..html