Лэйбл со скруллбаром.

[Алексей.Ф.]

Всем здравствуйте. Кто знает, как сделать label co scrollbar' ом.

[Cryonyx]

Ставишь на форму лэйбл и скроллбар

[Cryonyx]

А вообще, ты хочешь, чтобы текст проручивался?
Тогда лучше юзай Windows Forms 2.0 - и ставь текстбокс с Locked = True & Multiline = True & Scrollbars = Both

[Amed]

А если серьёзно, то кидаешь на форму picturebox, в него лейбл и скроллбар и обрабатываешь клик по скроллбару (перемещаешь лейбл выше/ниже). Попытайся сам сделать.

[Алексей.Ф.]

А вообще, ты хочешь, чтобы текст проручивался?
Тогда лучше юзай Windows Forms 2.0 - и ставь текстбокс с Locked = True & Multiline = True & Scrollbars = Both

Я чтобы курсор в поле не маячил, поэтому и лэйбл хотел вместо текстбокса, но, смотрю путного ничего из этого не выйдет.

[Алексей.Ф.]

А если серьёзно, то кидаешь на форму picturebox, в него лейбл и скроллбар и обрабатываешь клик по скроллбару (перемещаешь лейбл выше/ниже). Попытайся сам сделать.

Дело в том, что в лэйбле у меня может быть разное кол-во строк, и размер пикчербокса толком не подберешь.

Спасибо всем за совет. Если еще какие-нибудь идеи на эту тему будут поделитесь.

[Amed]

Почему не подберёшь? Свойство AutoSize для лейбла отменили?

[Джеффи]

Кароче как Amed уже говорил, берём пикчербокс в него кидаем лейбел и скролл.

Далее в скроле пишем:

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

Private Sud VScroll_Change()
label1.top = 0 - VScroll.Value
End sub
Private Sud VScroll_Click()
if label1.height > picture1.scaleheight then VScroll.Max = picture1.scaleheight - label1.height: VS.Min = 0
End sub


Вроде так, возможны опечатки я писал не в VB и не проверял...

[Алексей.Ф.]

Кароче как Amed уже говорил, берём пикчербокс в него кидаем лейбел и скролл.

Далее в скроле пишем:

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

Private Sud VScroll_Change()
label1.top = 0 - VScroll.Value
End sub
Private Sud VScroll_Click()
if label1.height > picture1.scaleheight then VScroll.Max = picture1.scaleheight - label1.height: VS.Min = 0
End sub


Вроде так, возможны опечатки я писал не в VB и не проверял...

У скрулбара процедуры клик вроде бы нет, может быть процедура VScroll_ Scroll?
Но, при попытке прокрутить скрулбар выдеат ошибку "необходим объект"

[Джеффи]

Мдя... ну кинь куда нить=))) главное не в Scroll И Change...
И код говорил же писал здесь, т.е. в VB не проверял....


P.S. Ну ты и прогер....

[Алексей.Ф.]

P.S. Ну ты и прогер....

Был бы я профессиональный прогер, я бы не спрашивал.