Изображение нужного размера

[GPP]

Здравствуйте! Данная процедура создает скриншот экрана рамером с разрешение экрана. Как сделать полученныю картинку к примеру размером 640x480? Спасибо!

Код: Выделить всё

Sub GetScreen()
        Dim bmpScreenshot As Bitmap
        Dim gfxScreenshot As Graphics
        bmpScreenshot = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, PixelFormat.Format16bppRgb555)
        gfxScreenshot = Graphics.FromImage(bmpScreenshot)
        gfxScreenshot.CopyFromScreen(Screen.PrimaryScreen.Bounds.X, Screen.PrimaryScreen.Bounds.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size,     CopyPixelOperation.SourceCopy)
        bmpScreenshot.Save("C:\1.jpg", ImageFormat.Jpeg)
End Sub


[Joo]

Здравствуйте! Данная процедура создает скриншот экрана рамером с разрешение экрана. Как сделать полученныю картинку к примеру размером 640x480? Спасибо!

Так на вскидку.

Код: Выделить всё

    Sub GetScreen()
        Dim bmpScreenshot As Bitmap
        Dim gfxScreenshot As Graphics
        bmpScreenshot = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, Imaging.PixelFormat.Format16bppRgb555)
        gfxScreenshot = Graphics.FromImage(bmpScreenshot)
        gfxScreenshot.CopyFromScreen(Screen.PrimaryScreen.Bounds.X, Screen.PrimaryScreen.Bounds.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
        Dim RetBMP As Bitmap = New Bitmap(640, 480)
        Using g As Graphics = Graphics.FromImage(RetBMP)
            g.DrawImage(bmpScreenshot, 0, 0, 640, 480)
        End Using
        RetBMP.Save("C:\1_640x480.jpg", Imaging.ImageFormat.Jpeg)[/b]
        bmpScreenshot.Save("C:\1_ORIGINAL.jpg", Imaging.ImageFormat.Jpeg)
    End Sub

[Sebas]

Public Function GetThumbnailImage(ByVal thumbWidth As Integer, ByVal thumbHeight As Integer, ByVal callback As System.Drawing.Image.GetThumbnailImageAbort, ByVal callbackData As System.IntPtr) As System.Drawing.Image
Member of: System.Drawing.Image
Summary:
Returns a thumbnail for this System.Drawing.Image.

[Joo]

Тогда так ))

Код: Выделить всё

    Sub GetScreen()
        Dim bmpScreenshot As Bitmap
        Dim gfxScreenshot As Graphics
        bmpScreenshot = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, PixelFormat.Format16bppRgb555)
        gfxScreenshot = Graphics.FromImage(bmpScreenshot)
        gfxScreenshot.CopyFromScreen(Screen.PrimaryScreen.Bounds.X, Screen.PrimaryScreen.Bounds.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
        'Хотя в MSD предлагают более длинный пример, можно обойтись одной строкой кода
        bmpScreenshot = bmpScreenshot.GetThumbnailImage(640, 480, Nothing, IntPtr.Zero)
        bmpScreenshot.Save("C:\1.jpg", ImageFormat.Jpeg)
    End Sub

[GPP]

Всем спасибО! Особенно ЖУЧКУ

[Joo]

Всем спасибО! Особенно ЖУЧКУ

Всегда пожалуйста