السلام عليكم ورحمة الله وبركاته
اخوانى الكرام
يوجد وظيفة تابعة لل API لا أتذكر اسمها
كانت تعمل Print Screen للشاشة
وايضا ممكن تعمل Print للنافذة أو الفورم النشطة
و ابحث عن اسمها لكن دون جدوى
فهل أحد يعرفها و شكرا
وعليكم السلام ورحمة الله وبركاته
هذا كود يعتمد على الصور و الرسم
كود :
Imports System.Drawing.Imaging
الكود / لتصوير النافذة - أو تصوير ما خلف النافذة :
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' تصوير الشاشة بدون النافذة
Dim t1 As Int32 = Top
Top = 2000 ' تنزيل النافذة لتصوير ما خلفها
Dim bmp1 As Bitmap = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
Dim g1 As Graphics = Graphics.FromImage(bmp1)
g1.CopyFromScreen(0, 0, 0, 0, bmp1.Size)
bmp1.Save("PSc01.png", ImageFormat.Png)
Process.Start("PSc01.png") ' لفتح الصورة بعد الحفظ
Top = t1 ' ارجاع النافذة لمكانها قبل التصوير
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
' تصوير النافذة
Dim bmp1 As Bitmap = New Bitmap(Width - 14, Height - 6)
Dim g1 As Graphics = Graphics.FromImage(bmp1)
g1.CopyFromScreen(Left + 7, Top, 0, 0, bmp1.Size)
bmp1.Save("PSc02.Png", ImageFormat.Png)
Process.Start("PSc02.Png") ' لفتح الصورة بعد الحفظ
End Sub