تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لتغيير حجم الصورة
#1
كاتب الموضوع : AhmedEssawy


كود :
'following code resizes picture to fit
Dim bm As New Bitmap(PictureBox1.Image)
Dim x As Int32 'variable for new width size
Dim y As Int32 'variable for new height size
Dim width As Integer = Val(x) 'image width.
Dim height As Integer = Val(y) 'image height
Dim thumb As New Bitmap(width, height)
Dim g As Graphics = Graphics.FromImage(thumb)
g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
g.DrawImage(bm, New Rectangle(0, 0, width, height), New Rectangle(0, 0, bm.Width, _
bm.Height), GraphicsUnit.Pixel)
g.Dispose()

'image path. better to make this dynamic. I am hardcoding a path just for example sake
thumb.Save("C:\newimage.bmp", _
System.Drawing.Imaging.ImageFormat.Bmp) 'can use any image format
bm.Dispose()
thumb.Dispose()
Me.Close() 'exit app
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  قص جزء من الصورة Aly El-Haddad 3 1,035 07-07-13, 09:43 PM
آخر رد: kslawy
  مثال بسيط لتغيير طريقة استخدام اداة العنان Label مع الشرح RaggiTech 0 800 20-10-12, 11:50 AM
آخر رد: RaggiTech
  كود لجعل الصورة تتلآئم تلقائيا مع النموزج RaggiTech 0 286 17-10-12, 07:08 PM
آخر رد: RaggiTech
  كود لتغيير خلفية قرص و الأيكون الخاص به RaggiTech 0 257 17-10-12, 07:08 PM
آخر رد: RaggiTech
  لعكس ألوان الصورة RaggiTech 0 209 17-10-12, 06:07 PM
آخر رد: RaggiTech
  لتغيير لغة الكتابة الافتراضية للتطبيق RaggiTech 0 259 17-10-12, 06:05 PM
آخر رد: RaggiTech
  لتغيير دقة العرض Screen Resolution RaggiTech 0 451 17-10-12, 06:05 PM
آخر رد: RaggiTech
  لتغيير لون الخط والخلفية في Console Application RaggiTech 0 408 17-10-12, 05:27 PM
آخر رد: RaggiTech
  تحريك صورة 2 داخل حدود صورة 1 ( منع خروجها من الصورة 1 ) vb.net 2008 B3dak Hbebe 0 692 22-09-12, 08:24 PM
آخر رد: B3dak Hbebe

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم