با سلام خدمت تمامی عزیزان
سؤال من اینه که چه طوری میشه عکسی که در جعبه تصویر رسم کرده ام(با دستورات Pset,line,circle) ذخیره کرد
پیشاپیش از شما قدر دانی می نمایم
Printable View
با سلام خدمت تمامی عزیزان
سؤال من اینه که چه طوری میشه عکسی که در جعبه تصویر رسم کرده ام(با دستورات Pset,line,circle) ذخیره کرد
پیشاپیش از شما قدر دانی می نمایم
فکر کنم منظورت این باشه:
SavePicture Picture1.Picture, "C:\LaGoN666.jpg"
یه کاری می شه کرد از کد زیر استفاده کن
dim st as dodb.stream
البته رفرنسش یادم نیست
بعد St رو باز می کنی و عکس رو داخلش میریزی بعدش داخل یه فایل قرار می دی و اون فایل رو در بانک داده ات ذخیره می کنی بعدش kill می کنی فایل رو فهمیدی
اگه نفهمیدی Email بده چون من فقط امیل رو چک می کنم تو سایت ها نمی رم
Eridk007@yahoo.com
شاید 2 روز دیگه کد کاملش رو mail کنم پس مسیج بفرست
bye
به جای directory Address باید آدرس فایل خود را بنویسید . البته باید \ را فراموش نکنید .نقل قول:
SavePicture Picture1.Picture, "directory Address\"+"name"+"format"
به جای name نام برای عکس انتخاب کنید .
به جای format هم هر فرمتی خواستی به این صورت بنویسید :
"jpg." یا "gif." یا "bmp." یا هر چیز دیگری ....
اینم یه مثال:نقل قول:
Dim x As IPictureDisp
Set x = نام پیکچر باکس.image
SavePicture x, "محل فایل"
نقل قول:
Dim x As IPictureDisp
Set x = Picture1.Image
SavePicture x, "e:\1.jpg"
اگر درست حدس زده باشم شما باشد picture1.AutoRedraw=true
باشد :تشویق:
این تاپیک از 3 سال پیش هست . یک شنبه 11 تیر 1385 !!!!!!!!!!!!!!!!!!!!!!!!!!!