طريقة حفظ الصورة الموجودة في Picture1

بدأه albahr في 8 مارس 2008 · 6 رد · 869 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#18 مارس 2008 في 17:30 صاحب الموضوع

السلام عليكم ...

إعذروني فأنا غير محترف في vb6

وجدت كود يأخذ صورة لسطح المكتب .... وهو

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

Private Sub Command1_Click()
PaintDesktop Picture1.hdc
End Sub

ولكن أرغب في حفظ الصورة الناتجة من التصوير الموجودة في Picture1 كيف يمكن ذلك مع العلم أنني حاولت أن أبحث ولكن لم أستطيع أن أصل إلى حل ...

وشكرا لكم...

#28 مارس 2008 في 18:19

m = SavePicture(Picture1.Picture, "c:\p.bmb")

#38 مارس 2008 في 18:39

شكرا أخي ...

ولكن عندما جربت حصل خطأ... لو تتحفنا بمثال..... وشكرا مرة أخرى...

#48 مارس 2008 في 19:32

SavePicture Picture1.Image, "C:\123.bmp"

...

سبحان الله وبحمده ... سبحان الله العظيم

#58 مارس 2008 في 20:44

شكرا جزيلا ...

SavePicture Picture1.Image, "C:\123.bmp"

نعم يقوم بحفظ الصورة ولكن ليست الصورة التي أخذت عن طريق

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

Private Sub Command1_Click()
PaintDesktop Picture1.hdc
End Sub

وإنما صورة فاضية ....

المثال في المرفقات...

فهل من حل آخر ....

تم تعديل هذه المشاركة بواسطة albahr في 8 مارس 2008 في 20:59

#68 مارس 2008 في 23:01

غير خاصية AutoDraw

#79 مارس 2008 في 10:42

القيمة الإفتراضية لهذه الخاصية هي False عند تغييرها إلى True لا تظهر الصورة التي تم إلتقاطها لسطح المكتب بالطريقة....

PaintDesktop Picture1.hdc

تم تعديل هذه المشاركة بواسطة albahr في 9 مارس 2008 في 10:44