как скролить картинку?

[Xaker_S]

Народ, привет!!!
Как можно скролить картинку?
Т.е. например картинка больше чем Image. Когда скролишь она просматривается?

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

Вот самое тупое решение:

Делаешь на своей форме PictureBox. В него помещаешь Image, в который загржаешь свою картинку. Потом этот Image двигаешь, изменяя его Top и Left.

[Xaker_S]

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

[ALX_2002]

:( я немного не так выразился. Надо создать эффект типа в и играх.
Карту перемещать, только скролом.

Хм... Дядька поясника - Ты игруху с DirectX делаешь или через api вояешь какую нить простенькую ?
Если 2, то я расскажу как, а если с DirectX, то это те надо в другой раздел форума - где про DX всё обсуждают.

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

Ты похоже снова не так выразился
Что значит скроллить?
Перемещаешь ползунок на скроллбаре, либо подводишь мышь к краю рабочей области (типа autoscroll). Возможны еще варианты. Программа же в ответ на это перемещает картинку так, чтобы показать нужную ее часть.
Как картинку переместить - я сказал. Что еще требуется?

[Xaker_S]

Именно так, делаю игруху. Но надо чтобы карту можно было двигать: лучше если стрелками клавы.

[Лёха_Virus]

попутно вопрос: как загрузить картинку в пикчу например и чтоб она автоматически размер уменьшила до размеров пикчи

[vovchikxxx]

Вот те прога картинку тянешь как в ACDsee давишь и тяянешь
А главное за границы не вйдет никогда!
Вот адрес
http://www.vovchikxxx.narod.ru/files/task.rar
Админам сорри за ссылку не смог добавить типа размер большой хотя 150 Кб

[Xaker_S]

Скачать то скачал. А извлечь неполучается. Пишет Неизвестный метод. нет файлов для извлечения. Помогите!!!

[vovchikxxx]

Во код формы целиком
На ней нужно только picture1 создать!
-------------------------------------------------------------------------
Option Explicit
Dim StartX, StartY As Long
Dim Moving As Boolean
Dim Flag As Single


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
StartX = X
StartY = Y
Moving = True
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If Moving = True Then
If Picture1.Left + X - StartX + Picture1.Width > Frame1.Width And X - StartX < 0 Or Picture1.Left + X - StartX < Frame1.Width - Frame1.Width And X - StartX > 0 Then
Picture1.Move Picture1.Left + X - StartX, Picture1.Top
End If
If Picture1.Top + Y - StartY + Picture1.Height > Frame1.Height And Y - StartY < 0 Or Picture1.Top + Y - StartY < Frame1.Height - Frame1.Height And Y - StartY > 0 Then
Picture1.Move Picture1.Left, Picture1.Top + Y - StartY
End If
End If
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Moving = False
End If
End Sub