المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
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
تحياااتي
المشاركات : 144
المواضيع 59
الإنتساب : Feb 2020
السمعة :
17
الشكر: 144
تم شكره 209 مرات في 82 مشاركات
(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
تحياااتي
كود مميز من عضو مميز ربي يخليك بق الف صحه وسلامه
قل لن يصيبنا الا ماكتب الله لنا
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
(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
تحياااتي
كود مميز من عضو مميز ربي يخليك بق الف صحه وسلامه
التميز وجودك ومشاركتك بالموضوع.
تحياتي.
|