Прокрутка изображения

[Sirik]

Как в одной картинки прокрутить другую, причём вторая по размерам большей первой.
Оба элемента Picture

P.S. Где-то видел пример с Масяней, но только не помню где

[Akella]

Попробуй использовать BitBlt

[Sirik]

Попробуй использовать BitBlt

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

[Akella]

Так Чтоли

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

'СМотри:
'на форму:  2 PictureBox [pic1,Pic2] , 1 Scrollbar [HS], Check1 [ch]

'В форме:

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

Private Sub Ch_Click()
Pic1.Cls
Pic2.Cls
End Sub

Private Sub Form_Load()
Me.ScaleMode = 3
Pic1.ScaleMode = 3
Pic2.ScaleMode = 3
HS.Max = Pic1.ScaleWidth
Ch.Caption = "min in Max / Max in min"
End Sub

Private Sub HS_Change() 'Scroll
X1 = HS.Value ' Координата по х
'pic1 - Большая ; Pic2 - маленькая Картинки
If Ch.Value = 1 Then
Pic1.Cls
BitBlt Pic1.hDC, X1, 50, Pic2.ScaleWidth, Pic2.ScaleHeight, Pic2.hDC, 0, 0, _ vbSrcCopy
Pic1.Refresh
Else
Pic2.Cls
BitBlt Pic2.hDC, X1, 50, Pic1.ScaleWidth, Pic1.ScaleHeight, Pic1.hDC, 0, 0, _ vbSrcCopy
Pic2.Refresh
End If

[Sirik]

Вроде оно, счас буду пробовать. Спасибо

[Andrey Fedorov]

Могу рекомендовать глянуть на готовый cScrollBars.cls, пример применения есть на http://www.vbaccelerator.com/home/VB/Code/Libraries/Common_Dialogs/Hooked_Common_Dialogs/VB6_Common_Dialog_with_Picture_Preview.asp

Там все достаточно просто...

[Andrey Fedorov]

И еще ссылочка: http://www.vbaccelerator.com/home/VB/Code/Libraries/Subclassing/Adding_Scroll_Bars_To_Forms__PictureBoxes_and_UserControls/article.asp

[Mikle]

Народ, ВЫ ЧЕ!!!
Не проще ли просто в цикле менять Left (или Top) второй картинки?