Log("MapFragment1_Ready")
GoogleMap1 = MapFragment1.GetMap
If GoogleMap1.IsInitialized = False Then
ToastMessageShow("Error initializing map.", True)
Else
' use the new MarkerOptions method to create and add a Marker to the map
Dim MarkerOptions1 As MarkerOptions
MarkerOptions1.Initialize
MarkerOptions1.Position2(52.75619, 0.3980).Snippet("Home is where the heart is").Title("Home Sweet Home").Visible(True)
Dim BitmapDescriptor1 As BitmapDescriptor
Dim BitmapDescriptorFactory1 As BitmapDescriptorFactory
BitmapDescriptor1=BitmapDescriptorFactory1.FromAsset("person.png") <--- Fehler
BitmapDescriptor1=BitmapDescriptorFactory1.FromBitmap(LoadBitmap(File.DirAssets, "person.png")) <--- geht aber Marker ist nur ein Teil zu sehen
MarkerOptions1.Icon(BitmapDescriptor1)
Dim Marker1 As Marker=GoogleMapsExtras1.AddMarker(GoogleMap1, MarkerOptions1)
Dim CameraPosition1 As CameraPosition
CameraPosition1.Initialize(52.75619, 0.3980, 6)
GoogleMap1.AnimateCamera(CameraPosition1)
End If