Прокрутка формы с помощью ScrollBar.

[Kekir]

В общем, суть вопроса в теме. Каким образом можно сделать так, чтобы scrollbar прокручивал форму? Вопрос появился в связи с тем, что форма не помещается в маленькие экраны(нетбуки), а уменьшить ее нет возможности.
Разобрался как менять размеры формы, но конкретно как ее прокручивать так и не понял. Пользовался поиском, но все вопросы конкретно были только по text box'ам.

Спасибо за внимание, надеюсь на вашу помощь.

[iGrok]

Есть такая штука, как ScrollWindow. Поищи примеры работы с ней.

[Kekir]

Спасибо, займусь этим.

[Kekir]

Разобрался, набрал модуль и устройл Scroll, но возник еще вопрос.

Как сделать так, чтобы при уменьшении размера окна не убегал бегунок очень далеко? Т.е. при стандартно открытом окне все нормально крутится, но стоит поменять размер окна, как scroll можно задвинуть на очень большое значение вниз\влево.

И еще остается след, как от него избавиться? Перерисовка с помощью refresh не помогла. Она просто форму перерисовывает, но не обновляет.

[Хакер]

Как сделать так, чтобы при уменьшении размера окна не убегал бегунок очень далеко? Т.е. при стандартно открытом окне все нормально крутится, но стоит поменять размер окна, как scroll можно задвинуть на очень большое значение вниз\влево.

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

Ничего кроме ужасный глючных программ такой подход не порождает.

А использование функции ScrollWindow для этой цели — очень вредный совет. Нельзя использовать функцию ScrollWindow для скроллинга контроллов на VB-формах!

[iGrok]

А использование функции ScrollWindow для этой цели — очень вредный совет. Нельзя использовать функцию ScrollWindow для скроллинга контроллов на VB-формах!

Опа. Намекни плиз, почему, и меняется ли что-нибудь, если это будет ScrollWindowEx с флагом SW_SCROLLCHILDREN?

А как тогда? Цикл по Me.Controls с пересчётом положения?

[alibek]

Зачем цикл то?
Нужно контейнер скроллить, а не сдвигать в цикле все компоненты.

[Хакер]

Опа. Намекни плиз, почему, и меняется ли что-нибудь, если это будет ScrollWindowEx с флагом SW_SCROLLCHILDREN?

\
Потому что двигается окно (созданное CreateWindow), а не контрол. Контрол думает, что он остаётся на старом месте. Проверь свойства Top и Left контролов после применения ScrollWindow.
Со встроенными контролами это по крайней мере не вызывает очевидных багов. С какими-нибудь нестандартными может привести к непредсказуемым багам. Например контрол будет отображаться в новом месте, а тултипы будут отображаться в старом месте.

[Kekir]

Для "Хакера"
Если честно, мне казалось, что форум создан для помощи людям, которые стараются хоть что-то сделать, а не для констатации фактов о том, что они, простите, ничерта не знают. Я сам в курсе насчет того, что я знаю только( не на 40%) на 10% в лучшем случае, в связи с чем и интересуюсь.

Мой вопрос все же открытым остается. ScrollW, по всей видимости, я не осилю. Как ScrollBar'ом пользоваться внятного решения найдено не было мною.

[Хакер]

Как же достало это нытьё в стиле «форум создан для ..., а не для...». Собственно, для того, для чего создан форум, для того он и используются. Ответы, которые даются — самые правильные, полезные, добрые и прогрессивные.

Ваши знания вообще никого не волнуют. Наши знания — тоже. Меня считают много-знающим, но я бы хотел забыть 99 % вещей, которых знаю. Единственная вещь, которую я бы не хотел забыть: это здравая логика и знание о том, как добыть необходимые в данный момент знания. Эти две вещи позволят восполнить утраченные 99 процентов в любое время.

Так что ваши знания никого не волнуют. Мне вообще плевать, знает ли человек больше меня или он вообще ничего не знает. Он либо имеет правильную организацию мышления и правильный подход к делу, или не имеет его, и тут хоть волком вой и все знания во вселенной имей — толку мало.

Так вот одним из компонентов правильного подхода к делу является стремление думать над ситуацией, вникать в ситуацию, логический анализировать свою проблему, находить противоречия между желаемым и действительным, пытаться задавать себе вопросы — как их решить. Для всех этих действий вообще не нужно никаких специальных знаний.

