Sub Map_Ready
Log("map ready")
GMaps = MFragment.GetMap
If GMaps.IsInitialized = False Then
ToastMessageShow("Error initializing map.", True)
Else
Dim cp As CameraPosition
cp.Initialize(LatitudeNotification, LongitudeNotification, 15)
GMaps.MoveCamera(cp)
GMaps.TrafficEnabled = True
Dim BMap As BitmapDrawable
BMap = AR.GetApplicationDrawable("pinpassageiro")
If (BMap.IsInitialized) Then
GMaps.AddMarker3(LatitudeNotification, LongitudeNotification, CustomerNameNotification, BMap.Bitmap)
Else
GMaps.AddMarker(LatitudeNotification, LongitudeNotification, CustomerNameNotification)
End If
BMap = AR.GetApplicationDrawable("pintaxista")
If (BMap.IsInitialized) Then
GMaps.AddMarker3(GPSTrack.Latitude, GPSTrack.Longitude, "Driver", BMap.Bitmap)
Else
GMaps.AddMarker(GPSTrack.Latitude, GPSTrack.Longitude, "Driver")
End If
Dim OnInfoWindowClickListener1 As OnInfoWindowClickListener
OnInfoWindowClickListener1.Initialize("OnInfoWindowClickListener1")
If OnInfoWindowClickListener1.IsInitialized Then
GMapsExtras.SetOnInfoWindowClickListener(GMaps, OnInfoWindowClickListener1)
Else
Log("OnInfoWindowClickListener1 is not initialized - check that the Activity contains a Click callback Sub")
End If
End If
End Sub