Menampilkan Gambar GIF atau PNG
Kontrol PictureBox dan Image yang terdapat dalam VB 6.0 tidak dapat menampilkan gambar yang berformat GIF (secara gerak / animasi) dan PNG. Solusi yang paling mudah untuk melakukannya adalah menggunakan kontrol WebBrowser, berikut langkah-langkahnya :
Buat Project baru dengan sebuah Form didalamnya. Lalu tambahkan Component baru dengan nama "Microsoft Internet Controls", kemudian tempatkan kontrol WebBrowser. Untuk menampilkan gambar ke dalam WebBrowser, tambahkan kode berikut di bagian 'Form_Load'
WebBrowser1.Navigate "LOKASI FILE GAMBAR"
Bila Anda menginginkan agar kontrol WebBrowser tampak seperti kontrol PictureBox, gunakan kode berikut :
Dim s As String, h As String
s = "LOKASI FILE GAMBAR"
h = "<html>" & vbCrLf & "<body scroll=" & Chr(34) & "no" & Chr(34)
h = h & " TOPMARGIN=" & Chr(34) & "0" & Chr(34)
h = h & " LEFTMARGIN=" & Chr(34) & "0" & Chr(34) & ">" & vbCrLf
Open App.Path & "\temp.tmp" For Output As #1
Print #1, h
Close #1
WebBrowser1.Navigate App.Path & "\temp.tmp"
s = "LOKASI FILE GAMBAR"
h = "<html>" & vbCrLf & "<body scroll=" & Chr(34) & "no" & Chr(34)
h = h & " TOPMARGIN=" & Chr(34) & "0" & Chr(34)
h = h & " LEFTMARGIN=" & Chr(34) & "0" & Chr(34) & ">" & vbCrLf
h = h & "<img src=" & Chr(34) & s & Chr(34) & ">" & vbCrLf & "</body>" & vbCrLf & "</html>"
Open App.Path & "\temp.tmp" For Output As #1
Print #1, h
Close #1
WebBrowser1.Navigate App.Path & "\temp.tmp"
Jika ingin diubah posisi gambarnya ke tengah, gantikan kode yang berwarna merah dengan kode berikut :
h = h & "<center><img src=" & Chr(34) & s & Chr(34) & "></center>" & vbCrLf & "</body>" & vbCrLf & "</html>"
Jika ingin gambar ditampilkan secara stretch, gantikan kode yang berwarna merah dengan kode berikut :
h = h & "<img src=" & Chr(34) & s & Chr(34) & " width =" & Chr(34) & "100%" & Chr(34)
h = h & " height =" & Chr(34) & "100%" & Chr(34) & " >" & vbCrLf & "</body>" & vbCrLf & "</html>"
h = h & " height =" & Chr(34) & "100%" & Chr(34) & " >" & vbCrLf & "</body>" & vbCrLf & "</html>"
Untuk menghilangkan PopupMenu dari kontrol WebBrowser, ikuti langkah-langkah berikut :
Tambahkan References "Microsoft HTML Object Library"
Di bagian '(Declarations)' dari Form ketikkan :
Dim WithEvents Hdoc As HTMLDocument
Lalu di bagian 'WebBrowser1_DocumentComplete' ketikkan :
Set Hdoc = WebBrowser1.Document
Terakhir di bagian 'Hdoc_oncontextmenu()' ketikkan :
Hdoc_oncontextmenu = False
CATATAN :
Selain dapat diterapkanuntuk gambar berformat GIF atau PNG, cara ini juga bisa diterapkan untuk format yang lain seperti JPG, BMP, ICO, dll
Karena cara ini menggunakan kontrol WebBrowser maka bisa digunakan untuk men-load gambar dari internet.
diposting oleh Prince @ 11:23 PM
0 Komentar
0 Komentar:
Posting Komentar
Pengunjung yang baik selalu meninggalkan jejak berupa komentar. :)
Berlangganan Posting Komentar [Atom]
<< Beranda