منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اذا كان احد يعرف يعدل هذا !
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كود :
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
الفكره هى اخذ صوره لى اداة معينه فى الفروم
لا طبعا ممكن تستخدم الكود لتصوير حركاتك على الكمبيوتر وتحفظهم بمسار معين
لتصوير أداة معينة تستخدم الكود : DrawToBitmap وهو موجود في كل الادوات

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

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

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

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

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

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

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

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