有一个通用对话框。方法如下：
1、执行“工程”菜单的“部件”命令，打开“部件”对话框。
2、在部件对话框，选择“控件”选项卡，在列表中找到“Microsoft Common Dialog Control 6.0”
3、单击确定。通用对话框就会被加到工具箱中。
然后，添加通用对话框，将它的Action属性设为4，就是这个字体选择对话框了。
然后，你可以用下面的代码测试：
Private Sub Command1_Click()
CommonDialog1.Flags = 1 Or 6
CommonDialog1.Action = 4
Form1.Font = CommonDialog1.FontName
Print "字体！"
End Sub
关于通用对话框的更多用法，建议你百度一下
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024