تقييم الموضوع :
  • 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

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

التميز وجودك ومشاركتك بالموضوع.
تحياتي.
الرد
تم الشكر بواسطة: محمد ايمن , محمد ايمن , Miloud


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [كود] إغلاق الفورم عن طريق زر Esc و التعامل مع CancelButton Anas Mahmoud 1 998 18-06-21, 07:15 PM
آخر رد: AymanRamadanSaad
Star [VB.NET] ثيمات لتغيير شكل الفورم 3booody 0 761 17-03-21, 09:26 PM
آخر رد: 3booody
  كود فتح واغلاق الفورم بطريقة جميلة 3booody 8 8,922 06-11-20, 08:29 PM
آخر رد: lion4
Lightbulb ايجاد عناصر الفورم من نوع معين ( PictureBox ) في List في سطر واحد Anas Mahmoud 0 607 22-09-20, 10:17 AM
آخر رد: Anas Mahmoud
  فتح الفورم DOX.1 1 1,570 04-03-20, 04:42 AM
آخر رد: محمد ايمن
  [كود] تحريك الكلام من عنوان الفورم و المربع+تحريك الكلمات في العنون و التكست محمد ايمن 2 1,151 04-03-20, 04:38 AM
آخر رد: محمد ايمن
  [VB.NET] اكواد التعامل مع الفورم : خلفية متدرجة للفورم بعدة طرق مختلفة علي بنيان 27 4,547 13-02-20, 01:00 PM
آخر رد: ابراهيم عمر ابراهيم
  [كود] توسيط الفورم سعود 2 1,509 13-09-19, 06:47 PM
آخر رد: سميـر
  كود تحريك الفورم من خلال سحبه بالماوس ahmadpal 1 2,443 10-11-18, 02:44 PM
آخر رد: الحمد لله
  كلاس بسيط لطباعة صورة الفورم silverlight 2 1,871 23-03-17, 03:22 PM
آخر رد: abdualla

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


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