Cara Mengkonversi Extensi File Image Dengan Code VB6

Kali ini Admin akan berbagi sebuah Code yang dapat berfungsi untuk mengkonversi extensi file gambar atau image ke extensi yang lain, misalnya dari JPG ke PNG.

Adapun file yang digunakan pada code ini adalah BMP, JPG, GIF, PNG dan TIF yang kita dapat konversi dengan memilih extensi yang sudah Admin sebutkan diatas.

Output

Berikut adalah langkah-langkah untuk membuat Form konversi Extensi File Image dengan vb6 :

1. Buka Form VB6 Standar EXE

2. Pada Form tanamkan berberapa control didalamnya

1 Control Image

1 CommonDialog Control

2 CommandButton

4. Desainlah Form seperti gambar dibawah ini :

Desain Form

5. Setelah mendesain Form ketiklah kode dibawah ini :

Private Sub Command1_Click()

'Open Image

Dim Path$

Dim Filename$

On Error Resume Next

CommonDialog1.DialogTitle = "Open Image"

CommonDialog1.Filter = "Bmp (*.bmp)|*.bmp|Gif(*.gif)|*.gif|Jpg (*.jpg)|*.jpg|Tif (*.tif)|*.tif|Png (*.png)|*.png"

CommonDialog1.ShowOpen

Filename$ = CommonDialog1.Filename

Image1.Picture = LoadPicture(Filename$)

Image1.Refresh

txtheight.Text = Image1.Height

txtwidth.Text = Image1.Width

End Sub

Private Sub Command2_Click()

'Convert Image

Dim Path$

Dim Filename$

On Error Resume Next

CommonDialog1.DialogTitle = "Convert Image to..."

CommonDialog1.Filter = "Bmp (*.bmp)|*.bmp|Gif(*.gif)|*.gif|Jpg (*.jpg)|*.jpg|Tif (*.tif)|*.tif|Png (*.png)|*.png"

CommonDialog1.ShowSave

Path$ = CommonDialog1.Filename

Call SavePicture(Image1, Path$)

End Sub

Private Sub Form_Load()

Image1.BorderStyle = 1

Image1.Stretch = True

End Sub

Setelah mengetikan kode diatas jalankan Project Anda, kemudian klik "Open Image" (untuk membuka folder tempat penyimpanan Image) dan pilih File Image yang akan di konversi. Misal kita memilih gambar dengan Extensi JPG, Setelah gambar dipilih maka akan muncul gambar di Form dan tekan tombol Convert Image maka akan terbuka kotak dialog kemudian ganti extensi baru pada kotak Save As Type Pilih Extensi yang diinginkan misal PNG dan Klik Save.

Demikian artikel singkat pada hari tentang Cara Mengkonversi Extensi File Image Dengan Code VB6.

Semoga artikel ini bermanfaat buat kita semua, Amin.

Selamat mencoba semoga berhasil.

Related Post: Image Tools