• 41 Vote(s) - 2.49 Average
  • 1
  • 2
  • 3
  • 4
  • 5
سورس کد زوم کردن بر روی عکس ویژوال بیسیک 6
#1
درود
در این سورس یاد میگیرید که چگونه بر روی عکس زوم کنید و برعکس زوم هم انجام بدید (یعنی بزرگنمایی عکس و کوچک کردن عکس)





Code:
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
  Reply
#2
  Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  سورس کدهای ویژوال بیسیک Amin_Mansouri 8 12,516 05-15-2017، 04:35 PM
Last Post: minarad69
  سورس کد شماره گیری از مودم (ویژوال بیسیک 6 ) Amin_Mansouri 1 5,125 05-07-2017، 06:54 PM
Last Post: alikorg
  چگونه فایل exe با ویژوال بیسیک بسازیم ؟ Amin_Mansouri 4 11,641 08-13-2015، 10:08 PM
Last Post: Amin_Mansouri
  مشکل با ارور ویژوال بیسیک aghamali 4 5,528 07-03-2015، 11:14 AM
Last Post: aaaaaaaaa
  سورس کد کار با وب کم (ویژوال بسیک 6) Amin_Mansouri 1 7,019 04-20-2015، 10:10 PM
Last Post: hackert41389
  مشکل با paste بیسیک 6 aghamali 1 2,237 01-18-2015، 08:53 PM
Last Post: aghamali
  ....... کردن دیتا گرید aghamali 4 3,621 11-15-2014، 10:50 AM
Last Post: aghamali
  2 مشکل بیسیک 6 در ویندوز سون aghamali 3 5,507 11-07-2014، 04:25 PM
Last Post: aghamali
  سورس کد ذخیره میخوام روشنا 5 6,938 06-25-2014، 08:46 AM
Last Post: Amin_Mansouri
  دریافت سورس سایت بصورت یونیکد aleas 3 3,783 06-07-2014، 09:19 PM
Last Post: aleas

Forum Jump:


Users browsing this thread: 1 Guest(s)