第8章通用对话框与文件操作 (2)用 Show Font方法显示对话框 Private Sub Command1 Click ( 显示“字体”对话框 CommonDialog l Show Font Text1. Font Name CommonDialogl FontName Text1. Font. size CommonDialog 1. Fontsize Textl. Font Bold= CommonDialog l. FontBold Textl. Font. Italic CommonDialogl Fontitalic Text1. Font. Underline =CommonDialogl FontUnderline extl Font strikethru CommonDialogl Fontstrikethru Textl. Fore color CommonDialogl Color Exit Sub 用户单击了“取消”按钮 Exit sub End sub 2021/223第8章 通用对话框与文件操作 2021/2/23 （2）用ShowFont方法显示对话框 Private Sub Command1_Click () '显示“字体”对话框 CommonDialog1.ShowFont Text1.Font.Name = CommonDialog1.FontName Text1.Font.Size = CommonDialog1.FontSize Text1.Font.Bold = CommonDialog1.FontBold Text1.Font.Italic = CommonDialog1.FontItalic Text1.Font.Underline = CommonDialog1.FontUnderline Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.ForeColor = CommonDialog1.Color Exit Sub '用户单击了“取消”按钮 Exit Sub End Sub