Google Map dans application vb.net [Résolu]

cs_mickael56100 94 Messages postés vendredi 12 septembre 2008Date d'inscription 19 mai 2012 Dernière intervention - 23 déc. 2008 à 18:49 - Dernière réponse : tovin 166 Messages postés samedi 11 décembre 2004Date d'inscription 14 août 2013 Dernière intervention
- 25 déc. 2012 à 07:39
Bonjour tout le monde, une nouvelle question, en fait je pense qu'il est surrement possible de réaliser ce que je souhaite faire, mais à vrai dire je ne sais pas vraiment comment m'y prendre, je débute en vb.net.

En fait je souhaiterais afficher sur mon application un extrait d'une page internet, en locurence google map et permettre de collecter des information à partir d'un formulaire.
Voici un exemple de ce que je souhaite afficher (juste la carte en fait)
http://www.tsawri.com/show.php/17846_Googlemap.jpg.html
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
cs_fauve 661 Messages postés vendredi 2 décembre 2005Date d'inscription 23 mars 2011 Dernière intervention - 24 déc. 2008 à 17:37
3
Merci
Salut,

J'ai trouvé comment affiché la carte et seulement celle-ci.

Voici le code a utilisé :

Dim queryAddress As New StringBuilder()

Try

     queryAddress.Append("
<small>[ Agrandir le plan]</small>")

     WebBrowserGoogleMap.DocumentText =  queryAddress.ToString

Catch  ex As Exception

     MessageBox.Show(ex.Message.ToString(),  "Impossible d'obtenir la carte" )

End Try

++

Fauve
<hr size ="2" width="100%" />Pensez : Réponse Acceptée 

Merci cs_fauve 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 90 internautes ce mois-ci

Commenter la réponse de cs_fauve
cs_fauve 661 Messages postés vendredi 2 décembre 2005Date d'inscription 23 mars 2011 Dernière intervention - 23 déc. 2008 à 21:34
0
Merci
Salut,

Oui c'est tout à fait possible :





1°) Pour faire simple, tu vas d'abord mettre 4 labels :


Note : Name et Text sont les propriétés des Labels




1° Label >>> Name : LabelRue           | Text : Rue
2° Label >>> Name : LabelVille         | Text : Ville
3° Label >>> Name : LabelPays          | Text : Pays
4° Label >>> Name : LabelCodePostal    | Text : Code Postal





2°) Ajouter 4 TextBox en face de chaque Label :


Note : Name et MaxLength sont les propriétés des TextBox




1° TextBox >>> Name : TextBoxRue        | MaxLength : 100
2° TextBox >>> Name : TextBoxVille      | MaxLength : 50
3° TextBox >>> Name : TextBoxPays       | MaxLength : 2
4° TextBox >>> Name : TextBoxCodePostal | MaxLength : 5





3°) Ajouter un bouton :


Note : Name et Text sont les propriétés du bouton




Bouton >>>> Name : BoutonCarteAdresse  | Text : Carte Adresse





4°) Ajouter un WebBrowser ( le faire le plus grand possible ) :


Note : Name est la propriété du WebBrowser




WebBrowser >>>> Name : WebBrowserGoogleMap





5°) Afficher le Google Map dans le WebBrowser :

> Double - clic sur le Bouton BoutonCarteAdresse
> Dans l'évènement ci-dessous qui apparait:


Private Sub
BoutonCarteAdresse_Click(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
BoutonCarteAdresse.Click





   Mettre le code suivant :





Try




     Dim Rue As String  = String.Empty
     Dim Ville As String =   String .Empty
     Dim Pays As String  = String.Empty
     Dim CodePostal As String =   String .Empty

     Dim queryAddress As New StringBuilder()
     queryAddress.Append( "http://maps.google.com/maps?q =" )

     ' Ajoute la rue
     If TextBoxRue.Text <> String.Empty Then
          Rue  =  TextBoxRue.Text.Replace(" ""+")
          queryAddress.Append(Rue + "," & "+")
      End If

     ' Ajoute la ville
     If TextBoxVille.Text <> String.Empty Then
          Ville  =  TextBoxVille.Text.Replace( " " , "+")
          queryAddress.Append(Ville + "," & "+")
     End If

     ' Ajoute le pays
     If TextBoxPays.Text <> String.Empty Then
          Pays  =  TextBoxPays.Text.Replace(" ""+")
          queryAddress.Append(Pays + "," & "+")
      End If

     ' Ajoute le Code Postal
     If TextBoxCodePostal.Text <> String.Empty Then
          CodePostal  =  TextBoxCodePostal.Text.ToString()
          queryAddress.Append(CodePostal)
     End If

     ' Envoi l'url avec l'adrese complète dans WebBrowser1
     WebBrowserGoogleMap.Navigate(queryAddress.ToString())

Catch ex As Exception

     MessageBox.Show(ex.Message.ToString(),  "Impossible d'obtenir la carte" )

End Try



<hr size = "2" width="100%" />


Et voilà, tu n'as plus qu'à exécuter ce petit projet. Si tu as le moindre soucis n'hésites pas 

++

Fauve

<hr size ="2" width="100%" />
Pensez : Réponse Acceptée 
Commenter la réponse de cs_fauve
cs_mickael56100 94 Messages postés vendredi 12 septembre 2008Date d'inscription 19 mai 2012 Dernière intervention - 23 déc. 2008 à 22:50
0
Merci
Merci beaucoup, je m'attendais pas à une réponse aussi précise, par contre j'ai un message d'erreur, on me dit que le type string builder() n'est pas définit
Commenter la réponse de cs_mickael56100
cs_mickael56100 94 Messages postés vendredi 12 septembre 2008Date d'inscription 19 mai 2012 Dernière intervention - 23 déc. 2008 à 23:05
0
Merci
J'ai trouvé il faut rajouté le
Imports System.Text au tout début du code

Par contre, c'est pas vraiment ce que je voulais, en ft moi je veux juste la carte pas le logo google, la possibilé de consulter une autre page, juste cette partie la en fait
http://www.tsawri.com/show.php/17846_Googlemap.jpg.html
Commenter la réponse de cs_mickael56100
tovin 166 Messages postés samedi 11 décembre 2004Date d'inscription 14 août 2013 Dernière intervention - 25 déc. 2012 à 07:39
0
Merci
Bonjour,
Fauve, bravo !!!
Commenter la réponse de tovin

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.