[mmaalmesry]

السلام عليكم ورحمة الله وبركاته
اخوانى الكرام
يوجد وظيفة تابعة لل API لا أتذكر اسمها
كانت تعمل Print Screen للشاشة
وايضا ممكن تعمل Print للنافذة أو الفورم النشطة
و ابحث عن اسمها لكن دون جدوى

فهل أحد يعرفها و شكرا

[Taha Okla]

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

هذا كود يعتمد على الصور و الرسم

كود :

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

[mmaalmesry]

جزاكم الله خيرا