Petite application de cartographie, avec scrolling et calculs de distances après étalonnage

Soyez le premier à donner votre avis sur cette source.

Vue 17 154 fois - Téléchargée 12 428 fois

Description

Ce petit programme sans prétention est un exemple de ce que l'on peut faire avec PaintPicture, pour réaliser un scrolling. Il illustre également une méthode classique d'étalonnage.
C'est la base d'une application de cartographie, le programme pourrait être enrichi de nombreuses focntionnalités. Tel qu'il est , il est aisé à comprendre et à modifier.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
170
Date d'inscription
jeudi 11 décembre 2003
Statut
Membre
Dernière intervention
24 janvier 2009

Hello,

est ce que tu connais ce lien? Je ne sais pas si cela peut t'aider, mais c'est complet et bien fait. Sinon, un peu de Googlage devrait te permettre de trouver pas mal de choses.

Jm
Messages postés
29
Date d'inscription
jeudi 10 avril 2008
Statut
Membre
Dernière intervention
25 mai 2008

bonjour
exceelent ton prog , bon moi aussi je suis entain de faire un tt petit prog en relation avec les sig
j ai cree une base de donne (access) et j ai numerise mes couche vectoriel et la je suis entrain
de realise une interfase d utilisateur

j ai reussi a faire le lien avec la base se donne
j ai installe la composante mapobject2.1 pour visualise les *.shp avec vb6
mais le probleme que je suis bloque a niveau de la visualisation des couches verctoriel
(je peut les visualise au comple ) mais le prob c'est que je doit lancer des requette pour affiche seulement les couche specifie a ma requette


quelqu un peut m aide??
merci
Messages postés
1
Date d'inscription
mercredi 2 mai 2007
Statut
Membre
Dernière intervention
2 mai 2007

J'aimerais faire une application avec le géoreferencement d'une image pour y placer des points selon leur latitude longitude. Je travail en delphi donc j'aimerais juste quelques conseils ? J'ai été sur MapWindow j'ai installé l'activX mais j'ai du mal a comprendre comment il pourrait m'aider. Pourrier vous me conseiller pour le géoréférencement ?
Messages postés
170
Date d'inscription
jeudi 11 décembre 2003
Statut
Membre
Dernière intervention
24 janvier 2009

Et voila, la mise à jour est faite et on peut maintenant déplacer la carte par simple déplacement à la souris. Note: c'est "temps réel", le déplacement de la carte se fait tant qu'on ne relache pas le bouton de la souris. On peut modifier le code si on veut pour ne faire le réaffichage que sur le mouseUp plutot qu'à chaque MouseMove. C'est vous qui voyez :-)
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
22
Classiquement, il faut utiliser la procédure événementielle MouseMove et user de son attribut Button. Si Button <> 0 (autrement dit, n'est pas un click Gauche, droite ou les deux... cf. la MSDN [l'aide du VB] pour plus d'infos) alors, déplace la carte.
Pour déplacer la carte, en fait, tu dois utiliser la procédure événementielle MouseDown avec deux variables globales (le type Integer suffit!). Ces deux variables servent à récupérer les coordonnées originales de la souris. Ensuite, dans MouseMove, il faut tester que les anciennes coordonnées (celles des variables) sont bien différentes des nouvelles (tant sur X que sur Y).
Donc, si un bouton est enclanché et que la souris à effectivement bougée, c'est mouvable.
En fin de procédure de déplacement tu remplaces les anciennes coordonnées (variables) par les nouvelles (argument de la procédure événementielle MouseMouse X et Y).
Mais fait bien gaffe au ScaleMode qui, s'il est en Twip, changera ton calcul (généralement effectué en pixels!).
Si t'as pas tout pigé, demande moi ;-)
Afficher les 16 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.