Mostrar/Ocultar
112 🗺️ Foro de Programación para Google Earth y Maps y Maps 🗺️

112 🗺️ Foro de Programación para Google Earth y Maps y Maps

Se encontró 1 comentario sobre 112 en el Foro de Programación para Google Earth y Maps
Buscando en foro de Foro de Programación para Google Earth y Maps, si desea ampliar la búsqueda a todos los foros pulsa aquí

     Resetear
Puede repetir la búsqueda actual por Temas pulsando aquí
Autor Mensaje
  VISUAL FOXPRO y Google HEART  Tema: VISUAL FOXPRO y Google HEART  -   Foro de Programación para Google Earth y Maps  Foro: Foro de Programación para Google Earth y Maps
Envío Asunto: VISUAL FOXPRO y Google HEART    Publicado: Avatar

...


PUBLIC oMiForm
oMiForm = CREATEOBJECT("MiForm")
oMiForm.SHOW
RETURN

DEFINE CLASS MiForm AS FORM
HEIGHT = 365
WIDTH = 475
AUTOCENTER = .T.
CAPTION = "Ejemplo con Google Maps"
NAME = "MiForm"
SetPoint = ""
SHOWWINDOW = 2

ADD OBJECT cboDescrip AS COMBOBOX WITH ;
ROWSOURCETYPE = 6, ROWSOURCE = "MisLugares.descri", ;
HEIGHT = 24, LEFT = 12, TOP = 12, WIDTH = 330, ;
STYLE = 2, NAME = "cboDescrip"

ADD OBJECT cmdMostrar AS COMMANDBUTTON WITH ;
TOP = 10, LEFT = 350, HEIGHT = 27, WIDTH = 112, ;
CAPTION = "Mostrar mapa", NAME = "cmdMostrar"

ADD OBJECT oleIE AS OLECONTROL WITH ;
TOP = 48, LEFT = 12, HEIGHT = 300, WIDTH = 450, ;
NAME = "oleIE", OLECLASS = "Shell.Explorer.2"

PROCEDURE LOAD
SYS(2333,1)
THIS.SetPoint = SET("Point")
SET POINT TO .
SET SAFETY OFF
*-- Creo el cursor con los datos
CREATE CURSOR MisLugares (Descri C(40), Lat N(12,6), Lon N(12,6), Zoom I(4))
INSERT INTO MisLugares VALUES ("Torre Eiffel (Francia)", 48.858333, 2.295000, 17)
INSERT INTO MisLugares VALUES ("Basílica de San Pedro (Vaticano)", 41.902102, 12.456400, 17)
INSERT INTO...
Leer más ...
 
Página 1 de 1
Todas las horas son GMT + 1 Hora
Cambiar a:  


Últimas búsquedas por posts: 112 - Borrar Kmz - Kml Desde Excel Icon C... - Extraer Puntos - Crear Tabla - 216
Últimas búsquedas por topics: Kml Excel - Visual Basic - Api - Kml Peru - Etiqueta - Google Earth
Tus últimas búsquedas:

Mostrar/Ocultar Últimas Fotos del Foro
2 Helicópteros Mil Mi-6 - Rusia
2 Helicópteros Mil Mi-6 - Rusia

Descargas: 5
Google_Master
Apopa, El Salvador
Apopa, El Salvador

Descargas: 6
Bixen
El mayor incendio en Valencia
El mayor incendio en Valencia

Descargas: 15
Rbernalmarco