Status Admin
Senin, 25 Juli 2011
Cara Membuat Image Corverter Dengan Visual Basic 2010
22.47 | 
Posted by:
Lostsaga Indonesia CheatsMate |
Ane Mau Share Source Code fulldoang Image Corverter Disini. Karena Software Ini Open Source Jadi Ane Share Deh.. Tapi Agan Harus Punya Dulu Software Yang Bernama Visual (Basic Atau Studio) 2010 Yang Mau Tahu Source Codenya Langsung Aja Ke TKP
Video: Tombol Open Image:
Try
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)
End If
Catch ex As Exception
End Try
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
Sumber: Youtube
Label:
Langganan:
Posting Komentar (Atom)
0 komentar: