ايران ويج

سلام.چطور ميشه با كدنويسي سايز يك عكس رو تغيير داد.باتشكر

تو VB فقط می تونی تصاویرت رو با فرمت BMP ذخیره کنی. مگر اینکه از کمپوننت های مخصوص فرمت های دیگه استفاده کنی.

تو قطعه کد زیر ثوابت MyWidth و MyHeight طول عرض دلخواهت هستند که عکس با این ابعاد ذخیره میشه.
InputFile آدرس تصویر ورودی هست و OutputFile آدرس تصویر خروجی که با اندازه دلخواهت ذخیره میشه.
باید یه PictureBox به اسم Picture1 هم بذاری روی فرم.

سؤالت رو هم باید بیشتر شرح میدادی.
از اونجایی که شرح کامل مسئله کار ساده ای نیست میتونی بگی که چه برنامه ای میخوای بنویسی و هدفت از این کار چیه.

کد: 
Private Sub Form_Load()

    Const MyWidth As Integer = 320, MyHeight As Integer = 240

    Dim InputFile As String, OutputFile As String

    InputFile = "c:\1.bmp"

    OutputFile = "c:\2.bmp"

    Me.ScaleMode = vbPixels

    Picture1.ScaleMode = vbPixels

    Picture1.AutoRedraw = True

    Picture1.Width = Picture1.Width - Picture1.ScaleWidth + MyWidth

    Picture1.Height = Picture1.Height - Picture1.ScaleHeight + MyHeight

    Picture1.PaintPicture LoadPicture(InputFile), 0, 0, MyWidth, MyHeight

    SavePicture Picture1.Image, OutputFile

End Sub

با سلام
كد گفته شده فقط سايز عكس رو تغيير ميده در صورتي كه من مي خوام كل عكس مثل فتوشاپ يعفي ميزان پيكسل هم تغيير كنه مشابه image size فتوشاپ OK
متشكرم

reza87

mojtabamalaekeh

asoft