Menggunakan Kontrol Image pada VB

Digunakan untuk menampilkan gambar pada program yang dibuat dalam format bitmaps (BMP), device independent bitmaps (DIB), metafiles (WMF), enhanced metafiles (EMF), GIF dan JPEG compressed files, dan icons (ICO dan CUR).

Properti Stretch digunakan untuk menentukan apakah gambar disesuaikan dengan ukuran kontrol (gambar dapat menggalami pengecilan maupun pembesaran). Untuk menyesuaikan ukuran gambar dengan kontrol image, biasanya nilai properti stretch dibuat 1 atau true.

Menampilkan gambar kedalam kontrol image

Pada saat design anda dapat mengisikan gambar ke dalam image box dengan menggunakan properti Picture, sedangkan pada runtime anda dapat menggunakan fungsi LoadPicture(namafile) untuk memuat gambar ke properti Picture dari kontrol image, contoh:

imglogo.Picture = LoadPicture(“D:\Picture\uniks.jpg”)

Catatan : Fungsi LoadPicture(namafile) digunakan untuk memuat file grafik dengan format grafik bitmap (.bmp), icon (.ico), run-length encoded (.rle), metafile (.wmf), enhanced metafiles (.emf), GIF, JPEG (.jpg).

Mengosongkan kontrol image

Untuk mengosongkan kontrol image pada saat runtime, anda dapat menggunakan fungsi LoadPicture, tanpa menggunakan argumen nama file, contoh :

imgGambar.Picture = LoadPicture

Menyimpan gambar dalam kontrol Image ke File

Anda dapat menggunakan perintah SavePicture gambar, namafile untuk menyimpan gambar kedalam file dengan format BMP, contoh :

SavePicture imglogo.Picture,”D:\Picture\uniks.bmp”

Catatan : Perintah SavePicture akan selalu menyimpan gambar ke format bitmap (.bmp), tanpa memperhatikan format sumber gambar.

LATIHAN

Buat satu form yang terdiri dari dua kontrol image. Image 1 isikan gambarnya melalui jendela properti sedangkan image 2 isikan gambarnya melalui kode program seperti berikut.

KODE PROGRAM

Private Sub Form_Load()

Label1.ForeColor = vbRed

Image2.Picture = LoadPicture(“D:\gbr.JPG”)

End Sub

 

Private Sub Command1_Click()

END

End Sub

 

 

Print Friendly, PDF & Email
Hari

Written by 

admin "Ilmu Itu Tak Ada Yang Tak Bermanfaat"

Leave a Reply

Your email address will not be published.