[ تمت الإجابة ]Printscreen للشاشة بداخل Picturebox

بدأه walled_aall@hot في 16 يوليو 2009 · 3 رد · 617 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#116 يوليو 2009 في 19:56 صاحب الموضوع

السلام عليكم

هل في حل اقدر اخد بي برنت اسكرين للشاشة اوتومتك ويتحط جوه picturebox

???

www.acrowing.com

اول موقع عربي لرياضة التجديف

#216 يوليو 2009 في 23:54

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

أضف الـ Module الموجودة في المرفقات (MCaptureImages.bas) إلى المشروع، ثم ضع على الـ Form مكون PictureBox (مثلاً Picture1) و زر أمر (Command1 مثلاً) و Timer (مثلاً Timer1) ثم انسخ الكود التالي:

انسخ الكود

Private Capturing As Boolean
Private Sub Command1_Click()
Capturing = True
Me.Hide
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Picture1.ScaleMode = vbPixels
Picture1.AutoRedraw = True
End Sub
Private Sub Timer1_Timer()
Dim APic As StdPicture
If Capturing Then
Capturing = False
Picture1.Cls
Set APic = CaptureScreen
Picture1.PaintPicture APic, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
Set APic = Nothing
Else
Timer1.Enabled = False
Me.Show
End If
End Sub

ثم شغل البرنامج و انقر على الزر. ستختفي النافذة لمدة ثانيتين ثم تعود مع صورة الشاشة داخل الـ PictureBox.

ملاحظة: الخصائص المضبوطة داخل الإجراء Form_Load يمكنك ضبطها أثناء التصميم ثم حذف الإجراء Form_Load (وضعته فقط لبيان الخصائص التي تحتاج إلى تعديل).

أما الوحدة البرمجية MCaptureImages.bas فإنها تحتوي على مجموعة من الإجراءات المفيدة و المتعلقة بتصوير النوافذ (النافذة كاملة بإطارها و شريط عنوانها أو المساحة الداخلية فقط) أو الشاشة أو النافذة النشطة على الشاشة.

هذه الإجراءات وجدتها في الواقع ضمن تعليمات MSDN و قمت فقط بإجراء بعض التعديلات عليها.

MCaptureImages.rar

نرجو الاستفادة و السلام.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم