Не могу подобрать свойство к PictureBox

[XairOn]

Здравствуйте, у меня возникла такая проблема: есть изображение в PictureBox'е, но оно большое и всё не помещается, я хочу, что бы пользователь мог сам перетаскивать это изображение внутри PictureBox'а, а как это сделать я понять не могу, сначала думал менять своиства Top\Left, но они весь PictureBox перемещают, а мне нужно менять только координаты изображения внутри PictureBox'а. Как это можно сделать?

[alibek]

Изображение выводишь на Image, который размещен внутри PictureBox. И двигаешь Image.
Или же используешь скрытый Image (в качестве источника изображения), а в PictureBox используешь PaintPicture.

[XairOn]

Спасибо, оба способа канают, но есть одно "НО" — когда начинаешь перетаскивать картинку, получается не очень красивый эффект, а именно - левый верхний угол Image1 помещенного в PictureBox и содержащего картинку переносится в координаты курсора мыши, а нужно, что бы Image1 перемещался именно из той точки, из которой его начал перемещать пользователь. Как этого добиться?

[tyomitch]

При _MouseDown на Image1 сохраняй точку, куда ткнули. При _MouseMove вычитай её координаты из координат мыши.

[xolod]

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

[XairOn]

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

Нет насчет прокрутки не канает

И тут ещё одна проблемка возникла - когда я изображение перетаскиваю внутри PictureBox'а оно как бы мерцает т.е. видно как изображение перерисовывается, как этого избежать???

[KDima]

XairOn тебе поможет:

BitBlt


Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Перемещает битовый образ из контекста устройства источника в контекст устройства приемника. Если источник и приемник совпадают, то эту функцию можно использовать для повторения шаблона в произвольной точке.

Параметры:

hDestDC: Идентификатор контекста устройства приемника
x,y: координаты левого верхнего угла прямоугольника назначения.
nWidth, nHeight: Ширина и высота прямоугольника назначения и исходного битового образца.
hSrcDC: Идентификатор контекста устройства источника.
xSrc, ySrc: Координаты левого верхнего угла исходного битового образа.
dwRop: Код операции. Допустимые значения:

VbDstInvert - Инвертирует цвет в контексте приемника.

VbMergeCopy - Цвет полученного изображения определяется при помощи операции And над исходным цветом и цветом шаблона.
VbMergePaint - Цвет полученного изображения определяется при помощи операции Or над исходным цветом и цветом шаблона.
VbNotSrcCopy - Инвертируемое исходное изображение копируется в контекст приемника.

VbNotSrcErase - Инвертирует изображение, получаемое при помощи операции Or над исходным цветом и цветом в точке назначения.

VbPatCopy - Шаблон копируется в контекст приемника.

VbPatInvert - Цвет полученного изображения определяется при помощи операции Xor над цветом в точке назначения и цветом шаблона.

VbPatPaint - Цвет полученного изображения определяется при помощи операции Or над инвертированным цветом изображения и шаблоном.

VbSrcAnd - Цвет полученного изображения определяется при помощи операции Or над исходным цветом и цветом в точке назначения.
VbSrcErase - Цвет полученного изображения определяется при помощи операции And над исходным цветом и инвертированным цветом в точке назначения.

VbSrcInvert - Цвет полученного изображения определяется при помощи операции Xor над исходным цветом и цветом в точке назначения.

VbSrcPaint - Цвет полученного изображения определяется при помощи операции Or над исходным цветом и цветом в точке назначения.


А.Ю. Гарнаев, 2000
Visual Basic 6.0: Разработка приложений

[tyomitch]

Ну-ну... Волшебное средство от всех бед, BitBlt?

[KDima]

Ну-ну... Волшебное средство от всех бед, BitBlt?

А что, нет?!

Быстрее только DirectX BltFast

[tyomitch]

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

[KDima]

Непонял! В чём проблема?
По маус дауну мы запоминаем каорды
по маус муву вычисляем, что скопировать
BitBlt
по маус ап отстаём от пользователя

[tyomitch]

Проблемы нет... И с Image внутри PictureBox проблемы тоже нет. Зачем BitBlt-то?

[XairOn]

Да, тем более что BitBlt в данном случае не канает, как заметил tyomitch.

