تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اخذ سكرين فقط للفورم
#1
السلام عليكم
لدي كود لاخذ سكرين للفورم بس بيبقا فيه فيديو شغال الشاشة بتبقا سوداء فانا عاوز اخد سكرين للفورم والفيديو اللى شغال يظهر
ده الكود
كود :
 Dim bmp As New Bitmap(Me.Width, Me.Height)
     Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))
     bmp.Save(My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & Me.Text & ".png", Imaging.ImageFormat.Png)
الرد }}}
تم الشكر بواسطة:
#2
(07-11-20, 10:00 PM)ميدو الفنان كتب : السلام عليكم
لدي كود لاخذ سكرين للفورم بس بيبقا فيه فيديو شغال الشاشة بتبقا سوداء فانا عاوز اخد سكرين للفورم والفيديو اللى شغال يظهر
ده الكود
كود :
 Dim bmp As New Bitmap(Me.Width, Me.Height)
     Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))
     bmp.Save(My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & Me.Text & ".png", Imaging.ImageFormat.Png)

و عليكم السلام

كود :
   Private Function CreateScreenshot(ByVal Control As Control) As Bitmap
       Dim Screenshot As New Bitmap(Control.Width, Control.Height)
       Control.DrawToBitmap(Screenshot, New Rectangle(0, 0, Control.Width, Control.Height))
       Return Screenshot
   End Function

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Capt As Bitmap
       Capt = CreateScreenshot(Me)
       Capt.Save("E:\trakktour.png", System.Drawing.Imaging.ImageFormat.Png)
       MsgBox("Saved Images")
   End Sub
الرد }}}
تم الشكر بواسطة: ميدو الفنان , سعود , سعود
#3
وعليكم السلام
حدد العنصر 

PHP كود :
       Dim w As Integer Panel1.Width
        Dim h 
As Integer Panel1.Height
        Dim bmp 
As New Bitmap(wh)
 
       Dim g As Graphics Graphics.FromImage(bmp)
 
       Dim n As New Point(00)
 
       Dim s As New Size(bmp.Widthbmp.Height)
 
       g.CopyFromScreen(Panel1.PointToScreen(n), ns)
 
       bmp.Save(pSystem.Drawing.Imaging.ImageFormat.Png
المتغير p مسار الصورة العنصر اللذي يتم تصويره panel1 انت ضع بدلا عنها wmp  هذا حل حتى تجد حل افضل يعني يكون التصوير لـwmp
الرد }}}
تم الشكر بواسطة: trakktour , trakktour
#4
(07-11-20, 11:33 PM)trakktour كتب :
(07-11-20, 10:00 PM)ميدو الفنان كتب : السلام عليكم
لدي كود لاخذ سكرين للفورم بس بيبقا فيه فيديو شغال الشاشة بتبقا سوداء فانا عاوز اخد سكرين للفورم والفيديو اللى شغال يظهر
ده الكود
كود :
 Dim bmp As New Bitmap(Me.Width, Me.Height)
     Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))
     bmp.Save(My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & Me.Text & ".png", Imaging.ImageFormat.Png)

و عليكم السلام

كود :
   Private Function CreateScreenshot(ByVal Control As Control) As Bitmap
       Dim Screenshot As New Bitmap(Control.Width, Control.Height)
       Control.DrawToBitmap(Screenshot, New Rectangle(0, 0, Control.Width, Control.Height))
       Return Screenshot
   End Function

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Capt As Bitmap
       Capt = CreateScreenshot(Me)
       Capt.Save("E:\trakktour.png", System.Drawing.Imaging.ImageFormat.Png)
       MsgBox("Saved Images")
   End Sub

للاسف مشغل vlc لا يظهر وتظهر شاشة سوداء
الرد }}}
تم الشكر بواسطة: trakktour , trakktour
#5
(07-11-20, 11:38 PM)ميدو الفنان كتب :
(07-11-20, 11:33 PM)trakktour كتب :
(07-11-20, 10:00 PM)ميدو الفنان كتب : السلام عليكم
لدي كود لاخذ سكرين للفورم بس بيبقا فيه فيديو شغال الشاشة بتبقا سوداء فانا عاوز اخد سكرين للفورم والفيديو اللى شغال يظهر
ده الكود
كود :
 Dim bmp As New Bitmap(Me.Width, Me.Height)
     Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))
     bmp.Save(My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & Me.Text & ".png", Imaging.ImageFormat.Png)

و عليكم السلام

كود :
   Private Function CreateScreenshot(ByVal Control As Control) As Bitmap
       Dim Screenshot As New Bitmap(Control.Width, Control.Height)
       Control.DrawToBitmap(Screenshot, New Rectangle(0, 0, Control.Width, Control.Height))
       Return Screenshot
   End Function

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Capt As Bitmap
       Capt = CreateScreenshot(Me)
       Capt.Save("E:\trakktour.png", System.Drawing.Imaging.ImageFormat.Png)
       MsgBox("Saved Images")
   End Sub

