Para utilizar o Google Maps 2.0 usando ASP.NET voce precisa baixar o Assembly da Reimers no endereco: http://www.reimers.dk/files/folders/google_maps/entry1.aspx
Colocar a DLL no diretório /bin do seu projeto e colocar essas linhas, so lembrando que a Latitude/Longitude deste projeto esta marcada para meu endereço caso alguem queria fazer alguma doação de uma Ferrari J
Default.aspx
Registrar a Tag no comeco do arquivo
<%@
Register
TagPrefix="cc1"
Namespace="Reimers.Map"
Assembly="GoogleMap"
%>
Criar controle dentro de um FORM
<cc1:GoogleMap
id="GMapControl1"
runat="server"
/>
Default.aspx.vb
Imports System.Web.UI.WebControls
Imports MapControl
Partial Class _default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' Lat/Lon(-21.190814, -47.82075)
Dim Lat As Double = -21.190614
Dim Lng As Double = -47.82131
Dim sInfo As String = "Algum comentario aqui"
GMapControl1.Width = 550
GMapControl1.Height = 400
GMapControl1.MapType = MapControl.GMapType.MAP
GMapControl1.DoubleClickZoomEnabled = "true"
GMapControl1.TypeControl = Reimers.Map.MapTypeControl.None
GMapControl1.ShowScaleControl = True
GMapControl1.GoogleKey = ConfigurationManager.AppSettings("googlemaps_key")
GMapControl1.Latitude = Lat
GMapControl1.Longitude = Lng
GMapControl1.MapControl = Reimers.Map.ControlType.Large
GMapControl1.Zoom = 15
' Criar PinPoint no Mapa
Dim sPinPoint As String = "<b>Ola</b><br />Somente um teste"
Dim MyPoint As Reimers.Map.GoogleLatLng = New Reimers.Map.GoogleLatLng(Lat, Lng)
Dim myMarker As Reimers.Map.GoogleMarker = New Reimers.Map.GoogleMarker("pinpoint" + "1", MyPoint)
GMapControl1.Markers.Add(myMarker)
GMapControl1.AddOverlay(myMarker)
End Sub
Protected Sub GMapControl1_MarkerClick1(ByVal Map As Reimers.Map.GoogleMap, ByVal Marker As Reimers.Map.GoogleMarker, ByRef MapCommand As
String) Handles GMapControl1.MarkerClick
Dim sPinPoint As String = "<b>Ola</b><br />Somente um teste"
sInfo = sInfo & "<br /><br />Latitude: " & Map.Latitude & "<br />Longitude: " & Map.Longitude
MapCommand = Marker.OpenInfoWindowHTML(GMapControl1, sInfo)
End Sub
End Class
8 comments:
Há um lugar certo no Universo, aonde posso me expressar e me realizar, esse lugar é qualquer lugar, onde eu esteja disposta a ser, a dar e receber. Há um tempo certo para poder brilhar, iluminar e crescer, esse tempo é qualquer tempo, em que eu esteja presente e reconhecida do que sou, do que posso, do que tenho a fazer, por mim e por outros.
Não busco longe o que antes não conquistei aqui, exploro a plenitude do momento e do espaço que conquisto agora e me preparo para alçar vôos nos patamares de luz de minha consciência, um caminho lindo me acompanha, um lugar maravilhoso me aguarda, A CADA DESPERTAR... você me despertou, eu busco você, quero você Honey!!!
“Já perdoei erros quase imperdoáveis, tentei substituir pessoas insubstituíveis e esquecer pessoas inesquecíveis”.
Já fiz coisas por impulso, já me decepcionei com pessoas quando nunca pensei me decepcionar, mas também decepcionei alguém.
Já abracei pra proteger, já dei risada quando não podia, fiz amigos eternos, amei e fui amada, mas também já fui rejeitada, fui amada e não amei.
Já gritei e pulei de tanta felicidade, já vivi de amor e fiz juras eternas, “quebrei a cara muitas vezes!
Já chorei ouvindo música e vendo fotos, já liguei só para escutar uma voz, me apaixonei por um sorriso, já pensei que fosse morrer de tanta saudade e tive medo de perder alguém especial (e acabei perdendo).
Mas vivi, e ainda vivo!
Não passo pela vida…
E você também não deveria passar!
Viva!
Bom mesmo é ir à luta com determinação, abraçar a vida com paixão, perder com classe
e vencer com ousadia, porque o mundo pertence a quem se atreve e a vida é “MUITO” pra ser insignificante.”
Bjs...
Amore...
Um céu Sem Estrelas, Uma Praia Sem Mar
Um amor Sem Carinho, Um Romance Sem Par
Carnaval sem festa, Um Jardim sem flor
É assim que eu me sinto longe do seu amor!
Como enganar um coração tão ligado nesse amor?
Como viver a minha vida sem teu jeito sedutor?
Não dá mais pra segurar
Tô viciada em você!
Não dá..., Não dá..., Pra ficar..., Pra ficar Sem te ver
Já estou ficando louca
Não dá..., Não dá..., Pra ficar..., Pra ficar Sem te ver
Sou 100% você!
*Bjs*...
Xu...
Por que será que tem que ser assim
A gente gosta, a gente ama, a gente cuida.
E o tempo faz verdade nos teus olhos
Deixa ver
Solidão abusa
Foi tão bonito, tão intenso, tão maravilhoso cada segundo;
E a vida nos revela cada dia uma nova cena de um outro mundo
Se chega me beija, me olha nos olhos;
E me diz então: Valeu, foi bom, Adeus!
Não vou chorar
Nem vou me arrepender
Foi eterno enquanto durou
Foi sincero nosso amor
Mas chegou ao fim...
Guardei as fotografias
Coloquei numa caixa vazia, o que restou do amor.
Sempre irei Adorar Vc!!!
Honey...aqui vai um poema sobre Sinceridade. *Bjs*.
Sinceridade
Tão simples e tão fácil enganar alguém.
Enganar-se de tantas formas, tão simplesmente e com tanto desdém que a verdade muda sua forma.
Talvez por ser difícil dizer aquilo que se tem vontade, aquilo que é verdade.
A gente se omite e diz pra si mesmo Ah! Não minto... como se nas entrelinhas tudo já tivesse sido dito.
Sensa cera opaca, onde nada se lê, sem transparência, apenas adivinhações.
Tão simples não haver sinceridade tão fácil se enganar alguém... e tão prático se omitir.
Xuxu...
Mas não passou sem nuvem de tristeza esse amor que era toda a tua vida, em que eu tinha a existência resumida e a viva chama de minha alma, acesa.
Nem lemos sem vislumbre de incerteza a página do amor, lida e relida, mas pouquíssimas vezes entendida, sempre cheia de engano e de surpresa.
Não. Quantas vezes ocultei a minha
dor num sorriso! Quantas vezes sentiste parar, medroso, o coração de gelo!
- É que nossa alma às vezes adivinha que perder um amor não é tão triste como pensar que havemos de perdê-lo.
(Guilherme de Almeida)
Até um dia! "Tudo que é bom dura o tempo necessário para ser inesquecível". *Bjs*
Google Maps Control For ASP.Net
Post a Comment