Menampilkan Gambar GIF atau PNG dengan Visual Basic - Kontrol PictureBox dan Image yang terdapat dalam dengan Visual Basic 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 : Silahkan ambil Source code nya di Group Tutorial Visual Basic Indonesia klik
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
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)Untuk menghilangkan PopupMenu dari kontrol WebBrowser, ikuti langkah-langkah
h = h & " height =" & Chr(34) & "100%" & Chr(34) & " >" & vbCrLf & "</body>" & vbCrLf & "</html>"
berikut :
Tambahkan References "Microsoft HTML Object Library"
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
0 Comments
