Изменить размер картинки

[FOREVA]

Из буфера я картинку вытащил а дальше проблемы

Подскажите пожалуйста как из картинки 320x240 сделать 180x135 на visual basic.net
и затем сохранить на диск

[mad_Max]

Если картинка представлена в виде класса Image или его производных (Bitmap и т.п.), то сжать картьинку можно функцией

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

    Private Function ShrinkBMP(ByVal srcImg As Image, ByVal w As Integer, ByVal h As Integer) As Bitmap
        Dim dstBMP As New Bitmap(w, h)
        Dim gx As Graphics = Graphics.FromImage(dstBMP)
        gx.DrawImage(srcImg, 0, 0, w, h)
        Return dstBMP
    End Function

Первый параметр - сжимаемая картинка, второй и третий - требуемая ширина и высота, функция возвращает собствено преобразованную картинку. А сохранить можно, вызвав метод Save. Пример (загрузит картинку из C:\Src.bmp, сожмет до 185x135 и сохранит в C:\dst.bmp)

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

        Dim tmp As New Bitmap("C:\src.bmp")
        Dim tmp2 As Bitmap = ShrinkBMP(tmp, 185, 135)
        tmp2.Save("C:\dst.bmp")

[FOREVA]

Спасибо

И еще один вопросик можно ли впринципе сделать такую фичу
Файлик в формате mpg выбрать нужный кадр и сохранить на диск

Заранее благодарен

[FOREVA]

И еще

Можно ли при сохранении картинки в формате jpeg изменять качество этой картинки а то уж больно плохое качество получается сохраняемой картинки

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

If Not System.Windows.Forms.Clipboard.GetDataObject() Is Nothing Then
            Dim oDataObj As IDataObject
            oDataObj = System.Windows.Forms.Clipboard.GetDataObject()
            If oDataObj.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then
                Dim oImgObj As System.Drawing.Image
                oImgObj = oDataObj.GetData(DataFormats.Bitmap, True)
                Dim tmp2 As Bitmap = ShrinkBMP(oImgObj, 180, 135)
                tmp2.Save("c:/1.jpeg",System.Drawing.Imaging.ImageFormat.Jpeg)
        End If


и размер получается около 6 кБ с ужасным качеством
Подскажите пожалуйста как менять качество

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