تقييم الموضوع :
  • 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 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad [كود] ممكن احد يعدل على هذا الكود أسامة 4 1,000 06-04-16, 06:44 PM
آخر رد: ghaner joseph
  [VB.NET] ياريت ياجماعة اللي يعرف حل المشكلة دي مايبخلش بالاجابة مدحت رمضان 4 247 21-02-16, 05:09 PM
آخر رد: hassan
  [VB.NET] أحتاج محترف يعدل كود نقل adel27 1 153 17-02-16, 11:26 AM
آخر رد: adel27
  [كود] هل يمكن لى احد ان يعدل سطر فى ReadWriteMemory أسامة 1 765 25-11-13, 06:06 PM
آخر رد: أسامة
  الاختيار من DataGridViewComboBoxColumn يعدل بالخلية المقابلة البراء 7 908 21-07-13, 03:04 PM
آخر رد: البراء
  من يعدل على هذا المثال [مثال سرد ملفات الجهاز كلها] سعود 26 1,811 17-07-13, 07:54 PM
آخر رد: 3booody
  كيف اشفر برنامجى حتى لا يعدل عليه احد ام لارا 14 1,512 26-03-13, 02:27 AM
آخر رد: مدري

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


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