Sub Process_Globals
Private markerMap As Map
Private MarkerFlag As String
' Etc.
End Sub
Sub gmap_Ready
'CreatE BTSMarker
MarkerLocation.Initialize(BTSLat,BTSLng)
Private BTSMarker = gmap.AddMarker2(BTSLat , BTSLng, "BASE", File.GetUri(File.DirAssets, "bts.png")) As Marker
BTSMarker.Position = MarkerLocation 'set BTSMarker new location
markerMap.Put(BTSMarker, 1) 'place them both in a Map so you can retrieve Marker1's location (MarkerLocation)
'CreatE LANDMarker
MarkerLocation.Initialize(LANDLat,LANDLng)
Private LANDMarker = gmap.AddMarker2(LANDLat , LANDLng, "LANDMARK", File.GetUri(File.DirAssets, "landmark.png")) As Marker
LANDMarker.Position = MarkerLocation 'set LANDMarker new location
markerMap.Put(LANDMarker, 2) 'place them both in a Map so you can retrieve Marker1's location (MarkerLocation)
HorizonPointLatLng
DrawLandMarkLine
DrawAntBearingLine
cp.Initialize(MapLat, MapLng, MapZoom )
gmap.MoveCamera(cp)
End Sub
#End Region
Sub gmap_Click (Point As LatLng)
Private MapCenter As LatLng
Private BTSLatLng As LatLng
Private LandMarkLatLng As LatLng
If MarkerFlag = 1 Then
BTSLatLng = Point
BTSLat = BTSLatLng.Latitude
BTSLng = BTSLatLng.Longitude
'Remove marker before placing marker at new location
Dim BTSMarkerx As Marker = markerMap.Get("BTSMarker")
BTSMarkerx.Remove
'Add marker at new location
MarkerLocation.Initialize(BTSLat,BTSLng)
Private BTSMarker = gmap.AddMarker2(10 , 10, "BASE", File.GetUri(File.DirAssets, "bts.png")) As Marker
BTSMarker.Position = MarkerLocation 'set BTSMarker new location
markerMap.Put(BTSMarker, 1)
End If
If MarkerFlag = 2 Then
LandMarkLatLng = Point
LANDLat = LandMarkLatLng.Latitude
LANDLng = LandMarkLatLng.Longitude
'Remove marker before placing marker at new location
Dim LANDMarkerX As Marker = markerMap.Get("LANDMarker")
LANDMarkerX.Remove
'Add marker at new location
MarkerLocation.Initialize(LANDLat,LANDLng)
Private LANDMarker = gmap.AddMarker2(LANDLat , LANDLng, "LANDMARK", File.GetUri(File.DirAssets, "landmark.png")) As Marker
LANDMarker.Position = MarkerLocation 'set LANDMarker new location
markerMap.Put(LANDMarker, 2) 'place them both in a Map so you can retrieve Marker1's location (MarkerLocation)
End If
DispBTSLat.Text = NumberFormat2 (BTSLat, 1 , 5, 5, False)
DispBTSLng.Text = NumberFormat2 (BTSLng, 1 , 5, 5, False)
DispLandLat.Text = NumberFormat2 (LANDLat, 1 , 5, 5, False)
DispLandLng.Text = NumberFormat2 (LANDLng, 1 , 5, 5, False)
DispAntBearing.Text = NumberFormat2 (AntBearing, 1 , 1 , 1, False)
HorizonPointLatLng
DrawLandMarkLine
DrawAntBearingLine
'Force re-draw of map to remove old marker icon
MapZoom = gmap.CameraPosition.Zoom
MapCenter = gmap.CameraPosition.Target
cp.Initialize(MapCenter.Latitude, MapCenter.Longitude, 10 )
gmap.MoveCamera(cp)
cp.Initialize(MapCenter.Latitude, MapCenter.Longitude, MapZoom )
gmap.MoveCamera(cp)
MarkerFlag = 0
End Sub
