'Open Image Button, Button1:
'___________________________[/b] Try
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)
End If
Catch ex As Exception
End Try
[b]'______________________
'Convert Image-Button2:
'______________________
If ComboBox1.SelectedItem = "JPEG" Then
Try
SaveFileDialog1.Filter = "JPEG |*.jpeg"
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
End If
Catch ex As Exception
End Try
End If
If ComboBox1.SelectedItem = "PNG" Then
Try
SaveFileDialog1.Filter = "PNG |*.png"
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Png)
End If
Catch ex As Exception
End Try
End If
If ComboBox1.SelectedItem = "GIF" Then
Try
SaveFileDialog1.Filter = "GIF |*.gif"
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Gif)
End If
Catch ex As Exception
End Try
End If
If ComboBox1.SelectedItem = "BMP" Then
Try SaveFileDialog1.Filter = "BMP |*.bmp"
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
End If
Catch ex As Exception
End Try
End If
'___________________________
'This Goes under form1_load:
'___________________________
ComboBox1.SelectedItem = "PNG"
Added (23 November 10, 8:44 Am)
---------------------------------------------
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.SelectedItem = ".ISO"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
OpenFileDialog1.ShowDialog()
End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
TextBox1.Text = OpenFileDialog1.FileName
End Sub
Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
TextBox2.Text = SaveFileDialog1.FileName
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
SaveFileDialog1.ShowDialog()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If TextBox1.Text = "" Then
MsgBox("Please select the file you with to convert", MsgBoxStyle.Critical, "Error")
Else
Dim type As String = ComboBox1.Text
MsgBox("The file has successfully been convert into a" & type & " file.", MsgBoxStyle.Information, "success")
Dim oldFile As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4)
FileCopy(TextBox1.Text, oldFile + type)
End If
End Sub
