تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقتان لتصوير الفورم تختلف نتائجهما خصوصا بويندوز 10
#1
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 ObjectAs EventArgsHandles Button1.Click
        Dim w 
As Integer Me.Width
        Dim h 
As Integer Me.Height
        Dim bmp 
As New Bitmap(wh)
 
       Dim n As New Point(00)
 
       Dim rec As New Rectangle(nMe.Size)
 
       Me.DrawToBitmap(bmprec)
 
       bmp.Save(p1Imaging.ImageFormat.Png)
 
       Process.Start(p1)
 
   End Sub

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        Dim w 
As Integer Me.Width
        Dim h 
As Integer Me.Height
        Dim bmp 
As New Bitmap(wh)
 
       Dim n As New Point(00)
 
       Dim s As New Size(wh)
 
       Dim g As Graphics Graphics.FromImage(bmp)
 
       g.CopyFromScreen(Me.Locationns)
 
       bmp.Save(p2Imaging.ImageFormat.Png)
 
       Process.Start(p2)
 
   End Sub
End 
Class 
استخدام كود draw يصور الفورم كانه بويندوز 7 
اما الاخر فكما يظهر بويندوز 10

تحياااتي

نصيحة للتخفيف على قاعدة بيانات المنتدى  لا تخزن الصور الخاصة بالسؤال في قاعدة بيانات المنتدى

الرد
#2
(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 ObjectAs EventArgsHandles Button1.Click
        Dim w 
As Integer Me.Width
        Dim h 
As Integer Me.Height
        Dim bmp 
As New Bitmap(wh)
 
       Dim n As New Point(00)
 
       Dim rec As New Rectangle(nMe.Size)
 
       Me.DrawToBitmap(bmprec)
 
       bmp.Save(p1Imaging.ImageFormat.Png)
 
       Process.Start(p1)
 
   End Sub

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        Dim w 
As Integer Me.Width
        Dim h 
As Integer Me.Height
        Dim bmp 
As New Bitmap(wh)
 
       Dim n As New Point(00)
 
       Dim s As New Size(wh)
 
       Dim g As Graphics Graphics.FromImage(bmp)
 
       g.CopyFromScreen(Me.Locationns)
 
       bmp.Save(p2Imaging.ImageFormat.Png)
 
       Process.Start(p2)
 
   End Sub
End 
Class 
استخدام كود draw يصور الفورم كانه بويندوز 7 
اما الاخر فكما يظهر بويندوز 10

تحياااتي
كود مميز من عضو مميز ربي يخليك بق الف صحه وسلامه
Heart قل لن يصيبنا الا ماكتب الله لنا Heart
الرد
تم الشكر بواسطة: سعود
#3
(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 ObjectAs EventArgsHandles Button1.Click
        Dim w 
As Integer Me.Width
        Dim h 
As Integer Me.Height
        Dim bmp 
As New Bitmap(wh)
 
       Dim n As New Point(00)
 
       Dim rec As New Rectangle(nMe.Size)
 
       Me.DrawToBitmap(bmprec)
 
       bmp.Save(p1Imaging.ImageFormat.Png)
 
       Process.Start(p1)
 
   End Sub

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        Dim w 
As Integer Me.Width
        Dim h 
As Integer Me.Height
        Dim bmp 
As New Bitmap(wh)
 
       Dim n As New Point(00)
 
       Dim s As New Size(wh)
 
       Dim g As Graphics Graphics.FromImage(bmp)
 
       g.CopyFromScreen(Me.Locationns)
 
       bmp.Save(p2Imaging.ImageFormat.Png)
 
       Process.Start(p2)
 
   End Sub
End 
Class 
استخدام كود draw يصور الفورم كانه بويندوز 7 
اما الاخر فكما يظهر بويندوز 10

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

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

نصيحة للتخفيف على قاعدة بيانات المنتدى  لا تخزن الصور الخاصة بالسؤال في قاعدة بيانات المنتدى

الرد
تم الشكر بواسطة: محمد ايمن , محمد ايمن



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم