Mensaje enviado por "JuriSoft-Desarrollo" <desarrollo@jurisoft.es>

(En este texto, no explico el funcionamiento de los menus flotanes al 100%, supongo ya saben... solo doy una idea que quizas os sea util)

Una buena técnica (o igual es mala...nose) para implementar los menus 'FLOTANTES' Añadir,Modificar,Eliminar cuando se van a usar en muchos formualrios es:

Meter este menu en el Formulario MDI.
Definir una variable publica en el MDI del tipo Form o dicho de otra manera, definir una propiedad public tipo FOrm en el MDi
Antes de abrir el menu, hacer un Set mdi.formulario = me
En la rutina donde se ejecuta las intruciones de los menus, (que estarán en el MDI), hacer la llamada a la otra función del formulario donde aparecio el menu flotantes... algo asi:


codigo en el formulario NO MDI.
private sub MenuPopUp
MDI.Formulario = me
popup mdi.menu (no recuerdo ahora bien la sintasis)
end sub

PUBLIC sub Añadir
...'ATENCION deben ser sub public, para que las vea el MDI.
end sub

Public Sub Modificar
...
end Sub

public sub Borrar
....
end sub




Codigo del MDI:
Private Sub mdi_abrir(index as integer)
select case index
case 1 'añadir
    formulario.Añadir
case 2 'modificar
    formulario.Modificar
case 3 'eliminar
   if = msgbox ("Esta Vd. seguro",vbyesno) = vbyes then
      formulario.borrar
  end if
end select
end Sub



Bueno la idea mas o menos es esa....
Se podria eliminar la propiedad formulario y buscar el formulario activo viendo cual es en la coleccion FOMS... pero bueno.


Si a alguien se le ocurre otra cosa mejor... me gustaria conocerla.

salu2:

Roberto Alonso
mailto:desarrollo@jurisoft.es