Cara Mengconvert Extensi Image File Dengan Vb6

10 views
Hai sahabat programmer vb6 semuanya kali ini admin akan membahas ihwal bagaimana caranya mengconvert extensi data file bertipe image dengan memakai Microsoft Visual Basic 6.0 dan extensi image yang dipakai pada sourcode ini yaitu BMP, JPG, GIF, PNG dan TIF. Langsung saja ke pokok pembahasan buka Microsoft Visual Basic 6.0 – StandartEXE – Form lalu tambah dan aturlah tata letak beberapa komponen-komponen yang diharapkan ibarat CommandButton, ImageBox dan Microsoft Common Dialog Control pada form yang telah kita buat


Tambahkan sintak dibawah ini pada CommandButton 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

Kemudian pada CommandButton Convert Image to …

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$)

Simpan dan RUN/F5, klik tombol Open Image lalu cari gambar pada pc agan dengan menentukan extensi file gambar tersebut, sesudah ketemu lalu Open maka gambar akan tampil pada ImageBox. Untuk kali ini admin mencari tipe gambar berektensi JPG ibarat gambar dibawah ini

Kemudian klik tombol Convert Image to… maka akan keluar kotak obrolan dan jangan lupa pilih ektensi file hasil convertnya dan untuk kali ini admin akan mengconvert menjadi PNG. Pilih path dimana file hasil convert akan diletakkan lalu klik SAVE. Cari file hasil convert diatas klik kanan pada file hasil convert pilih sajian properties 

Sangat gampang bukan untuk memanipulasi ekstensi data bertipe image, untuk lebih detailnya sourcode Cara MengConvert Extensi Image File dengan VB6 sanggup didownload di LINK INI dan agar artikel ini sanggup bermanfaat
Author: 
    author
    No related post!