Control visual de registros.

252 views
Skip to first unread message

Francisco

unread,
May 27, 2026, 7:00:36 AM (9 days ago) May 27
to Comunidad de Visual Foxpro en Español
Buenas a todos, os comparto el uso que le he dado al control OrdoWebView2 para sustituir al lento y poco eficiente Listcontainer de objetos. Mejora drasticamente el desempeño y sobre todo está basado en Microsoft Edge Webviewer2 con lo que es moderno y actual. Pese a que este componente está pensado para mostrar páginas web tmb puede mostrar html local con lo que podemos crear al vuelo un html y mostrarlo. Este es el resultado.


Fuentes:

y ejemplos de uso en Fox por este colega ... https://www.youtube.com/watch?v=Xg_iBB3o4X0

y mucho curro extra... 

Espero les de ideas para sus proyectos.



Wilson Palomo

unread,
May 27, 2026, 10:33:38 AM (9 days ago) May 27
to publice...@googlegroups.com
Excelente, y un detalle a considerar es que se puede implementar  el uso de HTML5 y CSS3 que permite construir interfaces empresariales modernas con tarjetas visuales, animaciones suaves y notificaciones profesionales. Y todo esto en forma interactiva es decir mientras se ejecuta código VFp también se puede ejecutar acciones en un ventana de Webview incrustada en otro formulario VFP.

imagen.png


--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/f0b53b47-1080-4207-9fa7-b50e127fccf6n%40googlegroups.com.

roberto martinez andrade

unread,
May 27, 2026, 11:19:53 AM (9 days ago) May 27
to publice...@googlegroups.com
El video es de muy poca nitides

sl2s

RS “Ricardo”

unread,
May 27, 2026, 12:51:53 PM (9 days ago) May 27
to Comunidad de Visual Foxpro en Español
PON LA RESOLUCION A 1080 Y SE VERA BIEN

Luis Robles

unread,
May 27, 2026, 5:57:27 PM (9 days ago) May 27
to publice...@googlegroups.com
Saludos colega. Estuve revisando los videos y el ejemplo que muestras, de uso del aplicativo. por lo que veo, puedo accesar a cualquier sitio web, me interesa poder acceder a google maps, para mostrar la ubicación de un proveedor o clientes registrado en la base de datos, claro está, el registro tendrá las coordenadas correspondientes, pero con esas coordenadas puedo en una ventana mostrar la ubicación usando google maps en una venta de VFp de mi erp?


Luis Robles

unread,
May 27, 2026, 5:58:13 PM (9 days ago) May 27
to publice...@googlegroups.com
Saludos colega. Estuve revisando los videos y el ejemplo que muestras, de uso del aplicativo. por lo que veo, puedo accesar a cualquier sitio web, me interesa poder acceder a google maps, para mostrar la ubicación de un proveedor o clientes registrado en la base de datos, claro está, el registro tendrá las coordenadas correspondientes, pero con esas coordenadas puedo en una ventana mostrar la ubicación usando google maps en una venta de VFp de mi erp?

Victor Espina

unread,
May 27, 2026, 9:24:39 PM (9 days ago) May 27
to Comunidad de Visual Foxpro en Español
Excelente aporte!  Muchisimas gracias

Victor Espina

Kisko

unread,
May 28, 2026, 3:51:43 AM (9 days ago) May 28
to Comunidad de Visual Foxpro en Español
Buenos días a todos.
Muy buen aporte.

Luís. Tengo la siguiente función que abre Google Maps en tu navegador por defecto y se sitúa en las coordenadas que se le pase:

Function Coordenadas(tcCoordenadas, tlSinMensaje)
    Local loWshShell, lnSalida
   
    If Empty(Nvl(m.tcCoordenadas, ''))
        If ! m.tlSinMensaje
            MessageBox('Cooredenadas vacías', 48, 'Error')
        EndIf
    Else
        Try
            m.loWshShell = CreateObject('WScript.Shell')
            m.Salida = Empty(m.loWshShell.Run('https://www.google.es/maps?q=' + Strtran(m.tcCoordenadas, ' ', '');    &&  Ejecutar el archivo especificado
                , 0;          &&  Ejecutan en ventana no visible
                , .F.;        &&  Esperar a que el proceso termine
                ))            &&  Devuelve 0 si todo va bien
        Catch
        EndTry
        m.loWshShell = .Null.
        Release m.loWshShell
    EndIf
EndFunc


Por ejemplo: 
    Coordenadas('40.40699,-1.44437')    && Te debe de llevar a Albarracín, Teruel. España

puedes adaptarlo para que se muestre en un formulario de VFP

Saludos.
Francisco Lorente.
Murcia. España.
VFP 9.0 - SP2

Zarlu

unread,
May 28, 2026, 8:45:50 AM (8 days ago) May 28
to Comunidad de Visual Foxpro en Español
Buenos días Foxeros!

Interesante. Gracias Francisco Lorente

Suerte
zarlu
Chetumal, Quintana Roo, México

Wilson Palomo

unread,
May 28, 2026, 11:09:48 AM (8 days ago) May 28
to publice...@googlegroups.com
imagen.png
VFP+OpenWebview+Google Maps

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Miguel Angel Quinzan

unread,
May 28, 2026, 5:54:07 PM (8 days ago) May 28
to publice...@googlegroups.com
paso otro codigo, que poniendo la direccion correcta habre automaticamente en google maps 

   m_direccion = alltrim(This.value)
   m_es_email  = 'www.'
   c_es_web1   = 'https:'
   c_es_web2   = 'http:'
   
   
   if empty(m_direccion)
      wait "LA DIRECCION" + CHR(13) + " de GoogleMaps" + CHR(13) +;
           "ESTA VACIA" + CHR(13) + "Pulse una tecla para continuar..." WINDOWS
      return .t.
   endif
   
   if m_es_email $ lower(m_direccion)
      DECLARE INTEGER ShellExecute IN shell32.dll ;
         INTEGER hndWin, STRING cAction, STRING cFileName, ;
              STRING cParams, STRING cDir, INTEGER sShowWin
      ShellExecute(0,"open",m_direccion,"","",1)
   endif && m_es_email $ m_direccion


   if c_es_web1 $ lower(m_direccion)
      DECLARE INTEGER ShellExecute IN shell32.dll ;
         INTEGER hndWin, STRING cAction, STRING cFileName, ;
              STRING cParams, STRING cDir, INTEGER sShowWin
      ShellExecute(0,"open",m_direccion,"","",1)
   endif && m_es_email $ m_direccion

   if c_es_web2 $ lower(m_direccion)
      DECLARE INTEGER ShellExecute IN shell32.dll ;
         INTEGER hndWin, STRING cAction, STRING cFileName, ;
              STRING cParams, STRING cDir, INTEGER sShowWin
      ShellExecute(0,"open",m_direccion,"","",1)
   endif && m_es_email $ m_direccion



--
Miguel Ángel Quinzán

Alberto ATS

unread,
Jun 2, 2026, 8:01:50 AM (3 days ago) Jun 2
to Comunidad de Visual Foxpro en Español

Buenos días, WPalomo!

¿El control OpenWebview es el mismo que OrdoWebView2?
Si es diferente, ¿podrías facilitarme un enlace?

Muchisimas gracias.

Alberto Katsuta
Reply all
Reply to author
Forward
0 new messages