السلام عليكم ورحمة الله وبركاتة
اعزائي الكرام انا عندي سوال ومستغرب اوي ... انا اريد اصغر حجم الصورة من 1024 الى 400 في الفيجوال بيسك نت
ممكن اعرف كيف يتم ذالك ؟
لتوضوح اكثر:
انا معاي صورة في D:/ammar/picture1.jpg حجمها على ما اعتقد 1024
full screen
انا اريد اصغر الحجم الى 400
يعني انا التقط صور لستطح المكتب وعندما ارسلها في برنامج على الانترنت تتئخر ممكن اعرف كيف اصغر الحجم حتي ترتسل بسرعة
هل من الممكن حل ذالك؟
تم تعديل هذه المشاركة بواسطة روح الفيجوال بيسك نت في 21 أغسطس 2007 في 16:35
if You.needhelp = true then
msgbox ("Never Ever Ask dam Question Before Searching in google")
Else
msgbox ("You are Doing Good")
End ifعلى العموم انا حصلت الحل وحبيت اطرحة لكم للافادة
Dim bmp As New Bitmap( _
"D:17.bmp" _
)
Dim bmp2 As New Bitmap( _
bmp.Width * 0.1, _
bmp.Height * 0.1, _
Imaging.PixelFormat.Format24bppRgb _
)
Dim g As Graphics = Graphics.FromImage(bmp2)
' Select/change interpolation mode here.
g.InterpolationMode = Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
' Draw image using specified interpolation mode.
g.DrawImage(bmp, 0, 0, bmp2.Width, bmp2.Height)
Me.PictureBox1.Image = bmp2
bmp2.Save("d:\foo.bmp")if You.needhelp = true then
msgbox ("Never Ever Ask dam Question Before Searching in google")
Else
msgbox ("You are Doing Good")
End ifهذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…