سلام.
من برنامه‌اي نوشته‌ام كه با دستور Picture1.Pset، نقاطي را بر روي يك PictureBox چاپ مي‌كند. حالا يك سوال دارم: چگونه من اين پيكچرباكس را در قالب يك فايل تصويري (با فرصت JPG, BMP, ...) ذخيره كنم؟
من از ويژوال بيسيك 6 استفاده مي‌كنم.
سپاسگزارم. :10:
این کد SavePicture picture1.Image, "d:\1.bmp" را بنویس.
شرمنده، ولي عكسي كه مي‌سازه اصلا شبيه اون چيزي نيست كه درون پيكچرباكس هست.نقل قول:
بهرحال ممنون. :10:
سلام پهلوون
بفرما اینم راه حل:
راستی نگفتی مشکل قبلیت حل شد یا نه؟ (جواب وی ام هم که ندادی!)کد:Picture1.AutoRedraw = True
SavePicture Picture1.Image, "c:\thePicture.bmp"
موفق باشید :11:
سپاسگزارم. مشكل حل شد.نقل قول:
مشكل قبلي هم شكر خدا حل شد. ازتون خيلي ممنونم.
وي ام منظورتون همون پيام خصوصي هست؟ به خدا من كه چيزي دريافت نكردم؟! (لابد اشتباهي شده)
بهرحال ازتون خيلي ممنونم. اميدوارم هركجا هستيد تندرست و شادمان باشيد. :10:
visitor message منظورم بود. بهر حال اشکالی نداره. الان دیگه گفتید که حل شده خیالم راحت شد.
خواهش میکنم. وظیفم بود.نقل قول:
بهرحال ازتون خيلي ممنونم.
شما هم همچنین :11:نقل قول:
اميدوارم هركجا هستيد تندرست و شادمان باشيد.
سلام دوستان یه مشکل مشابه همون بالایی :
وقتی از PSet برای نقطه گذاری استفاده میشه و وقتی در PictureBox نقاط رو با Step می ذاری این راه شما جواب نمیده یعنی برنامه بعد از رسم خط و هر چیز دیگر با استفاده از نقطه گذاری Autoredraw رو False میکنه و بعد از Save کردن فقط پس زمینه یا رنگ PictureBox رو نشون میده نه نقاط رو . یعنی بعد از رسم شکل به طور کامل همراه Step برنامه از قسمت کشیده شده عکس نمی کشه ....
حالا کسی هست کمک کنه ...
آقا کسی نشد پیدا برای حل این پست ما ....
اقا این step چیه میتونی یه خورده توضیح بدی؟؟؟(آخه خیلی وقته vb کار نکردم)
من امتحان کردم ولی اینطور که شما میگید نبود. یه جوراییم نمیتوشه این حرف رو که برنامه خودش بعد رسم Autoredraw رو False میکنه رو قبول کنم.نقل قول:
اینم لینک برنامه.
کد:http://sefr01.persiangig.com/pset.zip
یکی از آرگومانهای pset هستش (Optional) :نقل قول:
اقا این step چیه میتونی یه خورده توضیح بدی؟؟؟(آخه خیلی وقته vb کار نکردم)
حالا کد زیر رو یه نگاه بنداز:کد:Picture1.Pset Step(100,100)
با این کد ما در اصل 100 تا نقطه در مختصات 100 و 100 ایجاد میکنیم ولی به دلیل استفاده کردن از Step این نقاط روی هم نمیوفتن. Step میاد برای نقطه جدید مختصات نقطه اول رو با مختصات نقطه ای که الان بهش دادی رو با هم جمع میکنه و نقطه رو در مختصات به دست اومده چاپ میکنه. مثلا تو قطعه کد بالا نقطه دوم تو مختصات 200 و 200 چاپ میشه و ..... (امیدوارم خوب توضیح داده باشم.)کد:For i = 1 To 100
Picture1.PSet Step(100, 100)
Next i