02-05-2014، 12:40 PM
درود
در این سورس یاد میگیرید که چگونه بر روی عکس زوم کنید و برعکس زوم هم انجام بدید (یعنی بزرگنمایی عکس و کوچک کردن عکس)
در این سورس یاد میگیرید که چگونه بر روی عکس زوم کنید و برعکس زوم هم انجام بدید (یعنی بزرگنمایی عکس و کوچک کردن عکس)
کد:
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
