Sub Globals
Dim MapView1 As MapView
Dim MyLocationOverlay1 As MyLocationOverlay
Dim TouchEventsOverlay1 As TouchEventsOverlay
Dim MarkersEventsOverlay1 As MarkersEventsOverlay
Dim MarkersBalloonOverlay1 As MarkersBalloonOverlay
Dim MarkersBalloonOverlay3 As MarkersBalloonOverlay
End Sub
Sub Activity_Create(FirstTime As Boolean)
MapView1.Initialize("")
pnlMap.AddView(MapView1, 0, 0, pnlMap.Width, pnlMap.Height)
MapView1.SetMultiTouchEnabled(True)
MapView1.SetZoomEnabled(False)
MapView1.SetCenter3(MapCenter)
MapView1.Zoom=DefZoomLevel
'add MyLocationOverlay
MyLocationOverlay1.Initialize(MapView1, "MyLocationOverlay1")
MapView1.AddOverlay(MyLocationOverlay1)
MyLocationOverlay1.MyLocationEnabled=True
'add MarkersBalloonOverlay
MarkersBalloonOverlay1.Initialize(MapView1, "", "balloon_overlay")
MapView1.AddOverlay(MarkersBalloonOverlay1)
'add MarkersBalloonOverlay
MarkersBalloonOverlay3.Initialize(MapView1, "", "balloon_overlay")
MapView1.AddOverlay(MarkersBalloonOverlay3)
'touch overlay
TouchEventsOverlay1.Initialize("TouchEventsOverlay1")
MapView1.AddOverlay(TouchEventsOverlay1)
'add MarkersEventsOverlay
MarkersEventsOverlay1.Initialize(MapView1, "MarkersEventsOverlay1")
MapView1.AddOverlay(MarkersEventsOverlay1)
End Sub
'PUT NEW MARKERS ON MAP
Sub DrawHotSpotMarkers 'this procedure is called when click on some button
MarkersBalloonOverlay1.RemoveMarkers
MarkersBalloonOverlay1.AddMarkers(Service1.HotSpotMarkers)
MapView1.Invalidate
End Sub
Sub TouchEventsOverlay1_Click(GeoPoint1 As GeoPoint)
NextMapRecenterTime=DateTime.Now+MapRecenterInterval*1000
MarkersBalloonOverlay3.UnsetFocusedMarker
MarkersBalloonOverlay1.UnsetFocusedMarker
End Sub
Sub MarkersEventsOverlay1_Click(ClickedMarker As Marker)
Log("MarkersEventsOverlay1_Click on: " & ClickedMarker.Title)
MarkersBalloonOverlay3.FocusedMarker=ClickedMarker
MapView1.Invalidate
End Sub
SERVICE1 module:
Sub CreateMarkers
Marker1.Initialize4(ID, Title, Desc, Lat, Lon, Null)
HotSpotMarkers.Add(Marker1)
End Sub