16-06-20, 04:18 AM
PHP كود :
Public Class Form1
Dim p1 As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\p1.png"
Dim p2 As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\p2.png"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim w As Integer = Me.Width
Dim h As Integer = Me.Height
Dim bmp As New Bitmap(w, h)
Dim n As New Point(0, 0)
Dim rec As New Rectangle(n, Me.Size)
Me.DrawToBitmap(bmp, rec)
bmp.Save(p1, Imaging.ImageFormat.Png)
Process.Start(p1)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim w As Integer = Me.Width
Dim h As Integer = Me.Height
Dim bmp As New Bitmap(w, h)
Dim n As New Point(0, 0)
Dim s As New Size(w, h)
Dim g As Graphics = Graphics.FromImage(bmp)
g.CopyFromScreen(Me.Location, n, s)
bmp.Save(p2, Imaging.ImageFormat.Png)
Process.Start(p2)
End Sub
End Class
استخدام كود draw يصور الفورم كانه بويندوز 7
اما الاخر فكما يظهر بويندوز 10
تحياااتي