FoxPro/Visual FoxPro - Amigos...Alguien me puede ayudar

 
Vista:
sin imagen de perfil
Val: 65
Ha disminuido 1 puesto en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Amigos...Alguien me puede ayudar

Publicado por neo (1604 intervenciones) el 23/05/2007 16:20:55
Resulta que estoy tratando de terminar un menu, esos que nos proporcionó "Plinio" (Menus Sexys). Acerca de esto tengo una duda, digamos que tengo 2 encabezados:

Archivos I Consultas

Entonces cuando pulso en un submenu de archivos, si abre el formulario, lo cierro y ahora pulso en un submenu de consultas y no responde, a qué se deberá. Ahi les dejo el codigo:

Procedure OnSelection( tn_MenuPos, tn_ItemId )
Do case
Case tn_MenuPos =1
FirstMenu( tn_MenuPos, tn_ItemId - 1000 )
ENDCASE
EndProc

Procedure FirstMenu( tn_MenuPos, tn_ItemPos )

With po_Menu
Do case
Case (tn_ItemPos = 1)
DO FORM altas.scx

Case (tn_ItemPos = 2)
DO FORM modificaciones.scx

Case (tn_ItemPos = 3)


Case (tn_ItemPos = 4)
DO FORM eliminacion.scx


EndCase
EndWith
EndProc

******************
Procedure OnSelection( tn_MenuPos, tn_ItemId )
Do case
Case (tn_MenuPos = 2)
FirstMenu( tn_MenuPos, tn_ItemId - 2000 )

ENDCASE
EndProc

Procedure FirstMenu( tn_MenuPos, tn_ItemPos )

With po_Menu
Do case
Case (tn_ItemPos = 1)
DO FORM busquedas.scx


EndCase
EndWith
EndProc

*****************************

Espero me puedan ayudar.

Gracias►
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder