Динамическое изменение размера Label-a

[Vitaliy]

Может кто знает, как изменять ширину лейбла (да и по ходу текстбокса) в зависимости от введенного в них текста? Может есть где-то соответствующие компоненты с такими свойствами? Я где-то что-то похожее видел, но вот не могу найти....

[Александр Андреев]

Для лэйбла надо поставить AutoSize = true.
Для текстбокса - вычислять размер надписи в пикселах и программно изменять ширину.

[Vitaliy]

С лейблом я, конечно, прокололся.... Как раз то что надо!
А вот как вычислить размер текста в пикселях? Плиз...

[Александр Андреев]

The GetTextExtentPoint32 function computes the width and height of the specified string of text.

BOOL GetTextExtentPoint32(
HDC hdc, // handle to device context
LPCTSTR lpString, // pointer to text string
int cbString, // number of characters in string
LPSIZE lpSize // pointer to structure for string size
);

Объяви ее вот так:

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

Public Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As SIZE) As Long

[Sebas]

НУ))))))))))))))))))))) Ты это загнул! У PictureBox есть два прекрасных метода!

[Cyrax]

к стати по поводу лэйбла. есть у него еще одно свойство связанное с автоизменением размеров: WordWrap называется. если установить его и AutoSize в True, то надпись будет изменять свои размеры не вширь, а по высоте.

[GoGosha]

Размести на форме текстбокс Text1

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

Private Sub Text1_Change()
    Set Me.Font = Text1.Font
    Text1.Width = TextWidth(Text1)
    Text1.Height = TextHeight(Text1)
End Sub