Скролл формы????

@danhost · Регистрация: 30.09.2006

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

Делаю скролл формы .
Один picturebox1 в другом picturebox2 и вертикальный скролл.
picturebox2 прокручиваю в picturebox1 и при этом меняю свойство Top которое ограничивается типом integer и из-за этого не могу проскролить всю картинку. Есть у кокие-то идеи?
Спасибо!

@Yashik · 09.09.2007, 19:04

Mojet bit' ya ne ponyal voprosa,no u menya vot takya strochka perkrasno rabotaet i vidno vsyu kartinku:
Picture2.Top = -VScroll1.Value

@danhost · 09.09.2007, 19:10 **[ТС]**

У меня та же строка, -32724 максимальное значение для top!

@Леон · 09.09.2007, 20:17

Проблема не в Top, а в property Min, Max у скролбара. Если тебе нужны значения выходящие за рамки области Integer, нужно использовать множитель:

Picture2.Top = -VScroll1.Value * 5

При большом множителе картинка естественно будет двигаться рывками. Можно изобразить что-то типа второго скролбара для 'точной настойки' между рывками, например:

Picture2.Top = -VScroll1.Value * 50 - VScroll2.Value

@danhost · 09.09.2007, 20:31 **[ТС]**

Но ведь Top дойдет до 32767 рано или поздно, даже
и при
picInnerTree.Top = -VScrollTree.Value * 5
только это быстрее будет

@Леон · 09.09.2007, 20:46

Насколько я понимаю, Top не ограничивается целым! Попробуй.

@danhost · 09.09.2007, 21:07 **[ТС]**

Да дает ошибку Overflow!!!

@Ant__ · 10.09.2007, 19:18

Попробуй 3-й picturebox

@Леон · 10.09.2007, 19:31

picInnerTree.Top = -40000

у меня работает без проблем. Какой у тебя VB?

@danhost · 10.09.2007, 19:34 **[ТС]**

Ну и что?
Не вижу идеи

@Леон · 10.09.2007, 19:42

Я работаю с VB6 на W2K, возможно у старого VB или на другой операционке другие ограничения. Напиши, можно будет проверить.

@danhost · 10.09.2007, 19:59 **[ТС]**

Я работаю на VB6 под NT.
Попробовал
picInnerTree.Top = -70000 и все OK!

Top хавает это начение, но вот когда пишу
picInnerTree.Top = -VScrollTree.Value * 5
дает OverFlow!

@Леон · 10.09.2007, 20:01

И что у тебя в момент ошибки сидит в VScrollTree.Value ?

@danhost · 10.09.2007, 20:10 **[ТС]**

Только что проверил
picInnerTree.Top = -VScrollTree.Value * 2

VScrollTree.Value =16524
помноженное на 2 и получаем overflow
Не фига не понимаю???!!!!

@Леон · 10.09.2007, 20:22

Попрпбуй так:

picInnerTree.Top = -VScrollTree.Value * 2#

сообщи результат

@danhost · 10.09.2007, 20:28 **[ТС]**

Спасибо работает!!!!
А в чем собственно проблема была, Leon ??
Объясни если не трудно!

@Леон · 10.09.2007, 20:44

picInnerTree.Top как я и думал не ограничен рамками целого. Проблема была в арифметике VB. В случае, если оба параметра в выражении одного типа, VB попытается получить результат того-же типа. VB НЕ УМЕЕТ делать автоматическое расширение типа. Поэтому при умножении двух целых он попытался засунуть результат в целое и обиделся когда у него не вышло

. Ошибка - ловушка.

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@danhost 0 / 0 / 1 Регистрация: 30.09.2006 Сообщений: 269

	Скролл формы???? 09.09.2007, 18:45. Показов 2556. Ответов 16 Метки нет (Все метки) Делаю скролл формы . Один picturebox1 в другом picturebox2 и вертикальный скролл. picturebox2 прокручиваю в picturebox1 и при этом меняю свойство Top которое ограничивается типом integer и из-за этого не могу проскролить всю картинку. Есть у кокие-то идеи? Спасибо! 0

@Yashik 0 / 0 / 0 Регистрация: 01.07.2007 Сообщений: 40
	09.09.2007, 19:04
	Mojet bit' ya ne ponyal voprosa,no u menya vot takya strochka perkrasno rabotaet i vidno vsyu kartinku: Picture2.Top = -VScroll1.Value 0

