[Uzvern]

Изменяем размеры изображения

Код:

    Dim OFD As New OpenFileDialog
    Dim SFD As New SaveFileDialog

    Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
        OFD.Filter = "All Files|*.*"
        SFD.Filter = "JPG|*.jpg|GIF|*.gif|PNG|*.png"

        AddHandler OFD.FileOk, AddressOf OFD_FO
        AddHandler SFD.FileOk, AddressOf SFD_FO

        OFD.ShowDialog()
        End
    End Sub

    Private Sub OFD_FO()
        If IO.File.Exists(OFD.FileName) Then
            If OFD.FileName.EndsWith(".jpg") Or OFD.FileName.EndsWith(".gif") Or OFD.FileName.EndsWith(".png") Then
                SFD.ShowDialog()
            Else
                MsgBox("Вы указали неверный файл.", MsgBoxStyle.Critical, "Ошибка")
            End If
        End If
    End Sub

    Private Sub SFD_FO()
        Dim Size As Size = New Size(150, 110)

        Dim b As New Bitmap(Bitmap.FromFile(OFD.FileName), Size)
        For Each SFDFE In SFD.Filter
            Select Case SFDFE
                Case "JPG"
                    b.Save(SFD.FileName, Imaging.ImageFormat.Jpeg)
                    End
                Case "GIF"
                    b.Save(SFD.FileName, Imaging.ImageFormat.Gif)
                    End
                Case "PNG"
                    b.Save(SFD.FileName, Imaging.ImageFormat.Png)
                    End
            End Select
        Next
    End Sub

Result (1*600 x 1*200) (150 x 110)

Before :
After :

стырил отсюда

как в (Save/Open)FileDialog можно указать несколько расширений?

Код:

All Files|*.*

это все файлы, а мне нужно указать например

Код:

My Prog Files|*.aaa,*.aab,.*abc

что-то типо этого


Admiral, Я нашел как добавить свое поле в выпадающее меню.
152