ذخيره عكس دسكتاب

[fadakplus]

باسلام خدمت دوستان:
دوستان مي خواستم ازعكس پس زمينه دسكتاپ-----عكس بگيرم البته طوري كه اگر برنامه اي باز باشه عكس برنامه روي عكس دسكتاب نيفته(به عبارتي مخلوط نشوند)البته باتابعprintdesktopدقيقا فقط عكس دسكتاب گرفته مي شه ولي ذخيره نمي شه واگه خاصيت autoredrawفعال باشه عكس كلا ناپديدميشه
:قهقهه::قهقهه::قهقهه::قهقهه::� �هقهه::قهقهه::قهقهه::قهقهه::خ� �الت::خجالت::قهقهه::قهقهه::قه� �هه::قهقهه::خجالت::خجالت::خجا� �ت::قهقهه::قهقهه::قهقهه::قهقه� �::خجالت::خجالت::خجالت::خجالت: :قهقهه::قهقهه::قهقهه::قهقهه::� �هقهه:
باتشكر

[setroyd]

Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long




Private Sub Form_Paint()
PaintDesktop Me.hdc
End Sub
با این کد از روی صفحه ی form شما نمیره ولی اگه بخوای ذخیره کنی فرق داره این کد فقط باعث میشه که با کوچکترین تغییری دوباره باز سازی بشه رو hdc شما .

[arenaw]

زمانی که autoredraw فعاله شما باید یکبار هم refresh کنی پیکچر باکسو. (که واسه عکسای بزرگ خیلی به کار میاد)<<<< Picture1.refresh
بعد picture1.picture رو برابر picture1.image قرار بده (واسه زمانی که با تابع pset یا setpixel کار کرده باشی)
بعد خیلی راحت با save picture عکس رو سیو کن.<<<savepicture picture1.picture path