Sub MapFragment1_Ready
Try
Dim ThisLatitude As String
Dim ThisLongitude As String
Dim MarkerColor As Float = 120.0
Dim MarkerCount As Int = 0
Dim MarkerList As List
MarkerList.Initialize
gmap = MapFragment1.GetMap
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
Dim RS1 As ResultSet = Main.SQL1.ExecQuery("SELECT * FROM " & Main.TableName_LeadRecord & " WHERE lead_no_customer = 1 AND lead_yardsign_add_this = 1 ORDER BY ID DESC" )
Do While RS1.NextRow
ThisLatitude = RS1.GetString("lead_latitude")
ThisLongitude = RS1.GetString("lead_longitude")
If ThisLatitude <> "" And ThisLongitude <> "" Then
Dim m1 As Marker = gmap.AddMarker2(ThisLatitude,ThisLongitude,RS1.GetString("lead_number"),MarkerColor)
MarkerCount = MarkerCount + 1
Dim MarkerPosition As LatLng
Dim Lat As Double = RS1.GetString("lead_latitude")
Dim Lon As Double = RS1.GetString("lead_longitude")
MarkerPosition.Initialize(Lat,Lon)
MarkerList.Add(MarkerPosition)
End If
Loop
RS1.Close
Dim cp As CameraPosition
cp.Initialize(ThisLatitude,ThisLongitude, 14)
gmap.AnimateCamera(cp)
GMX.Initialize(gmap)
GMX.ZoomToPoints(MarkerList) 'fit all markers within map border
Label_MapAddress.Text = "Yardsign Count: " & MarkerCount
Catch
Log(LastException)
xui.MsgboxAsync("Map Error: " & LastException, "Error")
End Try
End Sub