Google Map dans application vb.net [Résolu]
cs_mickael56100
- Messages postés
- 94
- Date d'inscription
- vendredi 12 septembre 2008
- Dernière intervention
- 19 mai 2012
- Messages postés
- 166
- Date d'inscription
- samedi 11 décembre 2004
- Dernière intervention
- 14 août 2013
A voir également:
- Vb map
- Google vb - Meilleures réponses
- Vb.net google - Meilleures réponses
- Visual Basic / VB.NET : Créer un sorte de map comme dans les jeux tels que command & conq - Guide
- Visual Basic / VB.NET : Envoyer un e-mail autonome (sans mapi) *- - CodeS SourceS - Guide
- Visual Basic / VB.NET : Nurmite project: map en opengl - CodeS SourceS - Guide
- Visual Basic / VB.NET : Mapi (mail plusieurs personnes et pièces jointes) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Envoi de mail par microsoft mapi control 6.0 - CodeS SourceS - Guide
5 réponses
Meilleure réponse
- Messages postés
- 661
- Date d'inscription
- vendredi 2 décembre 2005
- Dernière intervention
- 23 mars 2011
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 661
- Date d'inscription
- vendredi 2 décembre 2005
- Dernière intervention
- 23 mars 2011
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
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
- Messages postés
- 94
- Date d'inscription
- vendredi 12 septembre 2008
- Dernière intervention
- 19 mai 2012
- Messages postés
- 94
- Date d'inscription
- vendredi 12 septembre 2008
- Dernière intervention
- 19 mai 2012
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
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
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.