Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Merge branch 'ModernMaps' of github.com:LuisM000/GoogleMapsVB.NET

  • Loading branch information...
commit 54dd78f3d23bcb9846b94c968f9db17f5cd8216c 2 parents 7fd64da + 564071d
@LuisM000 authored
Showing with 921 additions and 415 deletions.
  1. +0 −256 Aplicacion/MapsVB.NET/Form1.Designer.vb
  2. +0 −126 Aplicacion/MapsVB.NET/Form1.vb
  3. +5 −5 Aplicacion/MapsVB.NET.sln → ModernMaps.NET/ModernMaps.NET.sln
  4. +11 −11 {Aplicacion/MapsVB.NET → ModernMaps.NET/ModernMaps.NET}/Class1.vb
  5. +251 −0 ModernMaps.NET/ModernMaps.NET/Form1.Designer.vb
  6. +160 −0 ModernMaps.NET/ModernMaps.NET/Form1.resx
  7. +119 −0 ModernMaps.NET/ModernMaps.NET/Form1.vb
  8. +40 −0 ModernMaps.NET/ModernMaps.NET/ISP.Designer.vb
  9. 0  Aplicacion/MapsVB.NET/Form1.resx → ModernMaps.NET/ModernMaps.NET/ISP.resx
  10. +3 −0  ModernMaps.NET/ModernMaps.NET/ISP.vb
  11. +22 −4 Aplicacion/MapsVB.NET/MapsVB.NET.vbproj → ModernMaps.NET/ModernMaps.NET/ModernMaps.NET.vbproj
  12. +9 −9 {Aplicacion/MapsVB.NET → ModernMaps.NET/ModernMaps.NET}/My Project/Application.Designer.vb
  13. +2 −3 {Aplicacion/MapsVB.NET → ModernMaps.NET/ModernMaps.NET}/My Project/Application.myapp
  14. +1 −1  {Aplicacion/MapsVB.NET → ModernMaps.NET/ModernMaps.NET}/My Project/AssemblyInfo.vb
  15. 0  {Aplicacion/MapsVB.NET → ModernMaps.NET/ModernMaps.NET}/My Project/Resources.Designer.vb
  16. 0  {Aplicacion/MapsVB.NET → ModernMaps.NET/ModernMaps.NET}/My Project/Resources.resx
  17. 0  {Aplicacion/MapsVB.NET → ModernMaps.NET/ModernMaps.NET}/My Project/Settings.Designer.vb
  18. 0  {Aplicacion/MapsVB.NET → ModernMaps.NET/ModernMaps.NET}/My Project/Settings.settings
  19. +126 −0 ModernMaps.NET/ModernMaps.NET/Principal.Designer.vb
  20. +123 −0 ModernMaps.NET/ModernMaps.NET/Principal.resx
  21. +49 −0 ModernMaps.NET/ModernMaps.NET/Principal.vb
