بسم الله الرحمن الرحيم
أود السؤال عن كيفية التقط صورة لسطح المكتب للجهاز وتخزينها .. بحيث يقوم البرنامج عند الطلب منه بالتقاط صورة لسطح المكتب للجهاز ومن ثم يتم تخزينها في ملف.
والسلام عليكم ورحمة الله وبركاته
كيفية التقط صورة لسطح المكتب
مغلق
السلام عليكم و رحمة الله و بركاته
الحقيقة انا لا اعرف غرضك من ذلك ؟ هل تريد :
1- التقاط خلفية لسطح المكتب و طباعتها على النموذج ؟
و تكون كالتالى :
قم بنسخ الكود التالى و لصقه فى أعلى الصفحة اى الجزء الخاص بالتصاريح Declasration
Private Declare Function PaintDesktop Lib "user32" _
(ByVal hdc As Long) As Long
ثم قكم بعمل زرار كوماند و ليكن اسمه Command1 و قم بلصق هذا الكود فى الأكشن الخاص به
Private Sub Command1_Click()
PaintDesktop Form1.hdc
End Sub
و هذا هو الجزء الاول
2- هل تريد التقاط خلفية سطح المكتب و تخزينها فى ملف Bmp ؟
و لكن هذا يستلزم إضافة اداة تسمى ScreenCapture.ocx
ويكون ذلك كالتالى :
بعد إضافة هذه الاداة قم بعمل زرار كوماند و ليكن اسمه Command1 و قم بلصق الكود التالى فى الأكشن الخاص به
Private Sub Command1_Click()
ScreenCapture1.FileName = "Capture.bmp"
ScreenCapture1.StartCapture = True
End Sub
قم بإختيار ما تود فعله من هاتين الطريقتين
و اليك كل طريقة مرفقة بمثال كالتالى
و أرجوا أن لا تنسانى من خير الدعاء
بسم اللله الرحمن الرحيم
اخي ارجو منك توضيح الغرض من السؤال بالضبظ لكي استطيع إن شاء الله الافادة
هذا الموضوع مغلق.