للاسف مشغل vlc لا يظهر وتظهر شاشة سوداء
تفضل 
جربت الكود و شغال 

كود :
       Dim graphic As Graphics = Nothing
       Dim location As Point = Me.Bounds.Location
       Dim width As Integer = Me.Bounds.Width + 8
       Dim bounds As Rectangle = Me.Bounds
       Dim bitmap As System.Drawing.Bitmap = New System.Drawing.Bitmap(width, bounds.Height + 8)
       graphic = Graphics.FromImage(bitmap)
       Dim x As Integer = location.X
       Dim y As Integer = location.Y
       graphic.CopyFromScreen(x - 5, y - 5, 0, 0, bitmap.Size)
       bitmap.Save("E:\trakktour.png", Imaging.ImageFormat.Jpeg)
       MsgBox("Saved Images")
الرد }}}
تم الشكر بواسطة: ميدو الفنان
#6
(07-11-20, 11:53 PM)trakktour كتب :
(07-11-20, 11:38 PM)ميدو الفنان كتب :
(07-11-20, 11:33 PM)trakktour كتب :
(07-11-20, 10:00 PM)ميدو الفنان كتب : السلام عليكم
لدي كود لاخذ سكرين للفورم بس بيبقا فيه فيديو شغال الشاشة بتبقا سوداء فانا عاوز اخد سكرين للفورم والفيديو اللى شغال يظهر
ده الكود
كود :
 Dim bmp As New Bitmap(Me.Width, Me.Height)
     Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))
     bmp.Save(My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & Me.Text & ".png", Imaging.ImageFormat.Png)

و عليكم السلام

كود :
   Private Function CreateScreenshot(ByVal Control As Control) As Bitmap
       Dim Screenshot As New Bitmap(Control.Width, Control.Height)
       Control.DrawToBitmap(Screenshot, New Rectangle(0, 0, Control.Width, Control.Height))
       Return Screenshot
   End Function

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Capt As Bitmap
       Capt = CreateScreenshot(Me)
       Capt.Save("E:\trakktour.png", System.Drawing.Imaging.ImageFormat.Png)
       MsgBox("Saved Images")
   End Sub

للاسف مشغل vlc لا يظهر وتظهر شاشة سوداء
تفضل 
جربت الكود و شغال 

كود :
       Dim graphic As Graphics = Nothing
       Dim location As Point = Me.Bounds.Location
       Dim width As Integer = Me.Bounds.Width + 8
       Dim bounds As Rectangle = Me.Bounds
       Dim bitmap As System.Drawing.Bitmap = New System.Drawing.Bitmap(width, bounds.Height + 8)
       graphic = Graphics.FromImage(bitmap)
       Dim x As Integer = location.X
       Dim y As Integer = location.Y
       graphic.CopyFromScreen(x - 5, y - 5, 0, 0, bitmap.Size)
       bitmap.Save("E:\trakktour.png", Imaging.ImageFormat.Jpeg)
       MsgBox("Saved Images")

شكرا لك جدا والله انك مبدع
الرد }}}
تم الشكر بواسطة: trakktour , trakktour


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب كود تغيير الالوان للفورم bilgacim 1 927 21-06-22, 08:32 PM
آخر رد: asmarsou
Question [سؤال] إضافة مربع بحث للفورم أحمد الغرباوي 5 1,700 14-03-22, 08:55 PM
آخر رد: أحمد الغرباوي
  مطلوب كود ضبط ابعاد الشاشة للفورم تلقائيا بعد الفتح ... bilgacim 4 1,723 16-02-22, 11:37 PM
آخر رد: محمود بكرى
  الرجوع للفورم الرئيسيةعند عدم تحريك الماوس لمدة معينة جيولوجي مبتدئ 7 1,768 25-07-21, 07:33 PM
آخر رد: ابراهيم ايبو
  كود زر refresh للفورم ممكن حل لو سمحتو ؟ fathy54654 6 2,247 11-07-21, 04:23 PM
آخر رد: asmarsou
  كود سكرين شوت تلقائي fathy54654 1 1,006 09-07-21, 06:01 PM
آخر رد: asemshahen5
  اريد طريقة لاتقاط سكرين شوت وحفظها تلقائي في مجلد من ملفات برنامجي 4545Mohamed 2 1,473 08-07-21, 01:00 PM
آخر رد: 4545Mohamed
  ممكن كود سكرين شوت masport tv 2 1,313 06-07-21, 09:19 AM
آخر رد: asmarsou
  [VB.NET] الرجوع للفورم الاول أم عمر 3 1,438 23-12-20, 10:50 PM
آخر رد: سعود
  [سؤال] اريد طريقة اظافة شريط متحرك للفورم vb2010 الرجل الطيب 2 6,734 02-05-20, 05:46 PM
آخر رد: habeb4all

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


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