主题：[原创]fontdialog 字体对话框

因为现在电脑屏幕的分辨率大小不一，经常有反映字体大小的问题，导致软件外观使用不便，需要开放给用户变更字体

在foxtable 中只有一个 改变表字体 的 系统命令，当需要用户自定义字体时 无法使用。

其实 .net 里 有一个对话框 类似 openfiledialog 和 savefiledialog 的 fontdialog  在foxtable 帮助中没有介绍过。因此，我画蛇添足补足一下：

fontdialog

打开字体对话框。

属性

• font
  
  设置或返回字体。
  　
• color
  
  设置或返回字体的颜色。
  
• showcolor 逻辑型
  
  对话框是否有颜色选项。默认为False

方法

• ShowDialog
  
  显示打开文件对话框。Show的返回值是DialogResult型枚举，如果用户单击的是确定按钮，则返回DialogResult.OK，如果单击的是“取消”按钮，则返回DialogResult.Cancel。

用法和 openfiledialog 和 savefiledialog等对话框类似。

示例：

    dim fontdialog1 as NEW windows.forms.fontdialog

    fontDialog1.ShowColor = True

    fontDialog1.Font = textBox1.Font
    fontDialog1.Color = textBox1.ForeColor

    If fontDialog1.ShowDialog() <> DialogResult.Cancel Then
        textBox1.Font = fontDialog1.Font
        textBox1.ForeColor = fontDialog1.Color
    End If