Sub MapDisp(CenterLat As Float, CenterLng As Float, MapDraggable As Boolean, Zoom As Int, MapTypeControl As Boolean, _
MapTypeControlID As String, DispZoomControl As Boolean, ZoomControlPosition As String, ZoomControlStyle As String, _
DispScaleControl As Boolean, ScaleControlPosition As String, DispMarkerCenter As Boolean, MarkerPos As List, _
DispMarkers As Boolean, MarkersClickable As Boolean, MarkersDragable As Boolean, DispPolyline As Boolean, _
PolyLineColor As String, PolyLineOpacity As Float, PolyLineWidth As Int)
' Displays a Google map in a WebView with following parameters
' Thanks go to for his WebViewExtra library allowing to add event routines
' CenterLat = latitude of map center in degrees
' CenterLng = longitude of map center in degrees
' Zoom = zomm index 0 - 21
' MapTypeControl = true displays the map type control
' MapTypeControlID = either ROADMAP, TERRAIN, SATELLITE or HYBRID
' DispZoomControl = true displays the zoom control otherwise false
' ZoomControlPosition = position of the scale control TOP_LEFT, TOP_CENTER, TOP_RIGHT, LEFT_CENTER, RIGHT_CENTER, BOTTOM_LEFT,
'BOTTOM_CENTER, BOTTOM_RIGHT
' ZoomControlStyle = style of the scale control DEFAULT, SMALL or LARGE
' ScaleControl = true displays the zoom control otherwise false
' ScaleControlPosition = position of the scale control TOP_LEFT, TOP_CENTER, TOP_RIGHT, LEFT_CENTER, RIGHT_CENTER, BOTTOM_LEFT,
' BOTTOM_CENTER, BOTTOM_RIGHT
' DispMarkerCenter = true sets a marker on the center of the map
' MarkerPos = List of GPS Locations of the markers
' DipsMarkers = true displays the markers
' MarkersClickable = the markers are clickable, doesn't work yet with WebView
' MarkersDragable = the markers are dragable, doesn't give the new postition yet with WebView
' DispPolyline = true displays a polyline with the markers as vertices
' PolyLineColor = polyline color hexadecimal #ff0000 = red #00ff00 = green #0000ff = blue
' PolyLineOpacity = polyline opacity 0.0 transparent 1.0 full opaque
' PolyLineWidth = polyline width in pixels
Private HtmlCode As String
Private i, j, n As Int
Private Pos As GPSLocation
HtmlCode = "<!DOCTYPE html><html><head><meta name='viewport' content='initial-scale=1.0, user-scalable=no' /><style type='text/css'> "
HtmlCode = HtmlCode & "html { height: 100% } body { height: 100%; margin: 0px; padding: 0px }#map_canvas "
HtmlCode = HtmlCode & "{ height: 100% }</style><script Type='text/javascript' src='http://maps.google.com/maps/api/js?sensor=true'>"