تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
screen capture
#1
هل يمتلك احد مثال او طريقة صنع screen capture بى تحديد الصوره Custom Area
الرد }}}
تم الشكر بواسطة:
#2
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bound As Rectangle
        Dim screenshot As Bitmap
        Dim gravic As Graphics
        bound = Screen.PrimaryScreen.Bounds
        screenshot = New Bitmap(bound.Width, bound.Height, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
        gravic = Graphics.FromImage(screenshot)
        gravic.CopyFromScreen(bound.X, bound.Y, 0, 0, bound.Size, CopyPixelOperation.SourceCopy)
        PictureBox1.Image = screenshot
    End Sub
الرد }}}
تم الشكر بواسطة:
#3
SaLoOoMX كتب :
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bound As Rectangle
        Dim screenshot As Bitmap
        Dim gravic As Graphics
        bound = Screen.PrimaryScreen.Bounds
        screenshot = New Bitmap(bound.Width, bound.Height, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
        gravic = Graphics.FromImage(screenshot)
        gravic.CopyFromScreen(bound.X, bound.Y, 0, 0, bound.Size, CopyPixelOperation.SourceCopy)
        PictureBox1.Image = screenshot
    End Sub
شكرآ اخى لاكن الذى اقصده هو تصوير جزء من الشاشه فقط
الرد }}}
تم الشكر بواسطة:
#4
نحمده ونصلي على رسوله الكريم

هذا مثال من المنتدى القديم للاخ عمر silverlight


الملفات المرفقة
.rar   Screen_Shooter_v1.o.rar (الحجم : 75.74 ك ب / التحميلات : 80)
الرد }}}
تم الشكر بواسطة:
#5
الفكرة ممتــــــــازة
حاولت معاها وشبه مشى الحال تقريبا لكن عايز ضبط وترتيب الأمور اكثر
أنقر بزر الفأرة الأيمن فقط



الملفات المرفقة
.rar   Test Caputer.rar (الحجم : 61.9 ك ب / التحميلات : 60)
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد }}}
تم الشكر بواسطة:
#6
SaLoOoMX كتب :
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bound As Rectangle
        Dim screenshot As Bitmap
        Dim gravic As Graphics
        bound = Screen.PrimaryScreen.Bounds
        screenshot = New Bitmap(bound.Width, bound.Height, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
        gravic = Graphics.FromImage(screenshot)
        gravic.CopyFromScreen(bound.X, bound.Y, 0, 0, bound.Size, CopyPixelOperation.SourceCopy)
        PictureBox1.Image = screenshot
    End Sub

DreamsDotNet كتب :نحمده ونصلي على رسوله الكريم

هذا مثال من المنتدى القديم للاخ عمر silverlight

Abu Ehab كتب : الفكرة ممتــــــــازة
حاولت معاها وشبه مشى الحال تقريبا لكن عايز ضبط وترتيب الأمور اكثر
أنقر بزر الفأرة الأيمن فقط

شكرآ جيزيلآ اخوتى انا امتلك كود ها هو
كود :
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not Form2.Visible Then : Form2.Show() : Exit Sub : End If
        PictureBox1.Image = getSnapshot(Form2)
    End Sub
    Private Function getSnapshot(ByVal snapshotForm As Form) As Bitmap
        With snapshotForm
            .FormBorderStyle = Windows.Forms.FormBorderStyle.None
            Dim bmp As New Bitmap(.Width + 15, .Height + 25, Imaging.PixelFormat.Format32bppArgb)
            Dim g As Graphics = Graphics.FromImage(bmp)
            g.CopyFromScreen(New Point(.Location.X, .Location.Y), New Point(0, 0), bmp.Size)
            .FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
            Return bmp
        End With
    End Function
End Class
Public Class Form2
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TransparencyKey = Me.BackColor : Me.TopMost = True : Me.MinimizeBox = False : Me.MaximizeBox = False
        Me.Text = "Snapshot View" : Me.Icon = SystemIcons.Information : Me.ShowInTaskbar = False
    End Sub
End Class
لائفاده
[تم الحل بفضل الله]
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف اقوم بمنع المستخدم من استخدام الكيبورد وخصوصا مفتاح Print screen Ameenh 0 235 07-10-23, 10:45 PM
آخر رد: Ameenh
  كيف يمكن تأخير الـSplash Screen حتى يتم تحميل الأدوات بالكامل؟ hazim1 0 270 28-09-23, 08:23 AM
آخر رد: hazim1
  [سؤال] برنامج lock screen كما فى الاندرويد mohamed haroon 2 2,420 20-06-18, 02:17 AM
آخر رد: YousefOkasha
  [سؤال] كيفية عدم جعل Media Player داخل الفورم Full Screen ؟ Iman Mohamed Omran 4 2,352 18-03-18, 12:32 PM
آخر رد: Iman Mohamed Omran
  [سؤال] dynamic screen احلام المحروق 6 2,840 10-04-16, 11:32 PM
آخر رد: احلام المحروق
  [سؤال] سؤال بخصوص Screen Resolution mona626 15 5,737 18-11-15, 01:12 PM
آخر رد: adel27
  [سؤال] برنامج lock screen كما فى الاندرويد mohamed haroon 2 1,982 04-08-15, 09:57 AM
آخر رد: silverlight
  [سؤال] شباب سؤال حول splash screen بها مؤثرات لمربعات النصوص والصور احمد عبد الحكيم 3 2,344 31-05-15, 01:34 AM
آخر رد: silverlight
Bug [سؤال] مساعدة ضرورية جدااااااا لبرنامج screen locker Last Warrior 3 2,784 25-01-14, 01:36 PM
آخر رد: سيد درويش
  كيف عمل On Screen Keyboard مبتدئ 1 1,795 29-04-13, 10:39 AM
آخر رد: AHMED`AMIN

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


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