Как узнать размеры текста в DirectDraw

[Tarantul]

Мне надо узнать высоту и ширину будущего текста на экране перед вызовом процедуры DirectDrawSurface.DrawText, подобно тому, как это делается функциями TextHeight и TextWidth в PictureBox.

[GM]

Можна так:
1.Шрифт поверхности мы задаем такой же как форме, или наоборот
2.Измерения формы в пиксели
3.Юзаем TextWidth и TextHeight формы

Код: Выделить всё

Private Sub Form_Load()
Form1.ScaleMode = vbPixels
Call dds.SetFont(Form1.Font)
msgbox( form1.textwidth("Hello world!")) ' form1. написал для наглядности, можна просто textwidth
msgbox( form1.textheight("Hello world!"))
End Sub


[Tarantul]

А ни будет ли такой метод слишком медленным

[GSerg]

gettextextentpoint32

[Tarantul]

Понял, спасибо