Sub Globals
Dim MapFragment1 As MapFragment
Dim GoogleMap1 As GoogleMap
Dim MapPanel As Panel
'Dim GroundOverlay1 As GroundOverlay
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
If MapFragment1.IsGooglePlayServicesAvailable = False Then
ToastMessageShow("Google Play services not available.", True)
Else
MapFragment1.Initialize("MapFragment1", MapPanel)
End If
End Sub
Sub MapFragment1_Ready
Log("MapFragment1_Ready")
Log(MapFragment1.GetOpenSourceLicenseInfo)
GoogleMap1 = MapFragment1.GetMap
If GoogleMap1.IsInitialized = False Then
ToastMessageShow("Error initializing map.", True)
Else
GoogleMap1.AddMarker(36, 15, "Hello!!!")
Dim line As Polyline
Dim points As List
Dim Point As LatLng
line=GoogleMap1.AddPolyline
points.Initialize
'color=
line.color=Colors.Red 'Array As Int(255,255,255)
line.Geodesic=True
line.Visible =True
line.Width=2
'line.ZIndex=0
Point.Initialize(37.772323, -122.214897)
points.Add(Point)
Point.Initialize(21.291982, -157.821856)
points.Add(Point)
Point.Initialize(-18.142599, 178.431)
points.Add(Point)
Point.Initialize(-27.46758, 153.027892)
points.Add(Point)
line.points=points
Dim cp As CameraPosition
cp.Initialize(36, 15, GoogleMap1.CameraPosition.Zoom)
GoogleMap1.AnimateCamera(cp)
End If
End Sub