منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اذا كان احد يعرف يعدل هذا ! - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اذا كان احد يعرف يعدل هذا ! (/showthread.php?tid=7968)

اذا كان احد يعرف يعدل هذا ! - RainBow - 15-03-13

كود :
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
الفكره هى اخذ صوره لى اداة معينه فى الفروم

اذا كان احد يعرف يعدل هذا ! - سعود - 15-03-13

لا طبعا ممكن تستخدم الكود لتصوير حركاتك على الكمبيوتر وتحفظهم بمسار معين

اذا كان احد يعرف يعدل هذا ! - سعود - 15-03-13

[h=1]مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس)[/h]

اذا كان احد يعرف يعدل هذا ! - أبو يعقوب - 15-03-13

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

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

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

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


اذا كان احد يعرف يعدل هذا ! - RainBow - 15-03-13

سعود كتب :[h=1]مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس)[/h]

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

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

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

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

جزاكم الله خير