Sub ConnectPage()
ABMShared.ConnectNavigationBar(page)
'
page.GoogleMapsAPIExtras="key=AIza---ZaJXG---EMA---nCPsg0X------1zgu8"
Dim gm1 As ABMGoogleMap
gm1.Initialize(page, "gm1", 24.344390, 120.626985,15, 350, ABM.GOOGLEMAPTYPE_ROADMAP)
gm1.Draggable = True
gm1.HasMapTypeControl = True
gm1.HasStreetViewControl = True
gm1.HasZoomControl = True
gm1.AddMapType(ABM.GOOGLEMAPTYPE_ROADMAP)
gm1.AddMapType(ABM.GOOGLEMAPTYPE_TERRAIN)
gm1.AddMapType(ABM.GOOGLEMAPTYPE_HYBRID)
gm1.AddMapType(ABM.GOOGLEMAPTYPE_SATELLITE)
page.Cell(2,1).AddComponent(gm1)
'
page.FinishedLoading 'IMPORTANT
page.Refresh
page.RestoreNavigationBarPosition
End Sub
All my vps 's are located there... ( 6 of them ).
<!DOCTYPE html>
<html>
<head>
<title>Simple Map</title>
<meta name="viewport" content="initial-scale=1.0">
<meta charset="utf-8">
<style>
html, body {
height: 100%;
margin: 0;
padding: 0;
}
#map {
height: 100%;
}
</style>
</head>
<body>
<div id="map"></div>
<script>
var map;
function initMap() {
map = new google.maps.Map(document.getElementById('map'), {
center: {lat: -34.397, lng: 150.644},
zoom: 8
});
}
</script>
<script src="https://maps.googleapis.com/maps/api/js?key=A---SyALs8zp---N8IO0---tDSsR---BU1---Lo&callback=initMap"
async defer></script>
</body>
</html>
