error .onclick

[Miguel Santander]

Buenas tardes amigos

estoy probando un menu moderno em vfp y me error en la linea .ONLICLICK

      THIS.ADDOBJECT("cmdVentas", "btnModern")

            WITH THIS.cmdVentas
            .TOP = nTop
            .LEFT = nLeft + nWidth + nEspacio
            .CAPTION = "Ventas"
            .ICONFILE = "icons\ventas.ico"
            .ONCLICK = [DO FORM frmVentas]
        ENDWITH

cual podria ser el problema?

[HERNAN D. A.]

El problema puede ser en esta línea:

.ONCLICK = [DO FORM frmVentas]

OnClick no es una propiedad, sino un evento, no puede recibir código directamente.

Posible Solución usar BINDEVENT()

conectar el evento Click del botón con un procedimiento o método que vos definas.

THIS.ADDOBJECT("cmdVentas", "btnModern")

 

WITH THIS.cmdVentas

    .TOP = nTop

    .LEFT = nLeft + nWidth + nEspacio

    .CAPTION = "Ventas"

    .ICONFILE = "icons\ventas.ico"

ENDWITH

 

BINDEVENT(THIS.cmdVentas, "Click", THIS, "AbrirVentas")

Y en el mismo formulario (o contenedor), agregás el método:

PROCEDURE AbrirVentas

    DO FORM frmVentas

ENDPROC

Cuando haces clic en el botón, se ejecuta DO FORM frmVentas.

Habría que probar.

--
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/CAJGUNjwAoOvZmJU52dN7-cOe7qYXW-iq%3DKthzywHFT_AQdifcg%40mail.gmail.com.

[Miguel Santander]

Gracias Hernan

lo voy a probar

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CACfzyED3PBDKkLZYoLQ4CmT9DLmdD8JnwAjEH7OLu_mTT-v_Vg%40mail.gmail.com.