با سلام خدمت تمامی عزیزان
سؤال من اینه که چه طوری میشه عکسی که در جعبه تصویر رسم کرده ام(با دستورات Pset,line,circle) ذخیره کرد
پیشاپیش از شما قدر دانی می نمایم
با سلام خدمت تمامی عزیزان
سؤال من اینه که چه طوری میشه عکسی که در جعبه تصویر رسم کرده ام(با دستورات 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 !!!!!!!!!!!!!!!!!!!!!!!!!!!