Cara Membuat Google Maps Dengan Visual Basic 6 (VB6)
 |
Sob.... Lagi iseng-iseng pengen tau bisakah membuat dan menampilkan peta goole maps di vb 6. Setelah saya googling ternyata bisa dan ini hasil yang Saya buat :
Untuk membuatnya ikuti langkah-langkah berikut:
1. Tanamkan form Anda 1 buah WebBrowser dengan cara klik pada tool Box, bila belum ada silahkan tambahkan component dengan CTRL+T cari Microsoft Internet Controls bila sudah ketemu kemudian ceklist lalu Apply dan Tekan OK, lihat ToolBox Anda apakah sudah muncul, untuk jelasnya seperti pada gambar dibawah ini:
2. Sekarang kita beralih ke Program Notepad, copy Kode HTML dibawah ini dan simpan di Notepad dengan nama "map.html" satu folder dengan form diatas :
Cara menampilkan Peta Google Maps di Form VB6
1. Tanamkan form Anda 1 buah WebBrowser dengan cara klik pada tool Box, bila belum ada silahkan tambahkan component dengan CTRL+T cari Microsoft Internet Controls bila sudah ketemu kemudian ceklist lalu Apply dan Tekan OK, lihat ToolBox Anda apakah sudah muncul, untuk jelasnya seperti pada gambar dibawah ini:
 |
| Form yang sudah ditambahkan WebBrowser |
2. Sekarang kita beralih ke Program Notepad, copy Kode HTML dibawah ini dan simpan di Notepad dengan nama "map.html" satu folder dengan form diatas :
<!--
You are free to copy and use this sample in accordance with the terms of the
Apache license (http://www.apache.org/licenses/LICENSE-2.0.html)
-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8"/>
<title>Google Maps API Sample</title>
<style type="text/css">
@import url("http://www.google.com/uds/css/gsearch.css");
@import url("http://www.google.com/uds/solutions/localsearch/gmlocalsearch.css");
</style>
<script src="http://maps.google.com/maps?file=api&v=2&key=ABQIAAAAuPsJpk3MBtDpJ4G8cqBnjRRaGTYH6UMl8mADNa0YKuWNNa8VNxQCzVBXTx2DYyXGsTOxpWhvIG7Djw"
type="text/javascript"></script>
<script src="http://www.google.com/uds/api?file=uds.js&v=1.0" type="text/javascript"></script>
<script src="http://www.google.com/uds/solutions/localsearch/gmlocalsearch.js" type="text/javascript"></script>
<script type="text/javascript">
function initialize() {
if (GBrowserIsCompatible()) {
// Create and Center a Map
var map = new GMap2(document.getElementById("map_canvas"));
map.setCenter(new GLatLng(37.4419, -122.1419), 13);
map.addControl(new GLargeMapControl());
map.addControl(new GMapTypeControl());
// bind a search control to the map, suppress result list
map.addControl(new google.maps.LocalSearch(), new GControlPosition(G_ANCHOR_BOTTOM_RIGHT, new GSize(10,20)));
}
}
GSearch.setOnLoadCallback(initialize);
</script>
</head>
<body onload="initialize()" onunload="GUnload()" style="font-family: Arial;border: 0 none;">
<div id="map_canvas" style="width: 500px; height: 300px"></div>
</body>
</html>
You are free to copy and use this sample in accordance with the terms of the
Apache license (http://www.apache.org/licenses/LICENSE-2.0.html)
-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8"/>
<title>Google Maps API Sample</title>
<style type="text/css">
@import url("http://www.google.com/uds/css/gsearch.css");
@import url("http://www.google.com/uds/solutions/localsearch/gmlocalsearch.css");
</style>
<script src="http://maps.google.com/maps?file=api&v=2&key=ABQIAAAAuPsJpk3MBtDpJ4G8cqBnjRRaGTYH6UMl8mADNa0YKuWNNa8VNxQCzVBXTx2DYyXGsTOxpWhvIG7Djw"
type="text/javascript"></script>
<script src="http://www.google.com/uds/api?file=uds.js&v=1.0" type="text/javascript"></script>
<script src="http://www.google.com/uds/solutions/localsearch/gmlocalsearch.js" type="text/javascript"></script>
<script type="text/javascript">
function initialize() {
if (GBrowserIsCompatible()) {
// Create and Center a Map
var map = new GMap2(document.getElementById("map_canvas"));
map.setCenter(new GLatLng(37.4419, -122.1419), 13);
map.addControl(new GLargeMapControl());
map.addControl(new GMapTypeControl());
// bind a search control to the map, suppress result list
map.addControl(new google.maps.LocalSearch(), new GControlPosition(G_ANCHOR_BOTTOM_RIGHT, new GSize(10,20)));
}
}
GSearch.setOnLoadCallback(initialize);
</script>
</head>
<body onload="initialize()" onunload="GUnload()" style="font-family: Arial;border: 0 none;">
<div id="map_canvas" style="width: 500px; height: 300px"></div>
</body>
</html>
3. Lalu kita kembali form VB dan buka jendela kode, lalu copy paste kode dibawah ini :
Private Sub Form_Load()
WebBrowser1.Navigate (App.Path & "/map.html")
End Sub
4. Simpan hasil pekerjaan Anda dan jalankan dengan F5.
Selesai.......Selamat mencoba semoga berhasil
keren
ReplyDeleteThanks Gann
Deleteknama punya q tidak bisa dijalankan ya? mohon bantuannya
ReplyDeleteTidak Bisa Di Jalankan Mungkin Kesalahan Di Script VB nya Gan
Delete