السلام عليكم ورحمة الله وبركاته
صممت كود يعمل بنفس فكرة بعض التطبيقات الشهيرة لاخذ سكرين لجزء معين من الشاشة
لاتنسونا من دعائكم
صممت كود يعمل بنفس فكرة بعض التطبيقات الشهيرة لاخذ سكرين لجزء معين من الشاشة
لاتنسونا من دعائكم
كود :
Public Class Form1
'3booody
'vb4arb.com
Dim D As Boolean
Dim x, y As Short
Dim rec As Rectangle
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then Me.Close()
D = True
x = e.X : y = e.Y
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Cursor.Current = Cursors.Cross
If D Then
Invalidate()
If e.X < x Then
If e.Y < y Then
rec = New Rectangle(e.X, e.Y, x - e.X, y - e.Y)
Else
rec = New Rectangle(e.X, y, x - e.X, e.Y - y)
End If
Else
If e.Y < y Then
rec = New Rectangle(x, e.Y, e.X - x, y - e.Y)
Else
rec = New Rectangle(x, y, e.X - x, e.Y - y)
End If
End If
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
D = False
If x = e.X And y = e.Y Then Return
Me.Hide()
System.Threading.Thread.Sleep(999)
Try
Dim Bit As New Bitmap(rec.Width, rec.Height)
Dim Gr As Graphics = Graphics.FromImage(Bit)
Gr.CopyFromScreen(rec.X, rec.Y, 0, 0, New Size(rec.Width, rec.Height))
Dim save As New SaveFileDialog
save.FileName = "Image"
save.Filter = "JPEG|*.JPEG"
If save.ShowDialog = Windows.Forms.DialogResult.OK Then
Bit.Save(save.FileName)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TransparencyKey = Color.White
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized
Me.BackColor = Color.Black
Me.Opacity = 0.2
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
If D Then
e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
e.Graphics.FillRectangle(Brushes.White, rec)
End If
End Sub
End Class