View
256 Aplicacion/MapsVB.NET/Form1.Designer.vb
@@ -1,256 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class Form1
- Inherits System.Windows.Forms.Form
-
- 'Form reemplaza a Dispose para limpiar la lista de componentes.
- <System.Diagnostics.DebuggerNonUserCode()> _
- Protected Overrides Sub Dispose(ByVal disposing As Boolean)
- Try
- If disposing AndAlso components IsNot Nothing Then
- components.Dispose()
- End If
- Finally
- MyBase.Dispose(disposing)
- End Try
- End Sub
-
- 'Requerido por el Diseñador de Windows Forms
- Private components As System.ComponentModel.IContainer
-
- 'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
- 'Se puede modificar usando el Diseñador de Windows Forms.
- 'No lo modifique con el editor de código.
- <System.Diagnostics.DebuggerStepThrough()> _
- Private Sub InitializeComponent()
- Me.txtCalle = New System.Windows.Forms.TextBox()
- Me.Button1 = New System.Windows.Forms.Button()
- Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
- Me.txtCiudad = New System.Windows.Forms.TextBox()
- Me.txtPais = New System.Windows.Forms.TextBox()
- Me.txtCP = New System.Windows.Forms.TextBox()
- Me.txtNumero = New System.Windows.Forms.TextBox()
- Me.txtlong = New System.Windows.Forms.TextBox()
- Me.txtLat = New System.Windows.Forms.TextBox()
- Me.Button2 = New System.Windows.Forms.Button()
- Me.Button3 = New System.Windows.Forms.Button()
- Me.txtprovincia = New System.Windows.Forms.TextBox()
- Me.txtcomunidad = New System.Windows.Forms.TextBox()
- Me.Button4 = New System.Windows.Forms.Button()
- Me.Label1 = New System.Windows.Forms.Label()
- Me.Label2 = New System.Windows.Forms.Label()
- Me.Label3 = New System.Windows.Forms.Label()
- Me.Label4 = New System.Windows.Forms.Label()
- Me.txtIP = New System.Windows.Forms.TextBox()
- Me.SuspendLayout()
- '
- 'txtCalle
- '
- Me.txtCalle.Location = New System.Drawing.Point(12, 12)
- Me.txtCalle.Name = "txtCalle"
- Me.txtCalle.Size = New System.Drawing.Size(173, 20)
- Me.txtCalle.TabIndex = 0
- Me.txtCalle.Text = "Calle/Local"
- '
- 'Button1
- '
- Me.Button1.Location = New System.Drawing.Point(12, 99)
- Me.Button1.Name = "Button1"
- Me.Button1.Size = New System.Drawing.Size(66, 29)
- Me.Button1.TabIndex = 1
- Me.Button1.Text = "Button1"
- Me.Button1.UseVisualStyleBackColor = True
- '
- 'WebBrowser1
- '
- Me.WebBrowser1.Location = New System.Drawing.Point(36, 263)
- Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
- Me.WebBrowser1.Name = "WebBrowser1"
- Me.WebBrowser1.Size = New System.Drawing.Size(587, 363)
- Me.WebBrowser1.TabIndex = 2
- '
- 'txtCiudad
- '
- Me.txtCiudad.Location = New System.Drawing.Point(222, 11)
- Me.txtCiudad.Name = "txtCiudad"
- Me.txtCiudad.Size = New System.Drawing.Size(173, 20)
- Me.txtCiudad.TabIndex = 3
- Me.txtCiudad.Text = "Ciudad"
- '
- 'txtPais
- '
- Me.txtPais.Location = New System.Drawing.Point(222, 90)
- Me.txtPais.Name = "txtPais"
- Me.txtPais.Size = New System.Drawing.Size(173, 20)
- Me.txtPais.TabIndex = 4
- Me.txtPais.Text = "País"
- '
- 'txtCP
- '
- Me.txtCP.Location = New System.Drawing.Point(12, 64)
- Me.txtCP.Name = "txtCP"
- Me.txtCP.Size = New System.Drawing.Size(173, 20)
- Me.txtCP.TabIndex = 5
- Me.txtCP.Text = "Código Postal"
- '
- 'txtNumero
- '
- Me.txtNumero.Location = New System.Drawing.Point(12, 38)
- Me.txtNumero.Name = "txtNumero"
- Me.txtNumero.Size = New System.Drawing.Size(173, 20)
- Me.txtNumero.TabIndex = 6
- Me.txtNumero.Text = "Número"
- '
- 'txtlong
- '
- Me.txtlong.Location = New System.Drawing.Point(450, 37)
- Me.txtlong.Name = "txtlong"
- Me.txtlong.Size = New System.Drawing.Size(173, 20)
- Me.txtlong.TabIndex = 7
- Me.txtlong.Text = "Longitud"
- '
- 'txtLat
- '
- Me.txtLat.Location = New System.Drawing.Point(450, 12)
- Me.txtLat.Name = "txtLat"
- Me.txtLat.Size = New System.Drawing.Size(173, 20)
- Me.txtLat.TabIndex = 8
- Me.txtLat.Text = "Latitud"
- '
- 'Button2
- '
- Me.Button2.Location = New System.Drawing.Point(467, 104)
- Me.Button2.Name = "Button2"
- Me.Button2.Size = New System.Drawing.Size(66, 29)
- Me.Button2.TabIndex = 9
- Me.Button2.Text = "Button2"
- Me.Button2.UseVisualStyleBackColor = True
- '
- 'Button3
- '
- Me.Button3.Location = New System.Drawing.Point(467, 174)
- Me.Button3.Name = "Button3"
- Me.Button3.Size = New System.Drawing.Size(86, 41)
- Me.Button3.TabIndex = 10
- Me.Button3.Text = "Detectar ISP"
- Me.Button3.UseVisualStyleBackColor = True
- '
- 'txtprovincia
- '
- Me.txtprovincia.Location = New System.Drawing.Point(222, 38)
- Me.txtprovincia.Name = "txtprovincia"
- Me.txtprovincia.Size = New System.Drawing.Size(173, 20)
- Me.txtprovincia.TabIndex = 11
- Me.txtprovincia.Text = "Provincia"
- '
- 'txtcomunidad
- '
- Me.txtcomunidad.Location = New System.Drawing.Point(222, 64)
- Me.txtcomunidad.Name = "txtcomunidad"
- Me.txtcomunidad.Size = New System.Drawing.Size(173, 20)
- Me.txtcomunidad.TabIndex = 12
- Me.txtcomunidad.Text = "Comunidad"
- '
- 'Button4
- '
- Me.Button4.Location = New System.Drawing.Point(310, 161)
- Me.Button4.Name = "Button4"
- Me.Button4.Size = New System.Drawing.Size(70, 66)
- Me.Button4.TabIndex = 13
- Me.Button4.Text = "Button4"
- Me.Button4.UseVisualStyleBackColor = True
- '
- 'Label1
- '
- Me.Label1.AutoSize = True
- Me.Label1.Location = New System.Drawing.Point(675, 78)
- Me.Label1.Name = "Label1"
- Me.Label1.Size = New System.Drawing.Size(86, 13)
- Me.Label1.TabIndex = 14
- Me.Label1.Text = "Buscar dirección"
- '
- 'Label2
- '
- Me.Label2.AutoSize = True
- Me.Label2.Location = New System.Drawing.Point(675, 104)
- Me.Label2.Name = "Label2"
- Me.Label2.Size = New System.Drawing.Size(113, 13)
- Me.Label2.TabIndex = 15
- Me.Label2.Text = "Buscar latitud/longitud"
- '
- 'Label3
- '
- Me.Label3.AutoSize = True
- Me.Label3.Location = New System.Drawing.Point(675, 135)
- Me.Label3.Name = "Label3"
- Me.Label3.Size = New System.Drawing.Size(236, 13)
- Me.Label3.TabIndex = 16
- Me.Label3.Text = "Codificación geográfica (obtener latitud/longitud)"
- '
- 'Label4
- '
- Me.Label4.AutoSize = True
- Me.Label4.Location = New System.Drawing.Point(675, 161)
- Me.Label4.Name = "Label4"
- Me.Label4.Size = New System.Drawing.Size(60, 13)
- Me.Label4.TabIndex = 17
- Me.Label4.Text = "Buscar ISP"
- '
- 'txtIP
- '
- Me.txtIP.Location = New System.Drawing.Point(222, 116)
- Me.txtIP.Name = "txtIP"
- Me.txtIP.Size = New System.Drawing.Size(173, 20)
- Me.txtIP.TabIndex = 18
- Me.txtIP.Text = "IP"
- '
- 'Form1
- '
- Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
- Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.ClientSize = New System.Drawing.Size(893, 527)
- Me.Controls.Add(Me.txtIP)
- Me.Controls.Add(Me.Label4)
- Me.Controls.Add(Me.Label3)
- Me.Controls.Add(Me.Label2)
- Me.Controls.Add(Me.Label1)
- Me.Controls.Add(Me.Button4)
- Me.Controls.Add(Me.txtcomunidad)
- Me.Controls.Add(Me.txtprovincia)
- Me.Controls.Add(Me.Button3)
- Me.Controls.Add(Me.Button2)
- Me.Controls.Add(Me.txtLat)
- Me.Controls.Add(Me.txtlong)
- Me.Controls.Add(Me.txtNumero)
- Me.Controls.Add(Me.txtCP)
- Me.Controls.Add(Me.txtPais)
- Me.Controls.Add(Me.txtCiudad)
- Me.Controls.Add(Me.WebBrowser1)
- Me.Controls.Add(Me.Button1)
- Me.Controls.Add(Me.txtCalle)
- Me.Name = "Form1"
- Me.Text = "Form1"
- Me.ResumeLayout(False)
- Me.PerformLayout()
-
- End Sub
- Friend WithEvents txtCalle As System.Windows.Forms.TextBox
- Friend WithEvents Button1 As System.Windows.Forms.Button
- Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
- Friend WithEvents txtCiudad As System.Windows.Forms.TextBox
- Friend WithEvents txtPais As System.Windows.Forms.TextBox
- Friend WithEvents txtCP As System.Windows.Forms.TextBox
- Friend WithEvents txtNumero As System.Windows.Forms.TextBox
- Friend WithEvents txtlong As System.Windows.Forms.TextBox
- Friend WithEvents txtLat As System.Windows.Forms.TextBox
- Friend WithEvents Button2 As System.Windows.Forms.Button
- Friend WithEvents Button3 As System.Windows.Forms.Button
- Friend WithEvents txtprovincia As System.Windows.Forms.TextBox
- Friend WithEvents txtcomunidad As System.Windows.Forms.TextBox
- Friend WithEvents Button4 As System.Windows.Forms.Button
- Friend WithEvents Label1 As System.Windows.Forms.Label
- Friend WithEvents Label2 As System.Windows.Forms.Label
- Friend WithEvents Label3 As System.Windows.Forms.Label
- Friend WithEvents Label4 As System.Windows.Forms.Label
- Friend WithEvents txtIP As System.Windows.Forms.TextBox
-
-End Class
View
126 Aplicacion/MapsVB.NET/Form1.vb
@@ -1,126 +0,0 @@
-Imports System.Xml
-Public Class Form1
-
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim objetoMaps As New GoogleMaps
- Dim direccionAux As String
- direccionAux = objetoMaps.ObtenerURLDireccionMaps(txtCalle.Text, txtNumero.Text, txtCP.Text, txtCiudad.Text, txtprovincia.Text, txtcomunidad.Text, txtPais.Text)
- Dim direccion As New Uri(direccionAux)
- WebBrowser1.Url = direccion
- End Sub
-
-
-
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Dim objetoMaps As New GoogleMaps
- Dim direccionAux As String
- direccionAux = objetoMaps.ObtenerURLlatlongMaps(CDbl(txtLat.Text), CDbl(txtlong.Text))
- Dim direccion As New Uri(direccionAux)
- WebBrowser1.Url = direccion
-
- End Sub
-
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- txtCiudad.ReadOnly = False
- txtIP.ReadOnly = False
- txtLat.ReadOnly = False
- txtlong.ReadOnly = False
- txtcomunidad.ReadOnly = False
- txtPais.ReadOnly = False
- txtCalle.ReadOnly = True
- txtCP.ReadOnly = True
- txtNumero.ReadOnly = True
- txtprovincia.ReadOnly = True
- Dim objetoMaps As New GoogleMaps
- Dim ip As String = objetoMaps.ObtenerIp()
- txtIP.Text = ip
- Dim DatosRetorno(4) As String
- DatosRetorno=objetoMaps.localizarIp(ip)
- objetoMaps.borrarCampos()
- txtPais.Text = DatosRetorno(0)
- txtCiudad.Text = DatosRetorno(1)
- txtcomunidad.Text = DatosRetorno(2)
- txtLat.Text = DatosRetorno(3)
- txtlong.Text = DatosRetorno(4)
-
- End Sub
-
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- Dim calle, poblacion, provincia, comunidad, pais As String
- calle = "calle " + txtCalle.Text
- poblacion = txtCiudad.Text
- provincia = txtprovincia.Text
- comunidad = txtcomunidad.Text
- pais = txtPais.Text
- Dim objetoMaps As New GoogleMaps
- Dim latlong(1) As Double
- latlong = objetoMaps.ObternetLatLong(calle, poblacion, provincia, comunidad, pais)
- Dim direccionAux As String
- direccionAux = objetoMaps.ObtenerURLlatlongMaps(latlong(0), latlong(1))
- Dim direccion As New Uri(direccionAux)
- WebBrowser1.Url = direccion
-
- End Sub
-
- Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
- txtIP.ReadOnly = True
- txtLat.ReadOnly = True
- txtlong.ReadOnly = True
- txtIP.Text = ""
- txtLat.Text = ""
- txtlong.Text = ""
- txtCalle.ReadOnly = False
- txtCiudad.ReadOnly = False
- txtcomunidad.ReadOnly = False
- txtCP.ReadOnly = False
- txtNumero.ReadOnly = False
- txtprovincia.ReadOnly = False
- txtPais.ReadOnly = False
- Label1.ForeColor = Color.Blue
- Label2.ForeColor = Color.Black
- Label3.ForeColor = Color.Black
- Label4.ForeColor = Color.Black
- End Sub
-
- Private Sub Label1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseEnter
- Me.Cursor = Cursors.Hand
- End Sub
-
- Private Sub Label1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave
- Me.Cursor = Cursors.Default
- End Sub
-
- Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
- txtLat.ReadOnly = False
- txtlong.ReadOnly = False
- txtIP.ReadOnly = True
- txtCalle.ReadOnly = True
- txtCiudad.ReadOnly = True
- txtcomunidad.ReadOnly = True
- txtCP.ReadOnly = True
- txtNumero.ReadOnly = True
- txtprovincia.ReadOnly = True
- txtPais.ReadOnly = True
-
- txtIP.Text = ""
- txtCalle.Text = ""
- txtCiudad.Text = ""
- txtcomunidad.Text = ""
- txtCP.Text = ""
- txtNumero.Text = ""
- txtprovincia.Text = ""
- txtPais.Text = ""
- Label2.ForeColor = Color.Blue
- Label1.ForeColor = Color.Black
- Label3.ForeColor = Color.Black
- Label4.ForeColor = Color.Black
- End Sub
-
- Private Sub Label2_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.MouseEnter
- Me.Cursor = Cursors.Hand
- End Sub
-
- Private Sub Label2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.MouseLeave
- Me.Cursor = Cursors.Default
- End Sub
-End Class
View
10 Aplicacion/MapsVB.NET.sln → ModernMaps.NET/ModernMaps.NET.sln
@@ -1,7 +1,7 @@

