Программа для открытия изображений.

Вторая часть.

Если вы читали предыдущую тему, то вы поймете, о чём идет речь.

Добавим SaveFileDialog и четыре кнопки.

Первую кнопку назовите «Сохранить»

If PictureBox1.Image Is Nothing Then Return

SaveFileDialog1.Title = "Сохранение файла"

SaveFileDialog1.Filter = "JPEG изображение (*.jpg,*.jpeg)|*.jpg;*.jpeg|Gif изображение (*.gif)|*.gif|Изображение Bmp (*.bmp)|*.bmp"

SaveFileDialog1.FilterIndex = 1

SaveFileDialog1.OverwritePrompt = True

If SaveFileDialog1.ShowDialog() = DialogResult.OK Then

Dim pn As String

pn = SaveFileDialog1.FileName

If pn.EndsWith("jpg") Or pn.EndsWith("jpeg") Then

PictureBox1.Image.Save(pn, System.Drawing.Imaging.ImageFormat.Jpeg)

End If

If pn.EndsWith("gif") Then

PictureBox1.Image.Save(pn, System.Drawing.Imaging.ImageFormat.Gif)

End If

If pn.EndsWith("bmp") Then

PictureBox1.Image.Save(pn, System.Drawing.Imaging.ImageFormat.Bmp)

End If

Первая строка проверяет открыто ли изображение, если нет, то диалог не открывается, если да открывается.

If pn.EndsWith("jpg") Or pn.EndsWith("jpeg") Then

PictureBox1.Image.Save(pn, System.Drawing.Imaging.ImageFormat.Jpeg)

End If – сохраняет изображение в указанном формате.

Вторая кнопка будет разворачивать изображение на 90 градусов по часовой стрелке, вот код:

If PictureBox1.Image Is Nothing Then Return

Dim bp As New Bitmap(PictureBox1.Image)

bp.RotateFlip(RotateFlipType.Rotate90FlipNone)

PictureBox1.Image = bp

Третья кнопка будет разворачивать изображение на 90 градусов против часовой стрелки, я сделал так:

If PictureBox1.Image Is Nothing Then Return

Dim bp As New Bitmap(PictureBox1.Image)

bp.RotateFlip(RotateFlipType.Rotate90FlipNone)

PictureBox1.Image = bp

Четвёртая кнопка отражает зеркально изображение:

If PictureBox1.Image Is Nothing Then Return

Dim bp As New Bitmap(PictureBox1.Image)

bp.RotateFlip(RotateFlipType.RotateNoneFlipX)

PictureBox1.Image = bp

Третья часть