PDA

View Full Version : جابجای عکس در picture box



mostafaserial
یک شنبه 30 خرداد 1389, 21:49 عصر
سلام
من میخوام بعد از اینکه یه عکس رو توی picture box لود کردم عکس در موقعیت خاص روی picture box باشه توجه کنین روی پیکچر باکس که من با دو تا دگمه عکس روی پیکچر باکسو جابجا کنم.در حالت عادی عکس به یه گوشه میچسبه لطفا کمک کنین

aryasoft2872
دوشنبه 31 خرداد 1389, 18:34 عصر
با استفاده از تابع BITBLT می تونید عکس رو در موقعیت موردنظر رسم کنید.

parselearn
دوشنبه 31 خرداد 1389, 19:13 عصر
نمونه اين صفحه با تغييرات زير:
http://barnamenevis.org/forum/showthread.php?t=148739



Picture2.PaintPicture Picture1.Picture, 500, 500, Picture2.ScaleWidth, Picture2.ScaleHeight
SavePicture Picture2.Image, "c:\test.bmp"

mostafaserial
دوشنبه 31 خرداد 1389, 21:05 عصر
سلام
میتونی این کد رو تو نمونه که گزاشتم بزاری؟
ممنون

parselearn
سه شنبه 01 تیر 1389, 00:17 صبح
Dim l As Integer
Dim t As Integer
Dim v As Integer

Private Sub Command1_Click()
Picture2.Cls
l = l - v
Picture2.PaintPicture Picture1.Picture, t, l, Picture1.ScaleWidth, Picture1.ScaleHeight

End Sub

Private Sub Command2_Click()
Picture2.Cls
l = l + v
Picture2.PaintPicture Picture1.Picture, t, l, Picture1.ScaleWidth, Picture1.ScaleHeight

End Sub

Private Sub Command3_Click()
Picture2.Cls
t = t - v
Picture2.PaintPicture Picture1.Picture, t, l, Picture1.ScaleWidth, Picture1.ScaleHeight

End Sub

Private Sub Command4_Click()
Picture2.Cls
t = t + v
Picture2.PaintPicture Picture1.Picture, t, l, Picture1.ScaleWidth, Picture1.ScaleHeight

End Sub

Private Sub Form_Load()
v = 100
End Sub