تغيير سايز عكس

[reza87]

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

[mojtabamalaekeh]

تو 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

[asoft]

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