El formulario desaparece en Visual Basic Activar un form menú

[anmaroso]

Me abre el MENU pero no se para, sigue y finaliza el proceso. ¿Qué puede estar ocurriendo?

Código: [Seleccionar]

Option Explicit On
Option Strict On
Imports System
Imports System.Object
Imports System.Data
Imports System.String
Imports Microsoft
Imports Microsoft.VisualBasic
Module Module1
    Public mfrm As MENU = New MENU()
    Sub Main()
        mfrm.Show()
    End Sub
 

[Mastermind]

Hola anmaroso

¿puedes poner el código de la clase MENU y de otras clases o módulos si existen?

[anmaroso]

Hola anmaroso

¿puedes poner el código de la clase MENU y de otras clases o módulos si existen?

Gracias:

Ahí va.

Código: [Seleccionar]

Public Class MENU
    Private m_frm As FTRANSF = New FTRANSF()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub CLIENTES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CLIENTES.Click
        ' clientes_load()
    End Sub

    Private Sub ACREEDORES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ACREEDORES.Click
        'acreedores_load
    End Sub

    Private Sub ALBARANES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ALBARANES.Click
        'albaranes_load
    End Sub

    Private Sub CAJA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CAJA.Click
        'caja_load
    End Sub

    Private Sub CAJAP_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CAJAP.Click
        ' cajap_load
    End Sub

    Private Sub CARGOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CARGOS.Click
        ' cargos_LOAD
    End Sub

    Private Sub CHEQUES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CHEQUES.Click
        ' cheques_load
    End Sub

    Private Sub CODIGOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CODIGOS.Click
        ' codigosc_load
    End Sub

    Private Sub DESTINOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DESTINOS.Click
        ' destinos_load
    End Sub

    Private Sub DIVISAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DIVISAS.Click
        ' divisas_load
    End Sub

    Private Sub ENTIDADES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ENTIDADES.Click
        ' entidades load
    End Sub

    'linea 50
    Private Sub FACTURAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FACTURAS.Click
        'facturas_load
    End Sub

    Private Sub FACTURASV_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FACTURASV.Click
        'facturasv_load
    End Sub

    Private Sub GESTIONC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GESTIONC.Click
        ' gestionc_load
    End Sub

    Private Sub GESTIONCC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GESTIONCC.Click
        ' gestioncc_load
    End Sub

    Private Sub INGRESOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles INGRESOS.Click
        ' ingresos_load
    End Sub

    Private Sub PEDIDOSCLIENTES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PEDIDOSCLIENTES.Click
        ' pedidos_load
    End Sub

    Private Sub PROVEEDORES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PROVEEDORES.Click
        ' proveedores_load
    End Sub

    Private Sub RECIBOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RECIBOS.Click
        ' recibos_load
    End Sub

    Private Sub SALIRToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SALIR.Click
        MyBase.Finalize()
    End Sub

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub

    Private Sub TIVA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TIVA.Click
        ' tiva_load
        MsgBox("HOLA")
    End Sub

    Private Sub TRANSFERENCIAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TRANSFERENCIAS.Click

        m_frm.Show()
        'FTRANSF()

    End Sub

    Private Sub TRANSPORTISTAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TRANSPORTISTAS.Click
        'transportistas_load
    End Sub

    Private Sub VALIDARF_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles VALIDARF.Click
        'validad_load
    End Sub

    Private Sub COBROS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COBROS.Click
        MsgBox("COBROS")
    End Sub
End Class
 

[Mastermind]

Hola he intentado ejecutarlo pero me indica que falta la clase FTRANSF...

[anmaroso]

Hola he intentado ejecutarlo pero me indica que falta la clase FTRANSF...

Buenos días:

Eso que falta es un formulario al que se accede cuando clicleas PAGO>TRANSFERENCIAS
Se puede desactivar o si quieres te lo envío, pero para ver el menú no hace falta.

Yo estoy venga probar y solo lo puedo ejecutar cuando lo pongo desde inicio, si lo pongo que acceda desde otro formulario no hay forma.

Saludos.

[Mastermind]

Hola he puesto nada más que tres botones en el formulario: CLIENTES, ACREEDORES Y COBROS.

En el módulo tengo este código:

Código: [Seleccionar]

Option Explicit On
Option Strict On
Imports System
Imports System.Object
Imports System.Data
Imports System.String
Imports Microsoft
Imports Microsoft.VisualBasic
Module Module1
    Public mfrm As MENU = New MENU()
    Sub Main()
        mfrm.Show()
    End Sub

End Module
En la clase MENU del formulario tengo este código:

Código: [Seleccionar]

Public Class MENU
    'Private m_frm As FTRANSF = New FTRANSF()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub CLIENTES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CLIENTES.Click
        ' clientes_load()
    End Sub

    Private Sub ACREEDORES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ACREEDORES.Click
        'acreedores_load
    End Sub

   
    Private Sub COBROS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COBROS.Click
        MsgBox("COBROS")
    End Sub
End Class
A mí se me muestra correctamente el formulario, me aparece en pantalla y se mantiene.

