+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: سورس کد زوم کردن بر روی عکس ویژوال بیسیک 6 (/showthread.php?tid=3465)
سورس کد زوم کردن بر روی عکس ویژوال بیسیک 6 - Amin_Mansouri - 02-05-2014
درود
در این سورس یاد میگیرید که چگونه بر روی عکس زوم کنید و برعکس زوم هم انجام بدید (یعنی بزرگنمایی عکس و کوچک کردن عکس)
کد:
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 SubRE: سورس کد زوم کردن بر روی عکس ویژوال بیسیک 6 - سلام - 04-26-2014
