在窗体上画一个文本框和三个命令按钮，在文本框中输入一段文本（汉字），然后实现以下操作：
(1)通过字体对话框把文本框中文本的字体设置为黑体，字体样式设置为粗斜体，字体大小设置为24。该操作在第一个命令按钮的亊件过程中实现。
(2)通过颜色对话框把文本框中文字的前景色设置为红色。该操作在第二个命令按钮的事件过程中实现。
(3)通过颜色对话框把文本框中文字的背景色设置为黄色。该操作在第三个命令按钮的事件过程中实现。

解：在窗体上画一个文本框、一个通用对话框和三个命令按钮，并把文本框的MultiLine属性设置为True。
    编写如下事件过程：Private Sub Command1_Click()
    CommonDialog1.Flags = 3
    CommonDialog1.ShowFont
    Text1.FontName = CommonDialog1.FontName
    Text1.FontSize = CommonDialog1.FontSize
    Text1.FontBold = CommonDialog1.FontBold
    Text1.FontItalic = CommonDialog1.FontItalic
    Text1.FontUnderline = CommonDialog1.FontUnderline
    Text1.FontStrikethru = CommonDialog1.FontStrikethru
End Sub

Private Sub Command2_Click()
    CommonDialog1.Flags = vbccrgbinit
    CommonDialog1.Color = BackColor
    CommonDialog1.Action = 3
    Text1.ForeColor = CommonDialog1.Color
End Sub

Private Sub Command3_Click()
    CommonDialog1.Flags = vbccrgbinit
    CommonDialog1.Color = BackColor
    CommonDialog1.Action = 3
    Text1.BackColor = CommonDialog1.Color
End Sub

Private Sub Form_Load()
    Me.Caption = "设置文本框字体和颜色"
    Command1.Caption = "设置字体"
    Command2.Caption = "设置前景颜色"
    Command3.Caption = "设置背景颜色"
    msg = vbCrLf & "诗情放，剑气豪。" & vbCrLf & "英雄不把穷通较。"
    msg = msg & vbCrLf & "江中斩蛟，云间射雕，席上挥毫。" & vbCrLf
    msg = msg & "他得志笑闲人，他失脚闲人笑。"
    Text1.Text = msg
End Sub

运行结果如下图所示：

*********************
新世纪计算机基础教育丛书 丛书主编：谭浩强
Visual Basic 程序设计教程 题解与上机指导（第四版） 刘炳文 编著

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

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