+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مشروع] صنع برنامج تصوير الشاشه او SCREN SHOT (/showthread.php?tid=34197)
صنع برنامج تصوير الشاشه او SCREN SHOT - محمد ايمن - 07-04-20
السلام عليكم ورحمت الله وبركاتو
موضوعي هو عن صنع برنامج تصوير الشاشه
او
SCKEREN SHOT
بسم الله
ال ادوات
1- timar
2- 4booton
3- picture box
2- 4booton
3- picture box
--------------------------------------
الكود
نضع الكود في البديه
PHP كود :
Capture Screen:
Me.Opacity = 0
Timer1.Enabled = True
وده كود التايمر
PHP كود :
Timer1:
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot
Timer1.Enabled = False
Me.Opacity = 100
PHP كود :
Save:
Dim savefiledialog1 As New SaveFileDialog
Try
savefiledialog1.Title = "Save File"
savefiledialog1.FileName = "Untitled"
savefiledialog1.Filter = "PNG |*.png|JPEG |*.jpeg|BMP |*.bmp"
If savefiledialog1.ShowDialog() = DialogResult.OK Then PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
Catch ex As Exception
End Try
PHP كود :
Form2.Show()
PHP كود :
End