02-05-2014، 12:40 PM
(آخرین تغییر در ارسال: 02-05-2014، 01:33 PM توسط Amin_Mansouri.)
درود
در این سورس یاد میگیرید که چگونه بر روی عکس زوم کنید و برعکس زوم هم انجام بدید (یعنی بزرگنمایی عکس و کوچک کردن عکس)
در این سورس یاد میگیرید که چگونه بر روی عکس زوم کنید و برعکس زوم هم انجام بدید (یعنی بزرگنمایی عکس و کوچک کردن عکس)
کد:
Public Sub ZoomPicture(pct As PictureBox, zoom As Double)
With pct
.Width = .Width * zoom
.Height = .Height * zoom
.PaintPicture .Picture, 0, 0, .ScaleWidth, .ScaleHeight
End With
End Sub
'usage (I had two buttons in control array)
Private Sub Command1_Click(index As Integer) '============================================
If index = 0 Then ZoomPicture Picture1, 1.1
Else
ZoomPicture Picture1, 0.9
End If
End Sub
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg