VB6实现自定义windows的字体对话框修改字体

昨天没有时间把给Kivi的代码发上来，今天补上，仅仅是提供给一些VB的初学者和Kivi同学，如果需要大家可以下载下来看看，VB6是个很老的工具了，不过现在本科的理科同学学还是有需要的



这是一个非常简单的VB Form应用要求分别使用windows的系统自带字体对话框和自己制作一个字体对话框实现对一个文本区域的文本的字体的修改，要求自己制作的能够实现Windows自带的字体对话框的功能。





字体对话框大家应该用过，可以实现对某个VB控件显示的字体的字体名、字号、加粗

倾斜等显示效果的修改，通常大家使用的比较多，所以界面我就不截图了，为了方便

kivi学习所以源代码的注释比较详细，如果大家看过了还有不懂的话，可以直接留言

我一般晚间会给大家回复



源代码下载地址：

http://www.lidaren.com/code/DemoFontDialog.zip



特殊代码说明：

Private Sub btn_comm_Click()

    cmdDlg.Flags = 1 '设置Flags标志表示 ****

    cmdDlg.ShowFont     '显示系