Buat Image Converter sendiri dengan Visual Basic 2010

Klo km mau mengconvert gambar tapi bingung pke apa ? mau download softwarenya tapi ga' tau softwarenya,,mendingan buat aja sendiri.. Very Happy

Komponent VB 2010 :
1) 1 SaveFileDialog
2) 1 OpenFileDialog
3) 2 Button
4) 2 TextBox dgn nilai Properties ReadOnly = True
5) 1 PictureBox
=====

1) Susun komponen tersebut dan beri nama seperti gambar dibawah ini :
[You must be registered and logged in to see this image.]

2) Klik 1 kali ComboBox1 dan pada kotak Properties
,cari tabel Items,dan isi seperti dibawah ini :

Code:: PNG
GIF
BMP
JPEG

untuk lebih jelasnya,lihat gambar berikut :
[You must be registered and logged in to see this image.]

3) Klik 2 kali Button1 yg tulisannya telah kita ubah menjadi Pilih Gambar,dan masukkan code berikut :

Code:: If OpenFileDialog1.ShowDialog = DialogResult.OK Then
PictureBox1.ImageLocation = OpenFileDialog1.FileName
TextBox1.Text = OpenFileDialog1.FileName
End If

4) Klik 2 kali Button2 yg tulisannnya telah kita ganti menjadi Convert,dan masukkan code berikut :

Code:: If ComboBox1.SelectedItem = "PNG" Then
SaveFileDialog1.Filter = "PNG |*.png"
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Png)
TextBox2.Text = SaveFileDialog1.FileName
End If
End If
If ComboBox1.SelectedItem = "GIF" Then
SaveFileDialog1.Filter = "GIF |*.gif"
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Gif)
TextBox2.Text = SaveFileDialog1.FileName
End If
End If
If ComboBox1.SelectedItem = "BMP" Then
SaveFileDialog1.Filter = "BMP |*.bmp"
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
TextBox2.Text = SaveFileDialog1.FileName
End If
End If
If ComboBox1.SelectedItem = "JPEG" Then
SaveFileDialog1.Filter = "JPEG |*.jpeg"
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
TextBox2.Text = SaveFileDialog1.FileName
End If
End If

5) Sudah selesai,dan silahkan coba dgn cara tekan F5 atau Run

untuk melihat scripts seluruhnya,silahkan lihat scripts yg dah ane tulis disini

Penjelasan :

2 komponen TextBox tersebut berguna untuk menunjukkan Lokasi Disk dimana file tersebut disimpan atau dibuka

1 PictureBox gunanya untuk nunjukkin gambar yg akan di convert ke format lain...

1 ComboBox gunanya untuk memilih item format,di tutorial ini ane cuma ngasih 4 format item
,yaitu PNG,BMP,GIF,JPEG

klo berguna minta Buat Image Converter sendiri dengan Visual Basic 2010 399996

Buat Image Converter sendiri dengan Visual Basic 2010 399996

ya gan

» Tutorial buat keylogger sendiri dengan Visual Basic 2010
» Tutorial Buat Media Player Sendiri dengan Visual Basic 2010
» Buat aplikasi Run dengan VB 2010
» Membuat Anti Virus Visual Basic 2010 Express
» (ASK) Buat Email Dengan Domain sendiri...