[Gambas-user] So cool :-)

[Fabien Bodard]

Public Sub Form_Open()

  Dim sMap As String

  MapView1.AllowEffect = False
  sMap = "http://apicarto-dev.sgmap.fr/maps" &
    "/wmts?SERVICE=WMTS&REQUEST=GetTile&VERSION=1.0.0&LAYER=ORTHOIMAGERY.ORTHOPHOTOS&STYLE=normal&TILEMATRIXSET=PM&TILEMATRIX={z}&TILEROW={y}&TILECOL={x}&FORMAT=image%2Fjpeg"

  MapView1.Map.AddTile("IGN", sMap).Copyright = "IGN"

  sMap = "http://apicarto-dev.sgmap.fr/maps" &
    "/wmts?SERVICE=WMTS&REQUEST=GetTile&VERSION=1.0.0&LAYER=CADASTRALPARCELS.PARCELS&STYLE=bdparcellaire_b&TILEMATRIXSET=PM&TILEMATRIX={z}&TILEROW={y}&TILECOL={x}&FORMAT=image%2Fpng&TRANSPARENT=TRUE';"

  MapView1.Map.AddTile("Cadastre", sMap).Copyright = "IGN"
  MapView1.Map.MaxZoom = 19


End

-- 
Fabien Bodard