определение дилины символьной строки в пикселах для заданного контекста устройства (hDC)

@Lirco · Регистрация: 24.03.2008

Студворк — интернет-сервис помощи студентам

вопрос такой: как?
пробовал использовать функции GetTextMetrics и GetTextExtentPoint32 и у меня не получилось

первая не заполняла структуру, а вторая тупо возвращала 0 (ноль)
Я, вероятно, сошел с ума. Хелп

Зер Бест, если кто пришлет рабочий пример с использованием одной из этих функций. Заранее спасибо.

@Lirco · 09.11.2008, 20:52 **[ТС]**

утро вечера мудреннее

если кому пригодится:
(форма, на ней VB.TextBox контрол по имени Text1)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Type POINTAPI
    X As Long
    Y As Long
End Type
 
Private Declare Function GetTextExtentPoint32 Lib 'gdi32' Alias 'GetTextExtentPoint32A' (ByVal hDC As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As POINTAPI) As Long
Private Declare Function GetWindowDC Lib 'user32' (ByVal hwnd As Long) As Long
 
Private Sub Form_Load()
    With Text1
        .Text = 'Thank you, MSDN.'
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub
 
Private Sub Text1_Change()
    Dim udtTextSize As POINTAPI
    Dim strText As String
    Dim hDC As Long
    
    strText = Text1.Text
    
    hDC = GetWindowDC(Text1.hwnd)
    
    GetTextExtentPoint32 hDC, strText, Len(strText), udtTextSize
    
    Me.Caption = 'Длина строки в пикселах:  ' & udtTextSize.X
End Sub

@mt22 · 12.11.2008, 21:10

Насколько я понял, есть более прстой вариант:

1. На форму ставится Label
2. У этого элемента свойство AutoSize устанавливается в True
3. Считываем длину Label из свойства Width

и все...

@muskin2029 · 17.12.2015, 14:13

А как быть с определением длины в пикселях строки в объединенной ячейке на листе?
GetTextExtentPoint32 срабатывает, выдает какую-то длину, но не учитывает свойства шрифта.
Как тут решить вопрос?

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 03.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 03.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 01.04.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Lirco 0 / 0 / 1 Регистрация: 24.03.2008 Сообщений: 20

	определение дилины символьной строки в пикселах для заданного контекста устройства (hDC) 09.11.2008, 20:32. Показов 1588. Ответов 3 Метки нет (Все метки) вопрос такой: как? пробовал использовать функции GetTextMetrics и GetTextExtentPoint32 и у меня не получилось первая не заполняла структуру, а вторая тупо возвращала 0 (ноль) Я, вероятно, сошел с ума. Хелп Зер Бест, если кто пришлет рабочий пример с использованием одной из этих функций. Заранее спасибо. 0

@mt22 1 / 1 / 0 Регистрация: 03.08.2007 Сообщений: 155
	12.11.2008, 21:10
	Насколько я понял, есть более прстой вариант: 1. На форму ставится Label 2. У этого элемента свойство AutoSize устанавливается в True 3. Считываем длину Label из свойства Width и все... 0

@muskin2029 2 / 2 / 0 Регистрация: 17.11.2014 Сообщений: 11
	17.12.2015, 14:13
	А как быть с определением длины в пикселях строки в объединенной ячейке на листе? GetTextExtentPoint32 срабатывает, выдает какую-то длину, но не учитывает свойства шрифта. Как тут решить вопрос? 0

определение дилины символьной строки в пикселах для заданного контекста устройства (hDC)

Решение