[سعود]

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

تحياااتي

[محمد ايمن]

(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

تحياااتي

كود مميز من عضو مميز ربي يخليك بق الف صحه وسلامه

[سعود]

(16-06-20, 10:38 PM)محمد ايمن كتب :

(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

تحياااتي

كود مميز من عضو مميز ربي يخليك بق الف صحه وسلامه

التميز وجودك ومشاركتك بالموضوع.
تحياتي.