部件添加Microsoft Common Dialog Control 6.0 (SP6)
把通用对对话框控件CommonDialog添加到窗体。
Private Sub Command1_Click()
CommonDialog1.ShowFont
Label1.Font.Name = CommonDialog1.FontName
Label1.Font.Size = CommonDialog1.FontSize
Label1.Font.Bold = CommonDialog1.FontBold
Label1.Font.Italic = CommonDialog1.FontItalic
End Sub
fontDialog 控件就是专门显示设置你的附图所示界面。