Cancelar Evento "Load" - VB-MUNDO

fueguino · #1 (**permalink**) 01-03-2007, 17:17:08

En realidad no se si está permitido, pero por si alguno sabe....

Lo que pretendo hacer es que el mismo Formulario valide su permiso (Chequea que no haya errores). De no ser así, que "cancele" el evento LOAD y NO MOSTRAR el formulario.

Espero que hayan entendido mi inquietud. Saludos!

Javier2315 · #2 (**permalink**) 01-03-2007, 17:34:03

hola, al decir que no cargue el formulario te refieres a cerrarlo??? cuando validas si hay errores si los hay ps cierra el form, o puedes poner Exit Sub

fueguino · #3 (**permalink**) 01-03-2007, 18:24:04

No, si en el evento Load haces Me.Close() genera error y cuelga la aplicación. Si le dás Exit Sub, te muestra el formulario, pero sin hacer lo que le seguia dicho codigo en el Load.

En el activated tambien pasa lo mismo.

Javier2315 · #4 (**permalink**) 01-03-2007, 19:09:32

aun no se que es lo que quieres hacer, si explicaras un poco mejor

fueguino · #5 (**permalink**) 01-03-2007, 20:28:41

Es tan claro como el agua.

por ejemplo:

Private Sub Form1_Load(agumentos) Handles Form1.Load
Try
' Validaciones para que abra el formulario correctamente (no es importante para el caso.)
' una vez que dio todo correcto abrir el formulario
Catch ex as Exception
' si dá error Cerrar el formulario, o sea, no mostrarlo. Por ejemplo...

Me.Close()
' Pero esa rutina esta prohibida en el evento Load. Entonces, tengo que buscar algo similar a esa operación.
End Try

Supongo que ahora esta más claro.

angelescj · #6 (**permalink**) 01-03-2007, 21:49:24

Sube el código, porque yo acabo de probar el código y deja, vaya que si deja. Lo he probado en NET 2003

:smt004

Javier2315 · #7 (**permalink**) 01-03-2007, 21:53:48

bueno he probado en el evento load poner Me.Close y no me da ningun error (en el VB2005) si estas usando otro puede que no resulte como me has comentado, y si en vez de Me.Close pones End o Application.Exit en el evento load haber si asi si da

Istyar · #8 (**permalink**) 01-03-2007, 22:34:53

Puedes probar a sobreescribir el método show.
Si se cumplen las condiciones llamas a MyBase.Show()
y si no no la llamas.

Scherzo · #9 (**permalink**) 02-03-2007, 08:53:36

Y las validaciones que has de hacer, ¿no las puedes hacer desde el formulario o el código anterior a abrir el formulario?. Es decir, en lugar de instanciar el formulario y lanzar el Load() para luego cerrarlo si no cumple las condiciones, hacer las validaciones antes y si se cumplen, entonces instancias el formulario y lo cargas, y si no se cumplen, no llegas ni a instanciarlo.

Esto siempre y cuando las validaciones que tengas que hacer sean validaciones que puedas realizar sin necesidad de iniciar la carga del formulario en cuestión.

Saludos

fueguino · #10 (**permalink**) 09-04-2007, 15:57:52

Me colgue con el tema, igualmente ya lo solucioné.

Las validaciones no las puedo hacer desde el formulario Origen, ya que lo abro desde varios lugares, y para ahorrarme codigo lo pongo en el Load del formulario destino.

El Application.Exit no me sirve porque no es un formulario para que cierre el sistema. tampoco el Exit sub, con este codigo cancela el evento, pero carga el formulario igual.

No se porque a ustedes no les toma error el Me.Close(), quizás sea el Option Explicit o Strict o algo de eso, sino, no hay explicación.

Lo que hice fue lo siguiente (por si a alguien le interesa):

Código:

 Try
            Me.Cursor = Cursors.WaitCursor
            If st = State.Alta Then
                If CargarEmpresa() Then
                    'Si carga bien la empresa  
                    mixml.UpdateForm(Me)
                    FacturaHabilitada = True
                Else
                    ' Cancele el cargar empresa o algun error
                    Me.Hide()
                    FacturaHabilitada = False
                End If
            Else
                mixml.UpdateForm(Me)
                FacturaHabilitada = True
            End If
End Sub

Y luego en el activated del formulario:

Código:

  Private Sub FrmProvFactura_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        If FacturaHabilitada = False Then
                 Me.Dispose()
        End If
    End Sub

Saludos!