تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اذا كان احد يعرف يعدل هذا !
#1
كود :
Private Function getSnapshot(ByVal snapshotForm As Form) As Bitmap
        With snapshotForm
            .FormBorderStyle = Windows.Forms.FormBorderStyle.None
            Dim bmp As New Bitmap(PictureBox1.Width, PictureBox1.Height, 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
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form2.PictureBox1.Image = getSnapshot(Form2)
        Form2.PictureBox1.Image.Save("C:\Users\RainBow\Desktop\Name.jpg")
    End Sub
الفكره هى اخذ صوره لى اداة معينه فى الفروم
الرد }}}}
تم الشكر بواسطة:
#2
لا طبعا ممكن تستخدم الكود لتصوير حركاتك على الكمبيوتر وتحفظهم بمسار معين
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#3
[h=1]مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس)[/h]
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#4
لتصوير أداة معينة تستخدم الكود : DrawToBitmap وهو موجود في كل الادوات

مثال عندي فورم به زر - بتن ، عند الضغط عليه يقوم برسم الزر في صورة ويجعلها خلفية الفورم

PHP كود :
Dim bmp = New Bitmap(Button1.WidthButton1.Height)

        
Button1.DrawToBitmap(bmpMe.ClientRectangle)
        
Me.BackgroundImage bmp
        Me
.BackgroundImageLayout ImageLayout.Stretch 
الرد }}}}
تم الشكر بواسطة:
#5
سعود كتب :[h=1]مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس)[/h]

أبو يعقوب كتب :لتصوير أداة معينة تستخدم الكود : DrawToBitmap وهو موجود في كل الادوات

مثال عندي فورم به زر - بتن ، عند الضغط عليه يقوم برسم الزر في صورة ويجعلها خلفية الفورم

PHP كود :
Dim bmp = New Bitmap(Button1.WidthButton1.Height)

        
Button1.DrawToBitmap(bmpMe.ClientRectangle)
        
Me.BackgroundImage bmp
        Me
.BackgroundImageLayout ImageLayout.Stretch 

جزاكم الله خير
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يوجد شخص يعرف سبب هذه المشكلة !! كود برمجي 5 112 23-05-17, 12:33 AM
آخر رد: alma2
Sad اللي يعرف بليز لا يبخل iFayfoy 6 215 23-01-17, 05:12 AM
آخر رد: مساعدة
Sad [كود] ممكن احد يعدل على هذا الكود أسامة 4 1,173 06-04-16, 06:44 PM
آخر رد: ghaner joseph
  [VB.NET] ياريت ياجماعة اللي يعرف حل المشكلة دي مايبخلش بالاجابة مدحت رمضان 4 357 21-02-16, 05:09 PM
آخر رد: hassan
  [VB.NET] أحتاج محترف يعدل كود نقل adel27 1 226 17-02-16, 11:26 AM
آخر رد: adel27
  [كود] هل يمكن لى احد ان يعدل سطر فى ReadWriteMemory أسامة 1 848 25-11-13, 06:06 PM
آخر رد: أسامة
  الاختيار من DataGridViewComboBoxColumn يعدل بالخلية المقابلة البراء 7 989 21-07-13, 03:04 PM
آخر رد: البراء
  من يعدل على هذا المثال [مثال سرد ملفات الجهاز كلها] سعود 26 1,957 17-07-13, 07:54 PM
آخر رد: 3booody
  كيف اشفر برنامجى حتى لا يعدل عليه احد ام لارا 14 1,725 26-03-13, 02:27 AM
آخر رد: مدري

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


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