Cara Menampilkan Google Maps di Form Visual Basic 6.0 - Pada pertemuan kali ini tip dan trik visual basic akan membagikan kepada Anda sebuah tip dengan judul Cara Menampilkan Google Maps di Form Visual Basic 6.0.
Googlel Maps adalah layanan pemetaan web yang di kembangkan oleh google, layanan ini menggambarkan citra satelit, peta jalan,panorama, rute, kondisi jalan.Google maps tidak asing lagi bagi kemajuan teknologi terutama di bidang gadget yang berfungsi untuk memberikan petunjuk peta jalan kepada penggunanya dengan bantuan google maps.
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 :
Bagi Anda yang penasaran bagaimana cara membuatnya mari kita simak dan ikuti langkah-langkah berikut dibawah ini:
Cara menampilkan Peta Google Maps di Form VB6
1. Buka Form VB6 Standar EXE
2. Tanamkan diform 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.
3. Tinggalkan dulu form VB.Sekarang kita beralih ke Program Notepad, copy Kode HTML dibawah ini dan simpan di Notepad dengan nama "map.html" satu folder dengan form VB :
<!--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>
4. 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
5. Simpan hasil pekerjaan Anda dan jalankan dengan F5.
 |
| Google Maps di Form VB6 |
Sekarang progeam Anda sudah jadi dan Anda bisa melihat lokasi rumah Anda sekarang.
Demikian tip cara Cara Menampilkan Google Maps di Form Visual Basic 6.0.
Selesai.......Selamat mencoba semoga berhasil
Demikian tip cara Cara Menampilkan Google Maps di Form Visual Basic 6.0.
Selesai.......Selamat mencoba semoga berhasil
No comments:
Post a Comment