Microsoft Visual Studio Solution File, Format Version 11.00
# Visual Basic Express 2010
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MapsVB.NET", "MapsVB.NET\MapsVB.NET.vbproj", "{A5252752-FD0E-4E77-842A-337ED1418EAB}"
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ModernMaps.NET", "ModernMaps.NET\ModernMaps.NET.vbproj", "{EF515064-B176-4927-991D-9CBE4CA27417}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
@@ -9,10 +9,10 @@ Global
Release|x86 = Release|x86
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
- {A5252752-FD0E-4E77-842A-337ED1418EAB}.Debug|x86.ActiveCfg = Debug|x86
- {A5252752-FD0E-4E77-842A-337ED1418EAB}.Debug|x86.Build.0 = Debug|x86
- {A5252752-FD0E-4E77-842A-337ED1418EAB}.Release|x86.ActiveCfg = Release|x86
- {A5252752-FD0E-4E77-842A-337ED1418EAB}.Release|x86.Build.0 = Release|x86
+ {EF515064-B176-4927-991D-9CBE4CA27417}.Debug|x86.ActiveCfg = Debug|x86
+ {EF515064-B176-4927-991D-9CBE4CA27417}.Debug|x86.Build.0 = Debug|x86
+ {EF515064-B176-4927-991D-9CBE4CA27417}.Release|x86.ActiveCfg = Release|x86
+ {EF515064-B176-4927-991D-9CBE4CA27417}.Release|x86.Build.0 = Release|x86
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
View
22 Aplicacion/MapsVB.NET/Class1.vb → ModernMaps.NET/ModernMaps.NET/Class1.vb
@@ -39,17 +39,17 @@ Public Class GoogleMaps
Return LatLong
End Function
- Public Sub borrarCampos()
- Form1.txtCalle.Text = ""
- Form1.txtCiudad.Text = ""
- Form1.txtcomunidad.Text = ""
- Form1.txtCP.Text = ""
- Form1.txtLat.Text = ""
- Form1.txtlong.Text = ""
- Form1.txtNumero.Text = ""
- Form1.txtPais.Text = ""
- Form1.txtprovincia.Text = ""
- End Sub
+ 'Public Sub borrarCampos()
+ ' Form1.txtCalle.Text = ""
+ ' Form1.txtCiudad.Text = ""
+ ' Form1.txtcomunidad.Text = ""
+ ' Form1.txtCP.Text = ""
+ ' Form1.txtLat.Text = ""
+ ' Form1.txtlong.Text = ""
+ ' Form1.txtNumero.Text = ""
+ ' Form1.txtPais.Text = ""
+ ' Form1.txtprovincia.Text = ""
+ 'End Sub
Public Function ObtenerIp()
Dim req As HttpWebRequest = WebRequest.Create("http://automation.whatismyip.com/n09230945.asp")
View
251 ModernMaps.NET/ModernMaps.NET/Form1.Designer.vb
@@ -0,0 +1,251 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form1
+ Inherits System.Windows.Forms.Form
+
+ 'Form reemplaza a Dispose para limpiar la lista de componentes.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Requerido por el Diseñador de Windows Forms
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
+ 'Se puede modificar usando el Diseñador de Windows Forms.
+ 'No lo modifique con el editor de código.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.components = New System.ComponentModel.Container()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.Label6 = New System.Windows.Forms.Label()
+ Me.txtcalle = New System.Windows.Forms.TextBox()
+ Me.txtpoblacion = New System.Windows.Forms.TextBox()
+ Me.txtprovincia = New System.Windows.Forms.TextBox()
+ Me.txtcomunidad = New System.Windows.Forms.TextBox()
+ Me.txtpais = New System.Windows.Forms.TextBox()
+ Me.txtcp = New System.Windows.Forms.TextBox()
+ Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+ Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+ Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
+ Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
+ Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
+ Me.Timer4 = New System.Windows.Forms.Timer(Me.components)
+ Me.Timer5 = New System.Windows.Forms.Timer(Me.components)
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Palatino Linotype", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(77, 75)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(93, 26)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Población"
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Palatino Linotype", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(77, 219)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(45, 26)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "País"
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Palatino Linotype", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(77, 183)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(109, 26)
+ Me.Label3.TabIndex = 2
+ Me.Label3.Text = "Comunidad"
+ '
+ 'Label4
+ '
+ Me.Label4.AutoSize = True
+ Me.Label4.Font = New System.Drawing.Font("Palatino Linotype", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label4.Location = New System.Drawing.Point(77, 147)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(90, 26)
+ Me.Label4.TabIndex = 3
+ Me.Label4.Text = "Provincia"
+ '
+ 'Label5
+ '
+ Me.Label5.AutoSize = True
+ Me.Label5.Font = New System.Drawing.Font("Palatino Linotype", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label5.Location = New System.Drawing.Point(77, 113)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(102, 26)
+ Me.Label5.TabIndex = 4
+ Me.Label5.Text = "Calle/Local"
+ '
+ 'Label6
+ '
+ Me.Label6.AutoSize = True
+ Me.Label6.Font = New System.Drawing.Font("Palatino Linotype", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label6.Location = New System.Drawing.Point(77, 255)
+ Me.Label6.Name = "Label6"
+ Me.Label6.Size = New System.Drawing.Size(124, 26)
+ Me.Label6.TabIndex = 5
+ Me.Label6.Text = "Código postal"
+ '
+ 'txtcalle
+ '
+ Me.txtcalle.BackColor = System.Drawing.SystemColors.Window
+ Me.txtcalle.Font = New System.Drawing.Font("Palatino Linotype", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtcalle.Location = New System.Drawing.Point(207, 117)
+ Me.txtcalle.Name = "txtcalle"
+ Me.txtcalle.Size = New System.Drawing.Size(243, 22)
+ Me.txtcalle.TabIndex = 2
+ '
+ 'txtpoblacion
+ '
+ Me.txtpoblacion.BackColor = System.Drawing.SystemColors.Window
+ Me.txtpoblacion.Font = New System.Drawing.Font("Palatino Linotype", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtpoblacion.Location = New System.Drawing.Point(207, 81)
+ Me.txtpoblacion.Name = "txtpoblacion"
+ Me.txtpoblacion.Size = New System.Drawing.Size(243, 22)
+ Me.txtpoblacion.TabIndex = 1
+ '
+ 'txtprovincia
+ '
+ Me.txtprovincia.BackColor = System.Drawing.SystemColors.Window
+ Me.txtprovincia.Font = New System.Drawing.Font("Palatino Linotype", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtprovincia.Location = New System.Drawing.Point(207, 153)
+ Me.txtprovincia.Name = "txtprovincia"
+ Me.txtprovincia.Size = New System.Drawing.Size(243, 22)
+ Me.txtprovincia.TabIndex = 3
+ '
+ 'txtcomunidad
+ '
+ Me.txtcomunidad.BackColor = System.Drawing.SystemColors.Window
+ Me.txtcomunidad.Font = New System.Drawing.Font("Palatino Linotype", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtcomunidad.Location = New System.Drawing.Point(207, 189)
+ Me.txtcomunidad.Name = "txtcomunidad"
+ Me.txtcomunidad.Size = New System.Drawing.Size(243, 22)
+ Me.txtcomunidad.TabIndex = 4
+ '
+ 'txtpais
+ '
+ Me.txtpais.BackColor = System.Drawing.SystemColors.Window
+ Me.txtpais.Font = New System.Drawing.Font("Palatino Linotype", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtpais.Location = New System.Drawing.Point(207, 225)
+ Me.txtpais.Name = "txtpais"
+ Me.txtpais.Size = New System.Drawing.Size(243, 22)
+ Me.txtpais.TabIndex = 5
+ '
+ 'txtcp
+ '
+ Me.txtcp.BackColor = System.Drawing.SystemColors.Window
+ Me.txtcp.Font = New System.Drawing.Font("Palatino Linotype", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtcp.Location = New System.Drawing.Point(207, 261)
+ Me.txtcp.Name = "txtcp"
+ Me.txtcp.Size = New System.Drawing.Size(58, 22)
+ Me.txtcp.TabIndex = 6
+ '
+ 'PictureBox1
+ '
+ Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+ Me.PictureBox1.Location = New System.Drawing.Point(12, 12)
+ Me.PictureBox1.Name = "PictureBox1"
+ Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
+ Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+ Me.PictureBox1.TabIndex = 7
+ Me.PictureBox1.TabStop = False
+ '
+ 'Timer1
+ '
+ Me.Timer1.Interval = 1
+ '
+ 'Timer2
+ '
+ Me.Timer2.Interval = 1
+ '
+ 'WebBrowser1
+ '
+ Me.WebBrowser1.Location = New System.Drawing.Point(0, 341)
+ Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
+ Me.WebBrowser1.Name = "WebBrowser1"
+ Me.WebBrowser1.ScrollBarsEnabled = False
+ Me.WebBrowser1.Size = New System.Drawing.Size(984, 362)
+ Me.WebBrowser1.TabIndex = 9
+ '
+ 'Timer3
+ '
+ Me.Timer3.Interval = 1
+ '
+ 'Timer4
+ '
+ Me.Timer4.Interval = 1
+ '
+ 'Timer5
+ '
+ Me.Timer5.Interval = 1000
+ '
+ 'Form1
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.BackColor = System.Drawing.Color.DodgerBlue
+ Me.ClientSize = New System.Drawing.Size(467, 333)
+ Me.Controls.Add(Me.WebBrowser1)
+ Me.Controls.Add(Me.PictureBox1)
+ Me.Controls.Add(Me.txtcp)
+ Me.Controls.Add(Me.txtpais)
+ Me.Controls.Add(Me.txtcomunidad)
+ Me.Controls.Add(Me.txtprovincia)
+ Me.Controls.Add(Me.txtpoblacion)
+ Me.Controls.Add(Me.txtcalle)
+ Me.Controls.Add(Me.Label6)
+ Me.Controls.Add(Me.Label5)
+ Me.Controls.Add(Me.Label4)
+ Me.Controls.Add(Me.Label3)
+ Me.Controls.Add(Me.Label2)
+ Me.Controls.Add(Me.Label1)
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+ Me.Name = "Form1"
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "Form1"
+ CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents Label4 As System.Windows.Forms.Label
+ Friend WithEvents Label5 As System.Windows.Forms.Label
+ Friend WithEvents Label6 As System.Windows.Forms.Label
+ Friend WithEvents txtcalle As System.Windows.Forms.TextBox
+ Friend WithEvents txtpoblacion As System.Windows.Forms.TextBox
+ Friend WithEvents txtprovincia As System.Windows.Forms.TextBox
+ Friend WithEvents txtcomunidad As System.Windows.Forms.TextBox
+ Friend WithEvents txtpais As System.Windows.Forms.TextBox
+ Friend WithEvents txtcp As System.Windows.Forms.TextBox
+ Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+ Friend WithEvents Timer1 As System.Windows.Forms.Timer
+ Friend WithEvents Timer2 As System.Windows.Forms.Timer
+ Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
+ Friend WithEvents Timer3 As System.Windows.Forms.Timer
+ Friend WithEvents Timer4 As System.Windows.Forms.Timer
+ Friend WithEvents Timer5 As System.Windows.Forms.Timer
+
+End Class
View
160 ModernMaps.NET/ModernMaps.NET/Form1.resx
@@ -0,0 +1,160 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+ <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>
+ iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+ vAAADrwBlbxySQAAABl0RVh0U29mdHdhcmUAUGFpbnQuTkVUIHYzLjUuND6NzHYAAANSSURBVGhD1ZrB
+ 5xZBGMdfIiLqT+jWNaXolk7RKTpFREREdIpEnaJLERGRUqeo/yJSShEREZ26FCki6vv59T6vZ3dn952Z
+ ndnt9+XDa3bnme/s7jw7M/suKmiP2CdOizNL+E0Zx/477RaXxDPxJxLOpQ51Z9FWcV68FyGDKRCDWNvE
+ JDolPomQGXgtXoq74s4SflPGsVAdICaxq+mACBn4IjB4RMSKc6lD3XY82qCtojohfgrfEFfsuBgrYrTv
+ KG2dFEV0TfjgPwRZpbSISWzfFm1na4t4LHzAN2K/qCVivxK+TTzgJVntK/9QTCXa8m0n3wmeeR/gipha
+ tOk94ClKZAA/YKe88m35O4GntdmJF9QHYZV45ucWHswP3vDYq4vCTiYj1BywscKDz054DGqH+CbsxBI5
+ vpTwYr7wiNeO/NV/S0GmdopDPXAsV3gyf527QJ71b8OjIkcY7Jvv3BNjhCeLhdfGu+Gw8AdzVNO8yV9k
+ PK90S9iBqxQkasj8DVFKeLO4Nykw+ecrddU0ZL709JhVncVejdPtwgq/U5AgOvtVWH1Prbk9Hq0NvC8O
+ ugKWerGawzzyS1e8N+Y9jyiI0JB5BmwohcayLtU+ENbWxprhnCtgMK/TkPkS0Ikh+YSD98YLbN20lUfD
+ zq3Fug74af7GC23TdyD1EardieRHKGcQD3XiqWAxkssuMaTOIM5No32dYICnvgxT1EmjTE2tgKlqivoy
+ Us1O+Cn/alo9ZioxlFa5SyVFWxa7MeUfO5mbqhN+MtdIOCWm01N0onc6PcWCZmwnBhc0iP16O6HxfCWK
+ TpDLQ4yRH6d47WjTL+qRn1awlbFXzC08RG2roPbGFhutc8tv9q7d2EJs3/0SVum+mEu0bT7wFP3hgzmG
+ VYTLYmrRpveQ/MHjuvAB5txex0uyyLNPhA/Eh7qa+6UM2BfCt4mHTs6PFRX9AgLICKXnOIiYPtsAbWeb
+ 9yJ46CPfMTFWxPCzAGDAFr9IZIB3wjcEn0XuZ1bqtuPRRnS2yRFfE9tXzPgtGCfPBR+4by/hN2Uc45xQ
+ XWLW+PoZFH8LuCA+ipCZFIhBrMn+atCW/dmDKxwyGII7MeufPfpExmADlmeYv9mcXcJvyjhWJKv802Lx
+ Fz8RYINFnYisAAAAAElFTkSuQmCC
+</value>
+ </data>
+ <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+ <metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>106, 17</value>
+ </metadata>
+ <metadata name="Timer3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>195, 17</value>
+ </metadata>
+ <metadata name="Timer4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>284, 17</value>
+ </metadata>
+ <metadata name="Timer5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>373, 17</value>
+ </metadata>
+ <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>84</value>
+ </metadata>
+</root>
View
119 ModernMaps.NET/ModernMaps.NET/Form1.vb
@@ -0,0 +1,119 @@
+Imports System.Text.RegularExpressions
+Public Class Form1
+
+ Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ Me.Opacity = 0
+ Dim direccion As New Uri(" http://maps.google.es/maps?q=España&output=embed")
+ WebBrowser1.Url = direccion
+ Me.Size = New Size(0, 333)
+ txtpoblacion.Focus()
+ For Each c As Object In Me.Controls
+ If c.GetType Is GetType(TextBox) Then
+ AddHandler DirectCast(c, TextBox).GotFocus, AddressOf conFoco
+ AddHandler DirectCast(c, TextBox).LostFocus, AddressOf sinFoco
+ End If
+ Next
+ For Each c As Object In Me.Controls
+ If c.GetType Is GetType(TextBox) Then
+ AddHandler DirectCast(c, TextBox).KeyDown, AddressOf Buscar
+ End If
+ Next
+ Timer5.Interval = 1000
+ Timer5.Enabled = True
+ End Sub
+
+ Private Sub conFoco(ByVal sender As Object, ByVal e As System.EventArgs)
+ DirectCast(sender, TextBox).BackColor = Color.AliceBlue
+ End Sub
+
+
+ Private Sub sinFoco(ByVal sender As Object, ByVal e As System.EventArgs)
+ DirectCast(sender, TextBox).BackColor = Color.White
+ End Sub
+
+ Private Sub Buscar(ByVal sender As Object, ByVal e As System.EventArgs)
+ Timer1.Enabled = True
+ Timer2.Enabled = True
+ End Sub
+
+
+ Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter
+ PictureBox1.ImageLocation = "imagenes/white/back.png"
+ Me.Cursor = Cursors.Hand
+ End Sub
+
+ Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
+ PictureBox1.ImageLocation = "imagenes/black/back.png"
+ Me.Cursor = Cursors.Default
+ End Sub
+ Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
+ Timer3.Enabled = True
+ Timer4.Enabled = True
+ End Sub
+
+
+ Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
+ If Me.Width < 980 Then
+ Me.Width = Me.Width + 10
+ Me.Location = New Point(Me.Location.X - 5, Me.Location.Y)
+ Else
+ Timer1.Enabled = False
+ Dim objetoMaps As New GoogleMaps
+ Dim direccionAux As String
+ direccionAux = objetoMaps.ObtenerURLDireccionMaps(txtpoblacion.Text, txtcp.Text, txtcalle.Text, txtprovincia.Text, txtcomunidad.Text, txtpais.Text)
+ Dim direccion As New Uri(direccionAux)
+ If direccionAux <> "http://maps.google.es/maps?q= &output=embed" Then
+ WebBrowser1.Url = direccion
+ End If
+ End If
+ End Sub
+
+
+ Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
+ If Me.Height < 700 Then
+ Me.Height = Me.Height + 10
+ Me.Location = New Point(Me.Location.X, Me.Location.Y - 5)
+ Else
+ Timer2.Enabled = False
+ End If
+ End Sub
+
+
+
+
+ Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
+ If Me.Width > 2 Then
+ Me.Width = Me.Width - 10
+ If Me.Width > 470 Then
+ Me.Location = New Point(Me.Location.X + 5, Me.Location.Y)
+ Else
+ Me.Opacity = Me.Opacity - 0.023
+ End If
+ Else
+ Timer3.Enabled = False
+ Me.Close()
+ Principal.Show()
+ End If
+ End Sub
+
+ Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
+ If Me.Height > 333 Then
+ Me.Height = Me.Height - 10
+
+ Me.Location = New Point(Me.Location.X, Me.Location.Y + 5)
+
+ Else
+ Timer4.Enabled = False
+ End If
+ End Sub
+
+ Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
+ If Me.Width < 470 Then
+ Timer5.Interval = 1
+ Me.Opacity = Me.Opacity + 0.025
+ Me.Width = Me.Width + 10
+ Else
+ Timer5.Enabled = False
+ End If
+ End Sub
+End Class
View
40 ModernMaps.NET/ModernMaps.NET/ISP.Designer.vb
@@ -0,0 +1,40 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class ISP
+ Inherits System.Windows.Forms.Form
+
+ 'Form reemplaza a Dispose para limpiar la lista de componentes.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Requerido por el Diseñador de Windows Forms
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
+ 'Se puede modificar usando el Diseñador de Windows Forms.
+ 'No lo modifique con el editor de código.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.SuspendLayout()
+ '
+ 'Latitud
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.BackColor = System.Drawing.Color.DodgerBlue
+ Me.ClientSize = New System.Drawing.Size(455, 344)
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+ Me.Name = "Latitud"
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "Latitud"
+ Me.ResumeLayout(False)
+
+ End Sub
+End Class
View
0  Aplicacion/MapsVB.NET/Form1.resx → ModernMaps.NET/ModernMaps.NET/ISP.resx
File renamed without changes
View
3  ModernMaps.NET/ModernMaps.NET/ISP.vb
@@ -0,0 +1,3 @@
+Public Class ISP
+
+End Class
View
26 Aplicacion/MapsVB.NET/MapsVB.NET.vbproj → ....NET/ModernMaps.NET/ModernMaps.NET.vbproj
@@ -6,11 +6,11 @@
<ProductVersion>
</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
- <ProjectGuid>{A5252752-FD0E-4E77-842A-337ED1418EAB}</ProjectGuid>
+ <ProjectGuid>{EF515064-B176-4927-991D-9CBE4CA27417}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>WindowsApplication1.My.MyApplication</StartupObject>
<RootNamespace>WindowsApplication1</RootNamespace>
- <AssemblyName>MapsVB.NET</AssemblyName>
+ <AssemblyName>ModernMaps.NET</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
@@ -23,7 +23,7 @@
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
- <DocumentationFile>MapsVB.NET.xml</DocumentationFile>
+ <DocumentationFile>ModernMaps.NET.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
@@ -33,7 +33,7 @@
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
- <DocumentationFile>MapsVB.NET.xml</DocumentationFile>
+ <DocumentationFile>ModernMaps.NET.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
@@ -80,6 +80,12 @@
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
+ <Compile Include="ISP.Designer.vb">
+ <DependentUpon>ISP.vb</DependentUpon>
+ </Compile>
+ <Compile Include="ISP.vb">
+ <SubType>Form</SubType>
+ </Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
@@ -95,17 +101,29 @@
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
+ <Compile Include="Principal.Designer.vb">
+ <DependentUpon>Principal.vb</DependentUpon>
+ </Compile>
+ <Compile Include="Principal.vb">
+ <SubType>Form</SubType>
+ </Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
+ <EmbeddedResource Include="ISP.resx">
+ <DependentUpon>ISP.vb</DependentUpon>
+ </EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
+ <EmbeddedResource Include="Principal.resx">
+ <DependentUpon>Principal.vb</DependentUpon>
+ </EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
View
18 ...VB.NET/My Project/Application.Designer.vb → ...ps.NET/My Project/Application.Designer.vb
@@ -1,10 +1,10 @@
'------------------------------------------------------------------------------
' <auto-generated>
-' This code was generated by a tool.
-' Runtime Version:4.0.30319.17929
+' Este código fue generado por una herramienta.
+' Versión de runtime:4.0.30319.17929
'
-' Changes to this file may cause incorrect behavior and will be lost if
-' the code is regenerated.
+' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
+' se vuelve a generar el código.
' </auto-generated>
'------------------------------------------------------------------------------
@@ -14,10 +14,10 @@ Option Explicit On
Namespace My
- 'NOTE: This file is auto-generated; do not modify it directly. To make changes,
- ' or if you encounter build errors in this file, go to the Project Designer
- ' (go to Project Properties or double-click the My Project node in
- ' Solution Explorer), and make changes on the Application tab.
+ 'NOTA: este archivo se genera de forma automática; no lo modifique directamente. Para realizar cambios,
+ ' o si detecta errores de compilación en este archivo, vaya al Diseñador de proyectos
+ ' (vaya a Propiedades del proyecto o haga doble clic en el nodo My Project en el
+ ' Explorador de soluciones) y realice cambios en la ficha Aplicación.
'
Partial Friend Class MyApplication
@@ -32,7 +32,7 @@ Namespace My
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
- Me.MainForm = Global.WindowsApplication1.Form1
+ Me.MainForm = Global.WindowsApplication1.Principal
End Sub
End Class
End Namespace
View
5 ...n/MapsVB.NET/My Project/Application.myapp → ...dernMaps.NET/My Project/Application.myapp
@@ -1,11 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
- <MainForm>Form1</MainForm>
+ <MainForm>Principal</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
- <ApplicationType>0</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
-</MyApplicationData>
+</MyApplicationData>
View
2  ...ion/MapsVB.NET/My Project/AssemblyInfo.vb → ...ModernMaps.NET/My Project/AssemblyInfo.vb
@@ -18,7 +18,7 @@ Imports System.Runtime.InteropServices
<Assembly: ComVisible(False)>
'El siguiente GUID sirve como identificador de typelib si este proyecto se expone a COM
-<Assembly: Guid("0b910d1a-6c1f-4c89-bcce-449f9eef0398")>
+<Assembly: Guid("4a7d873b-0cc0-478e-bb30-85a7e6f417cb")>
' La información de versión de un ensamblado consta de los cuatro valores siguientes:
'
View
0  ...psVB.NET/My Project/Resources.Designer.vb → ...Maps.NET/My Project/Resources.Designer.vb
File renamed without changes
View
0  ...cion/MapsVB.NET/My Project/Resources.resx → .../ModernMaps.NET/My Project/Resources.resx
File renamed without changes
View
0  ...apsVB.NET/My Project/Settings.Designer.vb → ...nMaps.NET/My Project/Settings.Designer.vb
File renamed without changes
View
0  ...n/MapsVB.NET/My Project/Settings.settings → ...dernMaps.NET/My Project/Settings.settings
File renamed without changes
View
126 ModernMaps.NET/ModernMaps.NET/Principal.Designer.vb
@@ -0,0 +1,126 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Principal
+ Inherits System.Windows.Forms.Form
+
+ 'Form reemplaza a Dispose para limpiar la lista de componentes.
+ <System.Diagnostics.DebuggerNonUserCode()> _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Requerido por el Diseñador de Windows Forms
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
+ 'Se puede modificar usando el Diseñador de Windows Forms.
+ 'No lo modifique con el editor de código.
+ <System.Diagnostics.DebuggerStepThrough()> _
+ Private Sub InitializeComponent()
+ Me.components = New System.ComponentModel.Container()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+ Me.Label6 = New System.Windows.Forms.Label()
+ Me.SuspendLayout()
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Palatino Linotype", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(88, 81)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(147, 26)
+ Me.Label1.TabIndex = 1
+ Me.Label1.Text = "Buscar dirección"
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Palatino Linotype", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(61, 125)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(200, 26)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "Buscar latitud longitud"
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Font = New System.Drawing.Font("Palatino Linotype", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label3.Location = New System.Drawing.Point(104, 169)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(115, 26)
+ Me.Label3.TabIndex = 3
+ Me.Label3.Text = "Detectar ISP"
+ '
+ 'Label4
+ '
+ Me.Label4.AutoSize = True
+ Me.Label4.Font = New System.Drawing.Font("Palatino Linotype", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label4.Location = New System.Drawing.Point(61, 213)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(200, 26)
+ Me.Label4.TabIndex = 4
+ Me.Label4.Text = "Codificación geográfica"
+ '
+ 'Label5
+ '
+ Me.Label5.AutoSize = True
+ Me.Label5.Font = New System.Drawing.Font("Palatino Linotype", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label5.Location = New System.Drawing.Point(120, 306)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(48, 26)
+ Me.Label5.TabIndex = 5
+ Me.Label5.Text = "Salir"
+ '
+ 'Timer1
+ '
+ Me.Timer1.Interval = 1
+ '
+ 'Label6
+ '
+ Me.Label6.AutoSize = True
+ Me.Label6.Font = New System.Drawing.Font("Segoe Print", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label6.Location = New System.Drawing.Point(36, 24)
+ Me.Label6.Name = "Label6"
+ Me.Label6.Size = New System.Drawing.Size(251, 43)
+ Me.Label6.TabIndex = 6
+ Me.Label6.Text = "Modern Maps .NET"
+ '
+ 'Principal
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.BackColor = System.Drawing.Color.DodgerBlue
+ Me.ClientSize = New System.Drawing.Size(320, 266)
+ Me.Controls.Add(Me.Label6)
+ Me.Controls.Add(Me.Label5)
+ Me.Controls.Add(Me.Label4)
+ Me.Controls.Add(Me.Label3)
+ Me.Controls.Add(Me.Label2)
+ Me.Controls.Add(Me.Label1)
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+ Me.Name = "Principal"
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "Principal"
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label3 As System.Windows.Forms.Label
+ Friend WithEvents Label4 As System.Windows.Forms.Label
+ Friend WithEvents Label5 As System.Windows.Forms.Label
+ Friend WithEvents Timer1 As System.Windows.Forms.Timer
+ Friend WithEvents Label6 As System.Windows.Forms.Label
+End Class
View
123 ModernMaps.NET/ModernMaps.NET/Principal.resx
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+ <!--
+ Microsoft ResX Schema
+
+ Version 2.0
+
+ The primary goals of this format is to allow a simple XML format
+ that is mostly human readable. The generation and parsing of the
+ various data types are done through the TypeConverter classes
+ associated with the data types.
+
+ Example:
+
+ ... ado.net/XML headers & schema ...
+ <resheader name="resmimetype">text/microsoft-resx</resheader>
+ <resheader name="version">2.0</resheader>
+ <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+ <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+ <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+ <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+ <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+ <value>[base64 mime encoded serialized .NET Framework object]</value>
+ </data>
+ <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+ <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+ <comment>This is a comment</comment>
+ </data>
+
+ There are any number of "resheader" rows that contain simple
+ name/value pairs.
+
+ Each data row contains a name, and value. The row also contains a
+ type or mimetype. Type corresponds to a .NET class that support
+ text/value conversion through the TypeConverter architecture.
+ Classes that don't support this are serialized and stored with the
+ mimetype set.
+
+ The mimetype is used for serialized objects, and tells the
+ ResXResourceReader how to depersist the object. This is currently not
+ extensible. For a given mimetype the value must be set accordingly:
+
+ Note - application/x-microsoft.net.object.binary.base64 is the format
+ that the ResXResourceWriter will generate, however the reader can
+ read any of the formats listed below.
+
+ mimetype: application/x-microsoft.net.object.binary.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.soap.base64
+ value : The object must be serialized with
+ : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+ : and then encoded with base64 encoding.
+
+ mimetype: application/x-microsoft.net.object.bytearray.base64
+ value : The object must be serialized into a byte array
+ : using a System.ComponentModel.TypeConverter
+ : and then encoded with base64 encoding.
+ -->
+ <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+ <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+ <xsd:element name="root" msdata:IsDataSet="true">
+ <xsd:complexType>
+ <xsd:choice maxOccurs="unbounded">
+ <xsd:element name="metadata">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" />
+ </xsd:sequence>
+ <xsd:attribute name="name" use="required" type="xsd:string" />
+ <xsd:attribute name="type" type="xsd:string" />
+ <xsd:attribute name="mimetype" type="xsd:string" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="assembly">
+ <xsd:complexType>
+ <xsd:attribute name="alias" type="xsd:string" />
+ <xsd:attribute name="name" type="xsd:string" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="data">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+ <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+ <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+ <xsd:attribute ref="xml:space" />
+ </xsd:complexType>
+ </xsd:element>
+ <xsd:element name="resheader">
+ <xsd:complexType>
+ <xsd:sequence>
+ <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+ </xsd:sequence>
+ <xsd:attribute name="name" type="xsd:string" use="required" />
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:choice>
+ </xsd:complexType>
+ </xsd:element>
+ </xsd:schema>
+ <resheader name="resmimetype">
+ <value>text/microsoft-resx</value>
+ </resheader>
+ <resheader name="version">
+ <value>2.0</value>
+ </resheader>
+ <resheader name="reader">
+ <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <resheader name="writer">
+ <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </resheader>
+ <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <value>17, 17</value>
+ </metadata>
+</root>
View
49 ModernMaps.NET/ModernMaps.NET/Principal.vb
@@ -0,0 +1,49 @@
+Public Class Principal
+
+ Private Sub Principal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ For Each c As Object In Me.Controls
+ If c.GetType Is GetType(Label) Then
+ AddHandler DirectCast(c, Label).MouseEnter, AddressOf conFoco
+ AddHandler DirectCast(c, Label).MouseLeave, AddressOf sinFoco
+ End If
+ Next
+ End Sub
+
+ Private Sub conFoco(ByVal sender As Object, ByVal e As System.EventArgs)
+ DirectCast(sender, Label).ForeColor = Color.White
+ Me.Cursor = Cursors.Hand
+ End Sub
+
+
+ Private Sub sinFoco(ByVal sender As Object, ByVal e As System.EventArgs)
+ DirectCast(sender, Label).ForeColor = Color.Black
+ Me.Cursor = Cursors.Default
+ End Sub
+
+ Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
+ Me.Close()
+ End Sub
+
+ Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
+ Timer1.Enabled = True
+ End Sub
+
+ Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
+ If Me.Width > 2 Then
+ Me.Opacity = Me.Opacity - 0.04
+ Me.Width = Me.Width - 10
+ Else
+ Me.Hide()
+ Me.Opacity = 1
+ Me.Size = New Size(320, 266)
+ Form1.Show()
+ Timer1.Enabled = False
+ End If
+ End Sub
+
+
+
+ Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
+
+ End Sub
+End Class
Please sign in to comment.
Something went wrong with that request. Please try again.