Sub MapFragment1_Ready
Log("MapFragment1_Ready")
GoogleMap1 = MapFragment1.GetMap
If GoogleMap1.IsInitialized = False Then
ToastMessageShow("Error initializing map.", True)
Else
'60x30 icon
Dim Marker2 As Marker = GoogleMap1.AddMarker3(52.75619, 0.3980, "test1", SetBitmapDensity2(LoadBitmap(File.DirAssets, "image1.png"),160))
'240 x 120
Dim Marker3 As Marker = GoogleMap1.AddMarker3(52.75619, 0.3980, "test2", SetBitmapDensity2(LoadBitmap(File.DirAssets, "Image2.png"),640))
Dim CameraPosition1 As CameraPosition
CameraPosition1.Initialize(52.75619, 0.3980, 25)
GoogleMap1.AnimateCamera(CameraPosition1)
End If
End Sub
Sub SetBitmapDensity2(b As Bitmap, Multiplier As Int) As Bitmap
Dim jo As JavaObject = b
Dim den As Int = Density * Multiplier
jo.RunMethod("setDensity", Array(den))
Return b
End Sub