Длина будущего текста.

[Ефрейтор]

Люди добрые, такой вопрос, очень спецефический. Есть какой то текст, известно его размер и тип шрифта, как програмно узнать длину текста в мм при его отображении на экране? (не путать с длиной строки от функции len). Ведь разный шрифт имеет разную ширину символов, в добавок разные буквы имеют разную ширину. Как это програмно можно узнать?

[Alex123]

В пикселях можно так:

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

Dim h As New IntPtr
h = Me.Handle
Dim g As Graphics = Graphics.FromHwnd(h)
Dim t as String = "Привет"
Dim hw% = g.MeasureString(t, Me.Font).Width
Dim hf% = g.MeasureString(t, Me.Font).Height

В мм переведешь сам.

[tyomitch]

В пикселях можно так:

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

Dim h As New IntPtr
h = Me.Handle
Dim g As Graphics = Graphics.FromHwnd(h)


Необычный подход.

Почему бы не так:

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

Dim g As Graphics = Me.CreateGraphics()


[Nord777]

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

        Dim G As Graphics = Me.CreateGraphics()
        G.PageUnit = GraphicsUnit.Millimeter

        'получить размеры строки в мм
        Dim Szf As SizeF = G.MeasureString("Good Day", Fnt, 100)

        G.PageUnit = GraphicsUnit.Display

[Ефрейтор]

Наверное, я плохо объяснил, свой вопрос, сорри. Я не предпологал, что текст будет на форме, в моей проге пользовательский текст будет вставлен в некоторою графическую программу типа автокада и мне нужно знать габариты текстовой области чтоб запозиционировать пользовательский текст должным образом. Поэтому, горячее желание узнать длину текста в мм, используя только тип текста и его размер, высчитать в каком то процедуре какого-либо модуля, вне всякой формы. Вы уж не обессудьте, что сначала коряво высказал просьбу .

[Thomas]

Ефрейтор

А ты сам то понял что хочешь, а?
Если ты знаешь только тип и размер шрифта, а сам текст нет, то хоть ты тресни, размер строки в миллиметрах ты ни когда не узнаешь.
Сам же пишешь что разные буквы имеют разную ширину.
Зачем городить огород. Зарезервируй определенное место для будущего текста и все. Текст то может быть два слова, а может десять.
Прикинь примерные варианты вводимого текста, определи размер строки предложенными тебе методами на какой нито форме и вставь в свою прогу место максимального размера. А для нерадивого юзера сделай ToolTip контрола, где укажи что вводить и какой максимальный размер. Ну например 200 символов.

Удачи и самые наилучшие пожелания.

Bier drinken met verstand!

[Ефрейтор]

Thomas
Не ругайтесь на меня, не ругайтесь.
На крайний случай можно взять форму и считать на ней показывать то её не обязательно.

[NicSoft]

Thomas
Насколько я понял Ефрейтор сам текст знает. Я сам бился над похожей проблемой. Надо было в программе-клиенте (AutoCAD) задать позицию текстового примитива так, чтобы его правый нижний край пришелся на точку с заданными мной координатами (т.е. надо знать ширину примитива). Но по описанным Ефрейтором причинам возникли проблемы. Пришлось рассчитывать, принимая одинаковую ширину всех букв (+ изменение ширины в зависимости от высоты символов). Смотрится коряво, но другого решения не нашел