[Mikle]

Kekir:

Нужно контейнер скроллить, а не сдвигать в цикле все компоненты.

[VBTerminator]

Каким образом можно сделать так, чтобы scrollbar прокручивал форму? Вопрос появился в связи с тем, что форма не помещается в маленькие экраны(нетбуки), а уменьшить ее нет возможности.

Так вот одним из компонентов правильного подхода к делу является стремление думать над ситуацией, вникать в ситуацию, логический анализировать свою проблему, находить противоречия между желаемым и действительным, пытаться задавать себе вопросы — как их решить.

Хакер, Вы имеете в виду то, что если форма не помещается на экране, то её дизайн необходимо переделывать с нуля?

... но я бы хотел забыть 99 % вещей, которых знаю.

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

Эти две вещи позволят восполнить утраченные 99 процентов в любое время.

... и снова убить на это кучу времени?

[Хакер]

Хакер, Вы имеете в виду то, что если форма не помещается на экране, то её дизайн необходимо переделывать с нуля?

Вовсе нет, я имел в виду не это. Я имел в виду то, что есть люди, у которых подход к коду — как к заклинанию. Очень трепетное, в первую очередь. Букву боятся тронут. Вдруг заклинание перестанет работать. В общем, они оперируют кусками кода, молятся на работоспособность этих кусков, но боятся или не хотят или не могут разобрать код на атомы, никогда не меняеют его под себя, и вообще плохо понимаю, что к чему. Это худший подход, естественно, какой только бывает.

Но кстати да, я думаю, что проблема с дизайном. Что значит окно не помещается на экран? Это допустимо для окон, которые отображают какой-то документ. Текст, картинку, чертёж, карту. Если там просто контролы, то скорее всего ошибка дизайна. Или окошечко с тысячью текстбоксами. Ненавижу! Люди перешли от проклятых бумажных форм к компьютерным программам, но программы делаются по прежнему так, как будто это бумажная форма, которую надо заполнить.

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

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

Ну по правде я не против знаний, если это не мешает вашей голове. Пусть голова и память и хранимые в ней знания будут эдаким кешем. Встала проблема — знаем как решить — замечательно. Не знаем как решить — не вопрос, через 10 минут будем знать.

... и снова убить на это кучу времени?

Почему же кучу? Надо работать над собой так, чтобы получение новых знаний занимало минимальное число времени

[ger_kar]

Люди перешли от проклятых бумажных форм к компьютерным программам, но программы делаются по прежнему так, как будто это бумажная форма, которую надо заполнить.

А чем это плохо? Если делать поправку на то, что компьютеризация не достигла 100%, если по прежнему наряду с компьютерными формами, используются формы и в бумажном варианте, и если прикинуть затраты на переучивание человека, который привык заполнять бумажные формы, то решение сделать электронные формы, которые максимально будут похожи на бумажные вполне очевидно. Другое дело, когда формы используются только в элеронном виде и изначально под это разрабатываются.

Встала проблема — знаем как решить — замечательно. Не знаем как решить — не вопрос, через 10 минут будем знать.

Ну это напрямую зависит от конкретного индивида, кому то потребуется 10 минут, а кому-то и суток не хватит. И опять же способность добывать знания зависит в т.ч. и от объема тех знаний, которые индивид уже имеет и забудь он 99% своего багажа знаний, вряд-ли он также быстро и легко получит новое знание. ИМХО я бы сказал так, что чем больше человек знает, тем он может быстрее добыть новое знание. Конечно прямолинейной зависимости тут нет, но сама зависимость несомненно имеется.

[ark]

Потому что двигается окно (созданное CreateWindow), а не контрол. Контрол думает, что он остаётся на старом месте. Проверь свойства Top и Left контролов после применения ScrollWindow..

Так это, ИМХО, и есть стандартный подход к прокрутке - "двигать контейнер, а не контролы", как alibek написал. И, насколько я понял, у ТС именно такая задача и стоит. А если сторонний контрол тултипы рисует в экранных координатах, а не в клиентских - это его (контрола) проблема - фтопку такие контролы.

