[Gambas-user] So cool :-)

[Fabien Bodard]

Le 7 janvier 2016 à 19:46, Benoît Minisini
<gambas at ...1...> a écrit :
> Le 07/01/2016 17:42, Fabien Bodard a écrit :
>> 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
>>
>
> Toujours sur la carto ? Ça risque de m'intéresser... Ces cartes sont en
> WGS (je peux prendre des coordonnées WGS84 et les mettre directement
> dessus) ?

oui ...

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

  MapView1.Map.Center = MapPoint(Geo.SexToDec("45°31'32,1''N"),
Geo.SexToDec("0°18'33,8''W"))
  MapView1.Map.Zoom = 17


  MapView1.Map.AddShape("Shape")
  MapView1.Map!Shape.AddPoint("ChezMoi", MapPoint(45.525632, -0.309382))
End

>
> En plus maintenant il y a le composant gb.web.form, il mérite bien
> d'avoir un contrôle "OpenStreetMap"...

Oui mais la c'est une autre paire de manche. En faite gb.map c'est du
pure Gambas. Il faudrait associer un truc du genre LeafLet.
Pour ce qui est de l'interface gb.map est grandement inspiré de ce
dernier. Sauf que dans mon cas j'ai souhaité avoir un double niveau :

Map pour générer une image statique de la carte ce qui me permet entre
autre de l'utiliser dans d'autres composants.
MapView qui utilise map en fournissant l'interface de gestion des
évènements sourie


https://plus.google.com/+FabienBodard/posts/8VidmovXBZC


> --
> Benoît Minisini
>
> ------------------------------------------------------------------------------
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user



-- 
Fabien Bodard