Saludos

[anmaroso]

Buenas noches: Voy a probarlo de la forma que me indicas a ver si así logro que funcione.
Ya te mantendré informado.

[anmaroso]

Lamento indicar que a mí no me funciona. Es obvio que algo se me escapa... algo tengo mal y no sé que es. He puesto el mismo código que a ti te funciona.
Lo paso a ver, aunque no creo que sea problema de código.

Código: [Seleccionar]

Public Class MENU
    ' Private m_frm As FTRANSF = New FTRANSF()
    '  Private m_frm As FCLIEN = New FCLIEN()
    ' Private m_frm As FACREE = New FACREE()
    'Private m_frm As FALBA = New FALBA()

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub CLIENTES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CLIENTES.Click
        FTRANSF.Show() ' clientes_load()
    End Sub

    Private Sub ACREEDORES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ACREEDORES.Click
        'acreedores_load
    End Sub

    Private Sub ALBARANES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ALBARANES.Click
        'albaranes_load
    End Sub

    Private Sub CAJA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CAJA.Click
        'caja_load
    End Sub

    Private Sub CAJAP_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CAJAP.Click
        ' cajap_load
    End Sub

    Private Sub CARGOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CARGOS.Click
        ' cargos_LOAD
    End Sub

    Private Sub CHEQUES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CHEQUES.Click
        ' cheques_load
    End Sub

    Private Sub CODIGOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CODIGOS.Click
        ' codigosc_load
    End Sub

    Private Sub DESTINOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DESTINOS.Click
        ' destinos_load
    End Sub

    Private Sub DIVISAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DIVISAS.Click
        ' divisas_load
    End Sub

    Private Sub ENTIDADES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ENTIDADES.Click
        ' entidades load
    End Sub

    'linea 50
    Private Sub FACTURAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FACTURAS.Click
        'facturas_load
    End Sub

    Private Sub FACTURASV_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FACTURASV.Click
        'facturasv_load
    End Sub

    Private Sub GESTIONC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GESTIONC.Click
        ' gestionc_load
    End Sub

    Private Sub GESTIONCC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GESTIONCC.Click
        ' gestioncc_load
    End Sub

    Private Sub INGRESOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles INGRESOS.Click
        ' ingresos_load
    End Sub

    Private Sub PEDIDOSCLIENTES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PEDIDOSCLIENTES.Click
        ' pedidos_load
    End Sub

    Private Sub PROVEEDORES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PROVEEDORES.Click
        ' proveedores_load
    End Sub

    Private Sub RECIBOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RECIBOS.Click
        ' recibos_load
    End Sub

    Private Sub SALIRToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SALIR.Click
        MyBase.Finalize()
    End Sub

    '  Protected Overrides Sub Finalize()
    '     MyBase.Finalize()
    'End Sub

    Private Sub TIVA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TIVA.Click
        ' tiva_load
        MsgBox("HOLA")
    End Sub

    Private Sub TRANSFERENCIAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TRANSFERENCIAS.Click

        ' m_frm.Show()
        'FTRANSF.Show()

    End Sub

    Private Sub TRANSPORTISTAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TRANSPORTISTAS.Click
        'transportistas_load
    End Sub

    Private Sub VALIDARF_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles VALIDARF.Click
        'validad_load
    End Sub

    Private Sub COBROS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COBROS.Click
        MsgBox("COBROS")
    End Sub

End Class


Código: [Seleccionar]

Option Explicit On
Option Strict On
Imports System
Imports System.Object
Imports System.Data
Imports System.String
Imports Microsoft
Imports Microsoft.VisualBasic

Module Module1
    Public mfrm As MENU = New MENU()

    Sub Main()
        mfrm.Show()
    End Sub

End Module


[Mastermind]

Hola anmaroso es extraño puede ser que tengas algún fichero del proyecto corrupto. Prueba a crear un nuevo proyecto con un formulario con un solo botón, crea el módulo e intenta ejecutarlo a ver si tienes el mismo problema.

Saludos

[Mastermind]

Otra pregunta, ¿cómo estás ejecutando el proyecto? Es decir, ¿lo haces a través de una opción de menú, a través de un icono, a través de una tecla...?

[anmaroso]

Buenos días.

Hola Mastermind:

Clickeando en el botón "aceptar" del formulario LoginForm1.

He dado con ello. Ya puedes perdonar el tiempo que te he hecho perder por una simpleza.
El fallo estaba en las propiedades del proyecto que estaba indicado que la pantalla de presentación fuese MENU.
De momento al poner ninguna funciona.

Muchas gracias y saludos.

[Mastermind]

Hola pero ¿no usas el icono ejecutar, la tecla F5, o la opción de menú ejecutar?

[anmaroso]

Hola Mastermind,

Lo ejecuto con el triangulito verde que es lo mismo que F5.

He dado con ello. Ya puedes perdonar el tiempo que te he hecho perder por una simpleza.
El fallo estaba en las propiedades del proyecto que estaba indicado que la pantalla de presentación fuese MENU.
De momento al poner ninguna funciona.

Muchas gracias y saludos.