السلام عليكم ورحمة الله وبركاته
بعد وضعي للموضوع :
للباحثين والمطورين إطار جيد يهمكم Very Special FrameWork
رأيت أنه أصدقاء الVB.NET قد يجدو أن الأمر لا يهمهم 
ولكي نتمتع بقدرات هذه المكتبة أردت أن أضع شرح بسيط لاستعمال الفضاء AForge.Imaging المخصص لمعالجة الصور
طبعا يتطلب الأمر تثبيت الحزمة أو ادراج الملفات الموجودة في المرفق ضمن مجلد Debug للمشروع
ننشئ برنامج جديد على الVB.NET ثم نضيف مرجع للفضاء الذي سنستعمله
الموجود في الملف AForge.Imaging.dll (موجود في الملف السابق لمن لم يحمل المكتبة كاملة)
نقوم بانشاء تطبيق يكون بالشكل التالي هدفه هنا فقط تطبيق 3 تأثيرات فقط على صورة
بعد اضافة المرجع نستدعي الفضاء الذي سيتم العمل به وهو :
Imports AForge.Imaging
عمل تأثير رمادي على الصورة
نقوم أولا بتخزين الصورة الاساسية الموجودة في الPictureBox
Dim SourceImg As Bitmap = New Bitmap(PictureBox1.Image)
نعرف فلتر يقوم بالعملية من النوع Grayscale مع العلم أنه يوجد أكثر من نوع
Dim filter As Filters.Grayscale = New Filters.Grayscale(0.11, 0.59, 0.3)
نخزن النتيجة بتطبيق الفلتر داخل صورة جديدة ثم نقوم بعرضها مرة أخرى في نفس الصورة
Dim newImage As Bitmap = filter.Apply(SourceImg) PictureBox1.Image = newImage.GetThumbnailImage(SourceImg.Width, SourceImg.Height, Nothing, Nothing)
بنفس الطريقة نطبق باقي الفلاتر بتعريف الفلتر المناسب
بالنسبة للعكس invert
Dim filter As Filters.Invert = New Filters.Invert()
بالنسبة للتدوير بزاوية 45 نعرف الفلتر بالشكل
Dim filter As Filters.RotateBilinear = New Filters.RotateBilinear(45)
بالتوفيق للجميع وكل رمضان وانتم بخير
