Прокрутка для Picture Box'a.

[DirectXManiac]

Есть Picture Box.В нём рисуються Shape'ы.В том числе и сетка.Как сделать прокрутку для него?Лучше кончно без использование скроллбаорв.Но сними тоже годиться.ПОЖАЛУЙСТА!

[Maitris]

А чем тебе Pic1.AutoSize плох?

[RUSYA]

2 скрола: (вертикальный и горизонтальный) и 2 пикчера: (с всей картинкой и для показа нужного кусочка), вот код для скролов:


Private Sub VScroll1_Change()
HScroll1_Change
End Sub
Private Sub VScroll1_Scroll()
HScroll1_Scroll
End Sub
Private Sub HScroll1_Change()
On Error Resume Next
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height, HScroll1.Value, VScroll1.Value, Picture2.Width, Picture2.Height
End Sub
Private Sub HScroll1_Scroll()
On Error Resume Next
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height, HScroll1.Value, VScroll1.Value, Picture2.Width, Picture2.Height
End Sub

[DirectXManiac]

Пойми Maitris - Я пишу редактор карт и в нём карта огромных размеров.Поэтому какй AutoSize? .Тем более у меня 3 пикчера.
[b]RUSYA[/b:]Мне не картинку надо прокручивать, а нарисованое в ней: сетку, и геометрические фигуры!

[alibek]

Пойми Maitris - Я пишу редактор карт и в нём карта огромных размеров.Поэтому какй AutoSize? .Тем более у меня 3 пикчера.

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

[Andrey Fedorov]

Пойми Maitris - Я пишу редактор карт и в нём карта огромных размеров.Поэтому какй AutoSize? .Тем более у меня 3 пикчера.

Сходи сюда:

http://vbaccelerator.com/home/VB/Code/Libraries/Subclassing/Adding_Scroll_Bars_To_Forms__PictureBoxes_and_UserControls/article.asp

[b]RUSYA[/b:]Мне не картинку надо прокручивать, а нарисованое в ней: сетку, и геометрические фигуры!

То бишь сетка и то что нарисовано у тебя должны прокручиваться поверх картинки?

[DirectXManiac]

Картинки внутри не существует.Picture Boxы это окна видов.В них рисуеться сетка и геометрия.и всё...

[DirectXManiac]

Спасибо за статью...!

[beat_swamp]

клевый компонент1 я его юзал примерно в такой же ситтуации (тоже огромные карты, шейпы и имадж боксы на картах)
http://www.neocomponents.com/fs.asp

[DirectXManiac]

Спаибо!Щас скачаю!

[Andrey Fedorov]

Спаибо!Щас скачаю!

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

[DirectXManiac]

Нет! Я скачал! Нормально!