@danhost 0 / 0 / 1 Регистрация: 30.09.2006 Сообщений: 269
	09.09.2007, 19:10 [ТС]
	У меня та же строка, -32724 максимальное значение для top! 0

@Леон 0 / 0 / 1 Регистрация: 28.07.2007 Сообщений: 177
	09.09.2007, 20:17
	Проблема не в Top, а в property Min, Max у скролбара. Если тебе нужны значения выходящие за рамки области Integer, нужно использовать множитель: Picture2.Top = -VScroll1.Value * 5 При большом множителе картинка естественно будет двигаться рывками. Можно изобразить что-то типа второго скролбара для 'точной настойки' между рывками, например: Picture2.Top = -VScroll1.Value * 50 - VScroll2.Value 0

@danhost 0 / 0 / 1 Регистрация: 30.09.2006 Сообщений: 269
	09.09.2007, 20:31 [ТС]
	Но ведь Top дойдет до 32767 рано или поздно, даже и при picInnerTree.Top = -VScrollTree.Value * 5 только это быстрее будет 0

@Леон 0 / 0 / 1 Регистрация: 28.07.2007 Сообщений: 177
	09.09.2007, 20:46
	Насколько я понимаю, Top не ограничивается целым! Попробуй. 0

@danhost 0 / 0 / 1 Регистрация: 30.09.2006 Сообщений: 269
	09.09.2007, 21:07 [ТС]
	Да дает ошибку Overflow!!! 0

@Ant__ 0 / 0 / 0 Регистрация: 16.08.2007 Сообщений: 145
	10.09.2007, 19:18
	Попробуй 3-й picturebox 0

@Леон 0 / 0 / 1 Регистрация: 28.07.2007 Сообщений: 177
	10.09.2007, 19:31
	picInnerTree.Top = -40000 у меня работает без проблем. Какой у тебя VB? 0

@danhost 0 / 0 / 1 Регистрация: 30.09.2006 Сообщений: 269
	10.09.2007, 19:34 [ТС]
	Ну и что? Не вижу идеи 0

@Леон 0 / 0 / 1 Регистрация: 28.07.2007 Сообщений: 177
	10.09.2007, 19:42
	Я работаю с VB6 на W2K, возможно у старого VB или на другой операционке другие ограничения. Напиши, можно будет проверить. 0

@danhost 0 / 0 / 1 Регистрация: 30.09.2006 Сообщений: 269
	10.09.2007, 19:59 [ТС]
	Я работаю на VB6 под NT. Попробовал picInnerTree.Top = -70000 и все OK! Top хавает это начение, но вот когда пишу picInnerTree.Top = -VScrollTree.Value * 5 дает OverFlow! 0

@Леон 0 / 0 / 1 Регистрация: 28.07.2007 Сообщений: 177
	10.09.2007, 20:01
	И что у тебя в момент ошибки сидит в VScrollTree.Value ? 0

@danhost 0 / 0 / 1 Регистрация: 30.09.2006 Сообщений: 269
	10.09.2007, 20:10 [ТС]
	Только что проверил picInnerTree.Top = -VScrollTree.Value * 2 VScrollTree.Value =16524 помноженное на 2 и получаем overflow Не фига не понимаю???!!!! 0

@Леон 0 / 0 / 1 Регистрация: 28.07.2007 Сообщений: 177
	10.09.2007, 20:22
	Попрпбуй так: picInnerTree.Top = -VScrollTree.Value * 2# сообщи результат 0

@danhost 0 / 0 / 1 Регистрация: 30.09.2006 Сообщений: 269
	10.09.2007, 20:28 [ТС]
	Спасибо работает!!!! А в чем собственно проблема была, Leon ?? Объясни если не трудно! 0

@Леон 0 / 0 / 1 Регистрация: 28.07.2007 Сообщений: 177
	10.09.2007, 20:44
	picInnerTree.Top как я и думал не ограничен рамками целого. Проблема была в арифметике VB. В случае, если оба параметра в выражении одного типа, VB попытается получить результат того-же типа. VB НЕ УМЕЕТ делать автоматическое расширение типа. Поэтому при умножении двух целых он попытался засунуть результат в целое и обиделся когда у него не вышло . Ошибка - ловушка. 0