Ayuda con la manipulacion de formularios

[madman14]

Q tal Desarrolladores, recurro a ustedes porq tengo algunas preguntas q espero me puedan ayudar.

Resulta que estoy haciendo un proyecto en VB6 en el cual uso varios formularios: FrmIdentificarse (aqui esta un login), FrmBienvenido (Aqui esta el menu para cada actividad del programa), FrmEquipo (venta por equipo), FrmPieza (Venta por piezas), FrmInventario (Este solo esta habilitado para usuarios Administradores). Y pues basicamente esto es lo que llevo.

Mi pregunta es:

Cuando ya estoy en el FrmBienvenido este contiene CmdEquipo, CmdPieza y CmdInventario cada boton vinculado a su respectivo formulario con el siguiente codigo cada uno respectivamente

Código:

Private Sub CmdInventario_Click()
          'abrira el FrmInventario y ocultara el FrmBienvenido
    FrmBienvenido.Visible = False
    FrmInventario.Show vbModal
End Sub

cuando lo ejecuto si me abre todo bien pero supongamos q estoy en el FrmInvetario despues lo cierro con la "X" me regresa el FrmBienvenido y luego regreso al formulario FrmInventario intento volver a Cerrar con la "X" y ya no pasa nada.

cabe destacar q en cada formulario tengo algo asi:

Código:

Private Sub Form_Unload(Cancel As Integer)
    FrmInventario.Visible = False
    FrmBienvenido.Show vbModal
End Sub

Alguien prodia corregirme en esos codigos ya que esa fue la manera q se me ocurrio para moverme entre formularios.

Tengo poca experiencia con visual

De antemano gracias Saludos desde Mexico

[erbuson]

Hola:

Te en cuenta que cuando en el Formulario por ejemplo FrmInventario estás en el procedimiento Unload el formulario se está cerrando por lo tanto lo que no debes hacer es ocultarlo puesto que al cerrarse evidentemente dejas de verlo.

Por otra parte en FrmBienvenido no debes indicar vbModal puesto que lo que haces es mostrar el formulario principal.

La funcion vbModal es para que no se devuelva el control al programa principal mientras no se cierre el secundario.

Supongo por otra parte que el Login de entrada lo has descargado, no ocultado porque no es realmente lo mismo y si sólo los ocultas al salir del formulario principal deberías cerrarlos a todos.

O sea, para entendernos, prueba así:

Código vb:

Private Sub Form_Unload(Cancel As Integer)
    FrmBienvenido.Show
End Sub
 
Private Sub CmdInventario_Click()
    FrmBienvenido.Hide
    FrmInventario.Show
End Sub
 

Lo que te provoca que no cierre la segunda vez por la X es que cuando le dices que devuelva el control a frmInventario le estás indicando vbModal ya que acabo de comprobarlo.

[madman14]

gracias erbuson tienes toda la razon

Saludos