Nenhuma avalição
COMENTAR
INDICAR
Usando o Google Maps em seu Programa.Postada em: 14/08/2007
Usando o Google Maps em seu Sistema
Inicie o VB 2005 Express (é recomendável que você atualize a versão com o Service Pack 1) e crie um novo projeto do tipo Windows Application com o nome de mapsGoogleNet ou qualquer nome que achar mais conveniente.
Abra o formulário e defina o seguinte namespace na declaração imports: Imports System.text
No início do formulário defina a variável consultaEndereco do tipo StringBuilder:
Dim consultaEndereco As New StringBuilder()
O container usado conterá dois painéis , onde no painel superior iremos incluir alguns controles TextBox e Button para coletar informação do usuário e no painel inferior vamos incluir um componente WebBrowser a partir da guia Common Control da ToolBox.
A seguir insira o seguinte código no evento Click do botão Localizar Endereço:
Private Sub btnMapsEndereco_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMapsEndereco.Click
Dim cidade As String = String.Empty
Dim estado As String = String.Empty
Dim rua As String = String.Empty
Dim cep As String = String.Empty
consultaEndereco.Append("http://maps.google.com/maps?q=")
Try
' constroi a consulta pelo nome da cidade
If txtCidade.Text <> String.Empty Then
cidade = txtCidade.Text.Replace(" ", "+")
consultaEndereco.Append(cidade + "," & "+")
End If
' constroi a consulta pelo nome do estado
If txtEstado.Text <> String.Empty Then
estado = txtEstado.Text.Replace(" ", "+")
consultaEndereco.Append(estado + "," & "+")
End If
' constroi a consulta pelo nome da rua
If txtRua.Text <> String.Empty Then
rua = txtRua.Text.Replace(" ", "+")
consultaEndereco.Append(rua + "," & "+")
End If
' constroi a consulta pelo cep informado
If txtCep.Text <> String.Empty Then
cep = txtCep.Text.ToString()
consultaEndereco.Append(cep)
End If
' passa a URL com a string de consulta para o WebBrowser
WebBrowser1.Navigate(consultaEndereco.ToString())
Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "Localização indisponível para exibição no Mapa.")
End Try
A lógica usada é muito simples:
iremos usar a URL do Google maps no controle WebBrowser e a partir das informações passadas pelo usuário iremos montar uma consulta de busca por endereço ou por latitude/longitude passando os parâmetros para a URL.
Espero que Tenham Gostado. Sou novo e quero ficar entre os primeiros aqui.
Qualquer dúvida mande um e-mail wevertonsv@gmail.com
Para ver a matéria com as fotos e inteira acesse o link ao lado: Clique Aqui
Inicie o VB 2005 Express (é recomendável que você atualize a versão com o Service Pack 1) e crie um novo projeto do tipo Windows Application com o nome de mapsGoogleNet ou qualquer nome que achar mais conveniente.
Abra o formulário e defina o seguinte namespace na declaração imports: Imports System.text
No início do formulário defina a variável consultaEndereco do tipo StringBuilder:
Dim consultaEndereco As New StringBuilder()
O container usado conterá dois painéis , onde no painel superior iremos incluir alguns controles TextBox e Button para coletar informação do usuário e no painel inferior vamos incluir um componente WebBrowser a partir da guia Common Control da ToolBox.
A seguir insira o seguinte código no evento Click do botão Localizar Endereço:
Private Sub btnMapsEndereco_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMapsEndereco.Click
Dim cidade As String = String.Empty
Dim estado As String = String.Empty
Dim rua As String = String.Empty
Dim cep As String = String.Empty
consultaEndereco.Append("http://maps.google.com/maps?q=")
Try
' constroi a consulta pelo nome da cidade
If txtCidade.Text <> String.Empty Then
cidade = txtCidade.Text.Replace(" ", "+")
consultaEndereco.Append(cidade + "," & "+")
End If
' constroi a consulta pelo nome do estado
If txtEstado.Text <> String.Empty Then
estado = txtEstado.Text.Replace(" ", "+")
consultaEndereco.Append(estado + "," & "+")
End If
' constroi a consulta pelo nome da rua
If txtRua.Text <> String.Empty Then
rua = txtRua.Text.Replace(" ", "+")
consultaEndereco.Append(rua + "," & "+")
End If
' constroi a consulta pelo cep informado
If txtCep.Text <> String.Empty Then
cep = txtCep.Text.ToString()
consultaEndereco.Append(cep)
End If
' passa a URL com a string de consulta para o WebBrowser
WebBrowser1.Navigate(consultaEndereco.ToString())
Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "Localização indisponível para exibição no Mapa.")
End Try
A lógica usada é muito simples:
iremos usar a URL do Google maps no controle WebBrowser e a partir das informações passadas pelo usuário iremos montar uma consulta de busca por endereço ou por latitude/longitude passando os parâmetros para a URL.
Espero que Tenham Gostado. Sou novo e quero ficar entre os primeiros aqui.
Qualquer dúvida mande um e-mail wevertonsv@gmail.com
Para ver a matéria com as fotos e inteira acesse o link ao lado: Clique Aqui
