عکس از صفحه نمایش در اندازه تعیین شده

[xrezax]

سلام
می خوام برنامه باشه که از صفحه دستکتاپ عکس بگیره و از بالا صفحه 5 سانت از پایین 5سانت از چپ 5سانت از راست 5سانت اینورتر عکس بگیره و پرینت کنه.
ممنون میشم با سورس توضیح بدید

[SlowCode]

سورس عکس گرفتن از صفحه توی سایت موجوده، شما فقط برش میدید و بعد اونو پرینت میکنید. خیلی ساده است.

[xrezax]

می خوام برنامه این کارو انجام بده. سورسی چیزی داری ممنونت میشم بزاری :قلب:

[محسن واژدی]

سلام علیکم
نمونه زیر نیز یک تصویر از زمینه ویندوز تهیه میکند که میتوانید بر حسب نیاز آنرا ویرایش کنید

موفق باشید

[xrezax]

این از کل صفحه عکس می گیره. من فقط میخوام دور تا دور عکسی که از تمام صفحه نمایش می گیره 5 سانت ببره و سیوش کنه. اگه پرینت هم کنه که عالیه

[محسن واژدی]

این از کل صفحه عکس می گیره. من فقط میخوام دور تا دور عکسی که از تمام صفحه نمایش می گیره 5 سانت ببره و سیوش کنه. اگه پرینت هم کنه که عالیه

بله، پیش فرض از کل زمینه عکس میگیرد که بایستی کمی ویرایشش کنید

موفق باشید

[MP.C-Writer]

می تونی با دو تا حلقه ی for ، به picturebox بگی که از فلان پیکس تا فلان پیکس رو سفید کنه بعد سیوش کنی.
یا می تونی اون قسمت هایی رو که می خوای با حلقه های فور، توی یه پیکچر باکس دیگه کپی کنی بعد اونو سیو کنی.
البته هر دو روش فشار زیادی به سی پی یو میاره. مخصوصا دومی/

[محسن واژدی]

APIی BitBlt در روال "Form1.camera" قرار دارد که تعداد پیکسل های مورد نظر را از مکان مشخص شده جدا میکند، تنظیمات مکان شروع، پهنا و ارتفاع را در این تابع انجام دهید

موفق باشید

[xrezax]

دوستان اگه می تونین فایل ضمیمه رو ایدیت کنید ممنون میشم . من زیاد سر در نیوردم :ناراحت:

[محسن واژدی]

نمونه زیر نحوه ی تنظیم کردن این تابع را نشان میدهد

موفق باشید

[xrezax]

مرسی از کمکت اما این جواب سوال من نبود.

وقتی در حالت عادی عکس می گیریم ( یعنی عکس شماره 1 ) عکس اینجوریه http://up.iranblog.com/images/01z664edqvsej9h1mj92.jpg

حالا می خوام اندازه های که از دور تا دور واسش تعریف می کنیم برش بدیم ( بازم می گم برش) بعد اینجوری سیو بشه http://up.iranblog.com/images/5hfhw8102eznphnkt41.jpg

اگه ممکنه سورس ایدیت کنید ممنون میشم

[M.T.P]

دوست من شما میتونی از PaintPicture برای برش عکس استفاده کنی.


Dim IntLeft, IntTop, IntButtom, IntRight As Long
IntLeft = 200
IntTop = 200
IntButtom = 200
IntRight = 200
Pbx2.PaintPicture Pbx.Picture, 0, 0, _
Pbx.ScaleWidth - (IntLeft + IntRight), _
Pbx.ScaleHeight - (IntTop + IntButtom), IntLeft, IntTop, _
Pbx.ScaleWidth - (IntLeft + IntRight), _
Pbx.ScaleHeight - (IntTop + IntButtom)

اینم یک نمونه:

[xrezax]

هر کاری کردم نتونستم تو برنامه عکس گرفتن جاش بدم . ممنون میشم زحمتشو بکشی.
راستی نمی شه کاری کرد کیفیت عکس بره بالاتر ؟؟؟؟؟

[محسن واژدی]

هر کاری کردم نتونستم تو برنامه عکس گرفتن جاش بدم

نمونه جناب M.T.P را ویرایش و یک دکمه جهت گرفتن عکس به آن اضافه شد همچنین عکس گرفته شده بجای جایگیری در PictureBox در زمینه فرم ظاهر میشود که با کلیک بر روی Cut بخش تعیین شده آن به PIctureBox مورد نظر منتقل میشود


نمی شه کاری کرد کیفیت عکس بره بالاتر ؟؟؟؟؟
کیفیت تصویر گرفته شده بصورت Bitmap است که این خود یک کیفیت مطلوب است

موفق باشید

[xrezax]

چطور سیوش کنم عکس خروجی رو ؟؟؟

[M.T.P]

چطور سیوش کنم عکس خروجی رو ؟؟؟

:عصبانی++::عصبانی++::عصبانی++:

SavePicture Pbx2.Image, "C:\1.bmp"