Load Image di VB6

Mungkin sudah banyak yang post tentang bagaimana melakukan load gambar pada Image di Microsoft Visual Basic 6.0 atau yang biasa di singkat dengan VB6 ini, tapi apa salahnya saya mencoba memposting itu juga disini.

Sebenarnya sangatlah mudah untuk melakukan load gambar ini, kalian hanya cukup menggunakan sediikit component saja di antaranya: CommandButton, Image, CommonDialog

Tapi sebelum itu kalian mesti memasukan component Microsoft Common Dialog Control 6.0 ke dalam project yang kalian buat. Caranya dengan men-klik Ctrl + T di keyboard kalian, sehingga muncul menu component lalu pilih Microsoft Common Dialog Control 6.0 > Apply > Ok

Setelah itu masukan ke 3 component yang sudah saya sebutkan di atas

Atur properties image seperti ini
BorderStyle = Fixes Single (supaya berasa ada semacam frame dari image yang nanti kalian load)
Stretch = True (membuat gambar yang di load  menyesuaikan ukurannya dengan ukuran image yang kalian buat)

selebihnya tidak perlu kalian ubah

Lalu masukan sintek di CommandButton (disitu saya memakai nama Command1) seperti di bawah ini

With CommonDialog1
    .Filter = "All Files (*.*)|*.*|Jpeg Files (*.jpg)|*.jpg|Png Files(*.*)|*.png|Bitmap Files(*.*)|*.bmp"
    .FilterIndex = 2
    .ShowOpen
    If .FileName <> "" Then
        Image1.Picture = LoadPicture(.FileName)
    End If
End With

 Selamat mencoba.

Keterangan:
Image1 = nama dari component Image (sesuaikan dengan punya kalian)
CommonDialog1 = nama dari component commmonDialog (sesuaikan dengan punya kalian)

Terima kasih sudah menyempatkan waktu untuk membaca artikel Load Image di VB6. Jika terdapat link error silahkan langsung hubungi saya di menu Contact supaya bisa langsung di perbaiki dan jangan lupa tinggalkan komentar kamu setelah selesai membaca artikel ini. Salam Admin

Ditulis oleh: Unknown - Saturday, 9 November 2013