المشاركات : 223
المواضيع 47
الإنتساب : Aug 2014
السمعة :
14
الشكر: 183
تم شكره 261 مرات في 126 مشاركات
السلام عليكم
لدي كود لاخذ سكرين للفورم بس بيبقا فيه فيديو شغال الشاشة بتبقا سوداء فانا عاوز اخد سكرين للفورم والفيديو اللى شغال يظهر
ده الكود
كود :
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)
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة :
26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
(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
المشاركات : 7,391
المواضيع 803
الإنتساب : Sep 2013
السمعة :
846
الشكر: 13249
تم شكره 18795 مرات في 4414 مشاركات
وعليكم السلام
حدد العنصر
PHP كود :
Dim w As Integer = Panel1.Width Dim h As Integer = Panel1.Height Dim bmp As New Bitmap(w, h) Dim g As Graphics = Graphics.FromImage(bmp) Dim n As New Point(0, 0) Dim s As New Size(bmp.Width, bmp.Height) g.CopyFromScreen(Panel1.PointToScreen(n), n, s) bmp.Save(p, System.Drawing.Imaging.ImageFormat.Png)
المتغير p مسار الصورة العنصر اللذي يتم تصويره panel1 انت ضع بدلا عنها wmp هذا حل حتى تجد حل افضل يعني يكون التصوير لـwmp
المشاركات : 223
المواضيع 47
الإنتساب : Aug 2014
السمعة :
14
الشكر: 183
تم شكره 261 مرات في 126 مشاركات
(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 لا يظهر وتظهر شاشة سوداء
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة :
26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
(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")
المشاركات : 223
المواضيع 47
الإنتساب : Aug 2014
السمعة :
14
الشكر: 183
تم شكره 261 مرات في 126 مشاركات
(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")
شكرا لك جدا والله انك مبدع
|