フォントについて

解決

たく 2003-04-26 05:04:41 No: 106918

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です
フォントも入っています
手におえないのでどなたか教えてください

Loreley 2003-04-26 07:24:02 No: 106919

dialogfont.Flags = cdlCFBoth
dialogfont.ShowFont

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

たく 2003-04-27 00:59:00 No: 106920

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