Question

VB制作记事本的字体代码

给个代码！！要完整的，谢谢！！！！

Answer 1

CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects 'cdlCFBoth 对话框列出可用的打印机和屏幕字体. cdlCFEffects 对话框允许删除线，下划线，以及颜色效果。

CommonDialog1.ShowFont '显示“字体”对话框
Text1.font.Name = CommonDialog1.FontName '设置字体
Text1.font.Size = CommonDialog1.FontSize '设置字号
Text1.font.Bold = CommonDialog1.FontBold '设置是否以粗体显示
Text1.font.Italic = CommonDialog1.FontItalic '设置是否以斜体显示
Text1.FontStrikethru = CommonDialog1.FontStrikethru '设置是否显示删除线
Text1.FontUnderline = CommonDialog1.FontUnderline '设置是否显示下划线
Text1.ForeColor = CommonDialog1.Color '设置字的颜色
Text2.font.Name = CommonDialog1.FontName '设置字体
Text2.font.Size = CommonDialog1.FontSize '设置字号
Text2.font.Bold = CommonDialog1.FontBold '设置是否以粗体显示
Text2.font.Italic = CommonDialog1.FontItalic '设置是否以斜体显示
Text2.FontStrikethru = CommonDialog1.FontStrikethru '设置是否显示删除线
Text2.FontUnderline = CommonDialog1.FontUnderline '设置是否显示下划线
Text2.ForeColor = CommonDialog1.Color '设置字的颜色