وظيفة فى ال API - نسخة قابلة للطباعة

كود :
 

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