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
     ⌠Resetear
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í
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


Imagen: TitoHC
Registrado:
30-Oct-2010
Mensajes: 18
Votos: 0 ðŸ‘

EnvíoAsunto: VISUAL FOXPRO y Google HEART

Publicado:
...


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 ...
Foros de Google Earth > Foro de Programación para Google Earth y Maps > 112
Página 1 de 1
Todas las horas son GMT + 1 Hora
Cambiar a:  


Últimas búsquedas por posts: 112 - Demasiadas Cifras Loca... - Icono Movimiento Siga ... - DГіnde Conseguir Coo... - Programa Creaciأ³n Dej... - Capas Google Earth Ult...
Últimas búsquedas por topics: DГіnde Conseguir Coo... - AГ±adir Enlace Punto F... - Superponer Callejero ... - Google Earth - Demasiadas Cifras Loca... - Lat 33018long116301
Tus últimas búsquedas:
112
del

Mostrar/Ocultar Últimas Fotos del Foro
Los alminares de la Axarquía malagueña.
Los alminares de la Axarquía malagueña.
Descargas: 2
Rbernalmarco
KPS-27 EMRE BEY
KPS-27 EMRE BEY
Descargas: 5
Gally