フォントダイアログを開くいたときの初期表示を変えたい

WinXP、VB.NET 2005で開発しております。

やりたいことは
例えば、今「ゴシック・サイズ10」で入力していて、
明朝体に変えるときフォントダイアログで変更させたいのです。

何もしないでダイアログを開いたとき、
　フォント名：MS UI Gothic
　スタイル：標準
　サイズ：9
と選択されています。
この設定を変える方法をご存じの方、教えて下さい。

呼び出しは以下のように行っています。
Dim dlgFont As FontDialog = New FontDialog
retcd = dlgFont.ShowDialog()

上記のコードでFontDialogで選択した値を
呼びだし元で取得することは出来ました。

No.1 ベストアンサー 回答者： Wizard_Zero 回答日時： 2009/09/08 01:04

ShowDialogよりも前にFontプロパティへ既定値とするフォントをセットしてください。

Dim dlgFont As New Windows.Forms.FontDialog()
Dim retcd As Windows.Forms.DialogResult

' "ＭＳ ゴシック", 10pt, 標準, 日本語文字セット を既定値にする
dlgFont.Font = New System.Drawing.Font("ＭＳ ゴシック", 10, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point, 128)

retcd = dlgFont.ShowDialog()

この回答へのお礼

ありがとうございました。

Font プロパティを使うのですね。
name,sizeなどを使って出来ない・・・と思ってました。
とても助かりました。

お礼日時：2009/09/08 10:57