Как сделать так, чтобы при уменьшении размера окна не убегал бегунок очень далеко? Т.е. при стандартно открытом окне все нормально крутится, но стоит поменять размер окна, как scroll можно задвинуть на очень большое значение вниз\влево.
И еще остается след, как от него избавиться? Перерисовка с помощью refresh не помогла. Она просто форму перерисовывает, но не обновляет.

Не понял про след и проч. Нарыл тут свой древний пример

Scroll.zip

Scroll

(2.99 Кб) Скачиваний: 120

[Хакер]

ark, ты гонишь по страшному.
Причём тут контейнеры и содержимые элементы.
Есть оконная подсистема, за которую отвечает User32, объектами действия которой являются окна (windows), имеющие хендлы, и имеющие свои законы жизни.
Есть подсистема контролов, надстроенная над подсистемой окон. Объектами этой подсистемы являются COM-контролы, имеющие свои законы жизни.

VB, ясное дело, использует концепцию контролов, построенную над окнами.

Контроллы устроены так, что при обращении например, к свойству Top контрола, реализация контрола сама двигает соответствующее контролу окно.
ScrollWindow действует в обход контролов и двигает сами окна. В то время как контролы не догадываются, что их окна были сдвинуты.

Иными словами Command1.Top и Command1.Left до вызова ScrollWindow и после вызова ScrollWindow вернут одинаковые результаты, хотя сама кнопка визуально сдвинется. Потому что реализация контрол-класса CommandButton не предполагает, что кнопку-как-окно двигались в обход кнопки-как-контрола.

[ark]

Иными словами Command1.Top и Command1.Left до вызова ScrollWindow и после вызова ScrollWindow вернут одинаковые результаты

Ну да. Клиентские координаты и должны оставаться одинаковыми. Ты пример посмотри - я двигаю окно scrollbar'ом - в этом случае вся концепция screen/client сохраняется.

Добавлено: пардон, зная Вашу требовательность к точности, не ОКНО, а его клиентскую часть

[Хакер]

Ну да. Клиентские координаты и должны оставаться одинаковыми.

Клиентские координаты чего?

[ark]

Клиентские координаты чего

Контрола, естественно - относительно контейнера - формы

[ark]

ScrollWindow действует в обход контролов и двигает сами окна

Ааа дошло! Мы о разных вещах. Хакер, я ж говорил уже, ScrollWindow я использую на контейнере (форме и pictureboxe в примере) а не напрямую для двигания контролов.

[Хакер]

Это было бы логично, если бы вместе со всем хлалом двигалась бы и сама система клиентских координат. Но она не двигается. Ты отдаёшь себе отчёт о том, какие последствия из этого проистекают?

[ark]

отдаёшь себе отчёт о том, какие последствия из этого проистекают?

А что такого страшного? Двигать контролы через топ/лефт нельзя? Так всегда есть ScreenToClient/ClentToScreen. Да и позиция scrollbara у контейнера. Что ещё?

[Хакер]

В соответствии с базовым уровнем здравого смысла, выполнение вот такой строчки кода:
ctl.Left = ctl.Left
Должно ли как-то менять положение контрола?
Нет. В соответствии со здравым смыслам, такой код не должен иметь вообще никаких подочных эффектов.
Тем не менее, если ты применял ScrollWindow(Ex), контрол после выполнения такого кода прыгент, причём как по горизонтальной оси, так и по вертикальной.

[ark]

контрол после выполнения такого кода прыгент

Конечно, прыгнет. Но лекарство-то элементарное - взять позиции scrollbaroв и двинуть соответсвенно. Или MoveWindow/SetWindowPos.
Неуж то эстетичнее PictureBox.Top в минус задирать?

[Хакер]

Лекарство не нужно. Нужно взять топор и отрубить нафиг руки всем, кто использует кривые методы, и у кого криетрием применимости служит не прямота решения, а фраза «дык ыть работает жеж!».

[ark]

Ну так предложи прямое

[Хакер]

Прямое предложение уже было — положить весь хлам в контрол-контейнер и двигать контрол-контейнер.

[Mikle]

Неуж то эстетичнее PictureBox.Top в минус задирать?

А что тут неэстетичного?

[uni]

А я не заморачивался и двигал сами элементы управления. Всё довольно шустро работает.

[Samovar]

/Off
Простите за вопрос uni,
А что за программу стирки Вы делали? Неужели наконец-то белую технику начали делать с программным интерфейсом и с портом под управление домашним компютером!?
/EndOff