[Aly El-Haddad]

sajad كتب :السلام عليكم

لتحويل كائن الBitmap الى كائن الImage استخدم هذا الكود:

Dim img As Image
Dim bmp As Bitmap
img = bmp

عفواً أخي، لم أرد تحويل Bitmap إلى Image

SaLoOoMX كتب :

كود :

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.Format64bppArgb)
        gravic = gravic.FromImage(screenshot)
        gravic.CopyFromScreen(bound.X, bound.Y, 0, 0, bound.Size, CopyPixelOperation.SourceCopy)

        PictureBox1.Image = screenshot

عفواً أخي، لم أرد تصوير الشاشة