просто label

[JIeT4uK]

как определить на сколько строк растянется строка если ширина лейбла постоянная, ну и соответственно какая высота получиться

[ism]

Используй TextWidth и TextHeight

[JIeT4uK]

не знаю может ответ и содержит полезную информацию но как применть не знаю

[ism]

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

Private Sub Form_Load()
MsgBox "TextHeight=" & TextHeight(Label1.Caption) & vbNewLine _
        & "TextWidth=" & TextWidth(Label1.Caption)
End Sub

[JIeT4uK]

и в чем это счастье измеряется?Я идиот! Убейте меня, кто-нибудь!

[ism]

В твипах.

[SHURUP]

В твипах.

Точнее в тех еденицах, которые выставлены в Form.ScaleMode.
И к тому-же, тут есть несколько ньюансов.
- Если у label1 выставленно WordWrap=true, то вышеуказанный метод не будет правильно работать.
- Если Шрифт лейбла отличается от шрифта Формы - то тоже результат может быть неточным.
---
Может есть резон использовать "Label1.AutoSize = true" и брать величину Label1.Height?

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


    Label1.WordWrap = True
    Label1.AutoSize = True
    MsgBox "Высота всего текста = " & Label1.Height & vbNewLine & _
           "Количество строк = " & Label1.Height / TextHeight("")

В случае если Шрифт лейбла отличается от шрифта Формы - тогда можно разместить невидимый PictureBox, сделать:

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

Set Picture1.Font = Label1.Font

И вместо TextHeight("") использовать Picture1.TextHeight("").