بارك الله فيك
بنسبة للمديول استعملته من قبل لاكن لايوفي بطلب
وكدلك برنامج Irfanview فهو ممتاز في تغيير حجم صورة
مشكلتهم هي في كل مرة وجب نغيير اسم الصورة
المشكل هو قبل حفظ صورة يجب تغيير اسم صورة
فحاولة اعدل على الموديول
Public Sub ResizeImage_launch()
If ResizeImage("C:\Users\mostafa\Documents\tt\Pic\1.jpg", "C:\Users\mostafa\Documents\tt\Pics\1.jpg", True, 150, 150) Then
MsgBox "Image Resized Successfully!", , "Success"
Else
MsgBox "ResizeImage() Failed!", , "Error"
End If
End Sub
لتكون القيمة من اسم صورة الموجودة نمودج
لكن لم اتمكن
وردا على استادنا السيد جعفر
نعم عند حفظ الصورة تكون بمقاس ثابت
اريد موديول لتحميل صورة وحفظها بمقاس محدد