[COLOR="#800000"]السلام عليكم
تفضلي:
ويجب اضافة مجال الاسماء Imports System.Drawing.Imaging
بالتوفيق ان شاءالله[/COLOR]
تفضلي:
PHP كود :
Dim bitmap As Bitmap = TryCast(Image.FromFile("Your Image File"), Bitmap)
Dim newBitmap As New Bitmap(bitmap)
newBitmap.SetResolution(400, 400)''''Here you set the resolution
newBitmap.Save("NewName.jpg", ImageFormat.Jpeg)
ويجب اضافة مجال الاسماء Imports System.Drawing.Imaging
بالتوفيق ان شاءالله[/COLOR]
