حرکت دادن عکس در Picture Box

[mobin_co]

سلام دوستان
من میخوام بدونم چطور میشه به وسیله ماوس و بدون استفاده از نوار اسکرول یک تصویر را در Picture Box حرکت داد.
اگر دوستان کمک کنند ممنون میشم.

[Mbt925]

منظورتون از حرکت دادن چیه؟

[ermia2008]

سلام دوستان
من میخوام بدونم چطور میشه به وسیله ماوس و بدون استفاده از نوار اسکرول یک تصویر را در Picture Box حرکت داد.
اگر دوستان کمک کنند ممنون میشم.

سلام دوست عزیز.
منظورتون اینه که اگه عکس از pictureBox بزرگتر بود با گرفتن یه قسمت ازعکس با ماوس چه جوری به قسمت های دیگه عکس دسترسی داشته باشیم؟
اگه منظورتونو درست فهمیده باشم یه راهش اینه که در داخل pictureBox اصلی یه pictireBox دیگه هم داشته باشی که Left و top اون pictureBox داخلی رو تغییر بدید.
اگه خواستید بگید تا یه Sample براتون بنویسم.

[mobin_co]

با تشکر از دوستان . منظور من از حرکت دادن عکس اینه که با ماوس بر روی یک قسمت از عکس کلیک کنیم و آن را به جای دیگه دیگر بکشیم در خود Picture Box در حالی که عکس ما از Picture Box بزرگتر باشه

[mahmood744]

با تشکر از دوستان . منظور من از حرکت دادن عکس اینه که با ماوس بر روی یک قسمت از عکس کلیک کنیم و آن را به جای دیگه دیگر بکشیم در خود Picture Box در حالی که عکس ما از Picture Box بزرگتر باشه
دوست عزیز شما یک Picture1 می سازید به اندازه دلخواهکه می خواهید ببینید
سپس یک Picture2 می سازید که به انداز عکس تون می باشه
سپس با Drop Down به را حتی Picture2 را داخل Pictuer1 حرکت می دهید

این هم برنامه Drop Down

Dim iGrabX, iGrabY As Long
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X - iGrabX, Y - iGrabY
End Sub
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
iGrabX = X
iGrabY = Y
Picture2.Drag vbBeginDrag
End If
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Picture2.Drag vbEndDrag
End If
End Sub

[Mbt925]

کاری که شما می خواین ، با توابع API هم امکان پذیره ، که البته یکم مشکل تره.