تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] أخذ سكرين للشاشة بشكل متميز
#1
Star 
السلام عليكم ورحمة الله وبركاته

صممت كود يعمل بنفس فكرة بعض التطبيقات الشهيرة لاخذ سكرين لجزء معين من الشاشة


لاتنسونا من دعائكم





كود :
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
الرد
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5
#2
جزاك الله عنا كل خير .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة: 3booody


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشروع تصميم فورم بشكل جديد بالفيجوال ستوديو مع السورس كود محمد ايمن 0 820 29-02-20, 06:24 AM
آخر رد: محمد ايمن
  [VB.NET] التحكم بشكل ال form 3booody 8 1,834 02-01-20, 01:34 PM
آخر رد: 3booody

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


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