اخذ لقطة لبيكشر

أهلا بك بالمنتدى.

ما هو الكود الذى تستخدمه لنعدل عليه.

عموما لا تنسى ضبط خاصية AutoRedraw على True و راجع الـ Documentations الخاصة بالأمر SavePicture

SavePicture(Picture As IPictureDisp, FileName As String)

تعديل : و لا تنسى :

PictureBoxName.Picture = PictureBoxName.Image

السلام عليكم انا مشكالتى مشابه انا عايزة اخد صورة من الديسك توب ودى كودها

Do

sendkey "[prtscn]"

Loop

الكود دية هياخد صورة من الديسك توب مش الصورة يعنى فى كود بياخد صورة الديسك توب يعنى لو انا مشغل فيلم فى الديسك توب هو بردة يصور الخلفية لكن كود سيندكى المعانا بيعمل عمل زر البرانت اسكرين بس انا ناقصانى انى اخزن الصورة دى فى قاعدة البيانات يعنىام بعمل رن للبرنامج مش بعرف الصورة الاخدها راحت فين هى فى الذاكرة بس انا مش عارفة اجيبها انا عايزو اخد منها كابى لدادة بيز

boke :

go to :

/index.ph...st&p=707533

السلام عليكم المزمجر شكرا على ردك وكودك فوق الممتاز بس انا عندى مشكلة انى مبرمج مبتدا يعنى مثلا مكتبة

user32

يشمعنا استعملت المكتبة دى يعنى لو هتعباك توضيح تفصيالى للكود

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

wScreen = Screen.Width \ Screen.TwipsPerPixelX

hScreen = Screen.Height \ Screen.TwipsPerPixelY

Picture1.ScaleMode = vbPixels

w = Picture1.ScaleWidth

h = Picture1.ScaleHeight

hdcScreen = GetDC(0)

r = StretchBlt(Picture1.hdc, 0, 0, w, h, hdcScreen, 0, 0, wScreen, hScreen, vbSrcCopy)

هو بصراحة فى مصطلحات انا مش فهمتها زى

TwipsPerPixelX وهكذا انا عارف انى هتعبك بس ليك جزيل الشكرا اخ مزمجر

بالنسبة لهذه المكتبات فهي موجودة في النظام والنظام يستمد منها هذه الخواص

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

و بالنسبة ل TwipsPerPixelX

لنت لما تروح تحط تيكست و تريد تغير ارتفاعه مثلا تعمل 10 تويب

يعني هي وحدات قياس

طول عرض ارتفاع ....

شكرا مزمجر على ردك رغم انى كنت بحاوال من الاسئلة تعلم التعامل مع دوال api

ولكن فكرة البرنامج المرفوع انى عايزة اسجل كل البيحدث على الكمبيوتر وبتالى كانت الفكرة انى هستخدم البرانت اسكرين واخد كابى من الصورة وانسخاها فى قاعدة البيانات بحيث تقدر تظهر عندى اكون سعيدة لو تقدر تساعدنى وشكرا على المتابعة

timer.rar

medofun كتب:

بسم الله الرحمن الرحيم

برجاء محتاج كود لاخذ صورة لمربع بيكتشر فقط بدون الشاشة او الفورمة

اريد استخدمة فى برامج رسم

انا عملت كود حفظ الصورة وتسجيلها لكن الصورة تحفظ بدون الرسم بتكون فارغة

اريد ان عمل كود لاخذ لقطة للصورة فقط بدون الفورم

شكرا جدا لكل من ساهم فى الرد على السؤال

الكود اللى انا محتاجة هو عبارة عن

حفظ الصورة بكل التاثيرات التى تم عملها مثل الكتابة على الصورة او تاثيرات اخرى مثل برنامج الفوتوشوب

يعنى انا بعمل ادراج صورة فى البرنامج واقوم بعمل بعض التاثيرات عليها وبغير فيها

لكن عند عمل حفظ للصورة بواسطة CommonDialog

تحفظ الصورة لكن بدون التاثيرات يعنى الصورة الاصلية تحفظ كما هى

برجاء محتاج مثال لعمل هذا نظرا لانى لسة مبتداء

السلام عليكم ورحمة الله وبركاته

لا أعرف أين المشكل في savepicture ؟

على العموم هناك مشروع جميل جدا يشبه الرسام يمكنك الاستفادة منه

VB PAINT FROM BASTR3

مع العلم أنه يستعمل أيضا savepicture للحفظ (لا يوجد كود سحري ) :)

على فكرة الكل فهم كلامي غلط

انا كنت بقصد انى اخذ لقطة لاطار البكتشر فقط بدون الفورم يعنى لو الفورم عليها اطار صورة وتم التعديل عليها واضافة بعض التاثيرات اليها

اريد ان اخذ لقطة للصورة مع التاثيرات اطار الصورة فقط بدون اطار الفورم

والحمدلله تم التوصل لفكرة وهى

جعل اطار الفورم مساوى تماما لاطار الصورة اثناء الحفظ

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

هل بكدة الكل فهم ما اقصد