تحجيم الصور أو تغيير حجمها أمر مهم جداً خصوصاً في الويب من أجل توفثر الباندويث وتسريع الصفحه عند العرض

انا هنا لا اقصد الصور التي تكون في اصل تصميم صفحة الويب بل أقصد الصور التي يضيفها المستخدمون للموقع فلو عامل اصحاب المواقع صور المستخدمين بحجمها الاصلي لكانت كارثه عليهم جميعاً فجهاز المستخدم سيستهلك الكثير من الانترنت في تحميل صورة هو في غنا عنها وصاحب الموقع سيحتاج مساحات تخزين أكبر من المتوقع للصور فقط .

تطبيق اليوم سيكون على مركز رفع صور في موقع بتقنية asp.net vb.net

سنقوم بإنشاء enum يحمل قيم افتراضية لاحجام الصور التي قد نستخدمها في موقعنا

	Enum imgsize
		smal = 100
		mudim = 300
		larg = 700
		xlarg = 1000
		xxlarg = 1500
	End Enum

الان سنقوم بعمل داله من نوع bitmap تستقبل بارامترين الاول كائن من نوع Bitmap والثاني من  نوع Enum imgsize الخاص بنا

	Private Function editsize(ByVal p As Bitmap, ByVal size As imgsize) As Bitmap
		Dim pic As New Bitmap(p, New Size(size, size))
		Return pic
	End Function

تجربة المثال سنقوم بتجربته داخل فورم ويب يوجد به مركز لرفع الصور

نقوم بإختيار صورة ورفعها .

بعد عملية الرفع سنلاحظ أن حجم الصورة قد تقلص بشكل كبير (الاصل في اليمين )

إليك كيف استخدمنا الداله السابقه بشكل عملي

ختاماً نسئلكم الدعاء ليمننا الحبيب