Я вопрос в этом топике уже задавал, но все же попробую ещё раз: такая проблема - когда я изображение перетаскиваю (Image внутри PictureBox'а), то видно как это изображение перерисовывается (т.е. мерцает) как этого можно избежать?

[KDima]

Да, тем более что BitBlt в данном случае не канает, как заметил tyomitch.

Я вопрос в этом топике уже задавал, но все же попробую ещё раз: такая проблема - когда я изображение перетаскиваю (Image внутри PictureBox'а), то видно как это изображение перерисовывается (т.е. мерцает) как этого можно избежать?

Возможно поможет перерисовка по таймеру, а не по маус муву.

[XairOn]

Возможно поможет перерисовка по таймеру, а не по маус муву.

Интересно, а это ещё как???

[KDima]

Легко!
По маус муву мы определяем вектор смещения.
А по таймеру два раза в секунду перемещяем на вектор имагу (блитим из нужного места)

[GM]

Вот и у меня была такая же проблема, карта не помещалась на экран, тока я ее вот так решил:

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

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Sub picMap_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lngReturnValue As Long
    If Button = 1 Then
        Call ReleaseCapture
        lngReturnValue = SendMessage(PicMap.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
    End If
End Sub


[XairOn]

GM API-Guide рулит
Отсюда вытекает другой вопрос, мне нужно, что бы картинка которую перетаскивает пользователь внутри PictureBox'а всегда польностью закрывала его, а то не красиво получается т.е. если например пользователь тащит картинку и координата её левого верхнего угла стала равна нулю (т.е. при дальнейшем перемещении виден PictureBox внутри которого это происходит) нужно запретить пользователю тащить её дальше. Вобщем взгляние на код и подскажите как сделать так, что бы картинка всегда полностью закрывала PictureBox:

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

'Picture2 должен находиться внутри Picture1
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam

As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lngReturnValue As Long
    If (Button = 1) And (f = True) Then
        Call ReleaseCapture
        lngReturnValue = SendMessage(Picture2.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
    End If
End Sub

Function f() As Boolean
f = True
If Picture2.Left + 15 >= 0 Then
Picture2.Left = -30
f = False
End If
If Picture2.Width - Abs(Picture2.Left + 15) <= Picture1.Width Then
Picture2.Left = Picture2.Left + 30
f = False
End If
If Picture2.Top + 15 >= 0 Then
Picture2.Top = -30
f = False
End If
If Picture2.Height - Abs(Picture2.Top + 15) <= Picture1.Height Then
Picture2.Top = Picture2.Top + 30
f = False
End If
End Function


Спасибо!!!

[XairOn]

KDima, таймер тоже не канает - каритнка мерцает и дергается ужасно

[GM]

Дык а вот такой тупой метод:
Private Sub picMap_MouseMove(Button As Integer,
Shift As Integer, X As Single, Y As Single)
static isdrag as boolean
Dim lngReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
lngReturnValue = SendMessage(PicMap.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
isdrag = true
else
if isdrag then
isdrag = false
restoreit
end if
End If

End Sub
[/code]
RestoreIt проверяtn все что нужно и возращает в угол.

[GM]

Вот и RestoreIt накатал:

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

Private Sub RestoreIt()
If picMap.Left < 0 Then picMap.Left = 0
If picMap.Top < 0 Then picMap.Top = 0
If picMap.Left > PicContainer.Width - picMap.Width Then picMap.Left = PicContainer.Width - picMap.Width
If picMap.Top > PicContainer.Height - picMap.Height Then picMap.Top = PicContainer.Height - picMap.Height
End Sub


[KDima]

KDima, таймер тоже не канает - каритнка мерцает и дергается ужасно

Я уже тестанул
Вердикт - ужас!


Попытался написать с BitBlt'ём....
Нефига!
У меня есть Пикчуры pic1 И pic2

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

BitBlt pic1.hdc, 1, 1, 100, 100, pic2.hdc, 1, 1, 0

Рисует стильные чёрные квадраты
Помогите! Что я делаю неправильно?

З.Ы. На мой мозг сказалась долгая работа с DirectX
З.Ы.Ы. Почему ничего нельзя закачать на форум?

[XairOn]

Рисует стильные чёрные квадраты

Так а нолик зачем в конец дописал, там константа нужна правильная, для копирования так вот будет:

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

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Const SRCCOPY = &HCC0020

Private Sub Pic1_Click()
BitBlt Pic1.hDC, 1, 1, 100, 100, Pic2.hDC, 1, 1, SRCCOPY
End Sub


[XairOn]

GM, я может чего-то не понимаю, вот сейчас например не могу понять чем твой код от моего отличается? Я нашел всего одно отличие, это то, что после того как каритнка перемещена и пользователь отпускает кнопку мыши картинка перемещается в правый нижний угол - а зачем??? Понимаешь, я хочу что бы пользователь вообще не мог перетащить картинку за пределы контейнера содержащего её? И что в моем, что в твоем коде этот глюк присутствует!

[XairOn]

Возникла ещё одна проблемка: как увеличить изображение находящееся в PictureBox'е? Width и Height увеличивают сам PictureBox, а изображение находящееся в нем не меняется! В данном случае Image не канает и функции типа PaintPicture, BitBlt, StretchBlt тоже не годятся. Надо его как-то по-другому растянуть.

[Amed]

Picture1.PaintPicture(...)

[KDima]

Математика!
Берём пиксель и рисуем его как два/полтора

Спасибо за ответ по чёрным стильным квадратам.

[XairOn]

Спасибо за ответ по чёрным стильным квадратам.

Всегда пожалуйста.

Математика!
Берём пиксель и рисуем его как два/полтора

А это как, простите!

[KDima]

Хех! Опять рисует чёрный квадрат!!!

[XairOn]

KDima, вот-вот.