フォントについて

解決

---

commondialogに関してなのですが
Private Sub cmdfont_Click()

'キーをクリック

'キャンセルがおしたときErrhandlerへ行くように
dialogfont.CancelError = True

On Error GoTo ErrHandler
    'ダイアログフォント呼び出し
    dialogfont.ShowFont
    'ダイアログのフォントを入れる
    lblfont1 = dialogfont.FontName
  
    '------------------------------------------
Exit Sub

ErrHandler:
   ' ユーザーが [キャンセル] ボタンをクリックしました。
   Exit Sub

End Sub

このようなプログラムを実行したとき
フォントがインストールされていません
コントロールパネルにフォントをインストールしてくださいと
警告がきました。
osはw2kです
フォントも入っています
手におえないのでどなたか教えてください

編集 削除

---

dialogfont.Flags = cdlCFBoth
dialogfont.ShowFont

とする必要があるようです

編集 削除

---

Loreleyさんレス有難う御座います、おかげでフォント画面を出すことが出来ました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。