ab.com コミュニティ

失礼しました。
DrawTextの戻り値でテキストの高さを取得できました。

> すみません。解決致しました。
それだけだと同じ問題で困ってる方が困ったままです。
どうやって解決したのかも提示して頂けるとこのトピックがさらに役に立つと思います。

すみません。解決致しました。

    Dim cf As CHOOSEFONT
    Dim lf As LOGFONT
    Dim hFontTextBox As HFONT

    With cf
        .lStructSize = Len(cf)
        .hwndOwner = hMainWnd
        .lpLogFont = VarPtr(lf)
        .Flags = CF_SCREENFONTS Or CF_NOVERTFONTS
    End With
	
    If ChooseFont(cf) <> FALSE Then
        Dim hFont As HFONT
        hFont = CreateFontIndirect(lf)
		If hFont = NULL Then
			MsgBox hMainWnd, "フォントの作成に失敗", "", MB_ICONEXCLAMATION
		Else
			DeleteObject(hFontTextBox) 

			hFontTextBox = hFont
			SendDlgItemMessage(hMainWnd, EditBox1, WM_SETFONT, hFontTextBox As WPARAM, TRUE)
		End If
    End If

コードはこのようになっています。
[hide][code]
Dim cf As CHOOSEFONT
Dim lf As LOGFONT
Dim hFontTextBox As HFONT

With cf
.lStructSize = Len(cf)
.hwndOwner = hMainWnd
.lpLogFont = VarPtr(lf)
.Flags = CF_SCREENFONTS Or CF_NOVERTFONTS
End With

If ChooseFont(cf) <> FALSE Then
Dim hFont As HFONT
hFont = CreateFontIndirect(lf)
If hFont = NULL Then
MsgBox hMainWnd, "フォントの作成に失敗", "", MB_ICONEXCLAMATION
Else
DeleteObject(hFontTextBox)

hFontTextBox = hFont
SendDlgItemMessage(hMainWnd, EditBox1, WM_SETFONT, hFontTextBox As WPARAM, TRUE)
End If
End If
[/code][/hide]

> フォント選択ダイアログで選択したフォントのサイズを取得するにはどうすればよいのでしょうか?
GetObject()関数を使って選択したフォントの情報をLOGFONTに格納するとフォントのサイズを取得することができると思います。

フォント選択ダイアログを表示するコードを見せてください。

フォント選択ダイアログで選択したフォントのサイズを取得するにはどうすればよいのでしょうか?