例8.7.txt

vb电子书籍

【例8.7】将上例改成在运行过程中用“字体”对话框改变字体。窗体设计与图8.23相仿。将“改变颜色”命令按钮改为“改变字体”命令按钮，将其Name属性值改为cmdFont，将通用对话框的Name属性值改为FontDialog。

程序如下：
Private Sub cmdFont_Click()