Autor
|
Tema: Problema ocultando Form1 y liberando sus controles (Leído 2,193 veces)
|
okik
Desconectado
Mensajes: 462
|
Hace tiempo que no entro aquí XD Pero este es un problema difícil de buscar. No se ni que poner en google. Es muy simple, cargo un formulario principal A, con X controles. Luego oculto A y libero sus controles al cargar el formulario B. Al cerrar B, se liberan los controles y eventos de B y se vuelve a mostrar el formulario A y recarga sus controles y eventos. Pero tras esto el formulario A no se cierra. Lo podría solucionar simplemente usando End. Pero no es elegante, está claro que no aplico bien el método. Formulario 1 Public NotInheritable Class frmMain Inherits Form Friend MyButton1 As Button Public Sub New() ' Llamada necesaria para el diseñador. MyClass.InitializeComponent() Me.MyButton1 = New Button With { .Text = "Show Form2", .Location = New Point(10, 10) } ' Agregue cualquier inicialización después de la llamada a InitializeComponent(). AddHandler MyButton1.Click, AddressOf MyButton1_Click End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Controls.Add(MyButton1) Me.Text = "frmMain" End Sub Private Sub MyButton1_Click(sender As Object, e As EventArgs) DisposeControls() Me.Hide() frmDialog.Show() End Sub Sub DisposeControls() Me.MyButton1.Dispose() RemoveHandler MyButton1.Click, AddressOf MyButton1_Click End Sub End Class
Formulario 2 Public NotInheritable Class frmDialog Inherits Form Friend MyButton2 As Button Friend fmain As New frmMain Public Sub New() ' Llamada necesaria para el diseñador. MyClass.InitializeComponent() MyButton2 = New Button With { .Text = "Show Form1", .Location = New Point(10, 10) } ' Agregue cualquier inicialización después de la llamada a InitializeComponent(). AddHandler MyButton2.Click, AddressOf MyButton2_Click End Sub Private Sub frmDialog_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing fmain.Show() ' fmain.Visible=tue End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Controls.Add(MyButton2) Me.Text = "frmDialog" End Sub Private Sub MyButton2_Click(sender As Object, e As EventArgs) DisposeControls() Me.Close() End Sub Sub DisposeControls() RemoveHandler MyButton2.Click, AddressOf MyButton2_Click Me.MyButton2.Dispose() End Sub End Class
He probado de todo. gracias por la ayuda Si no libero los controles y eventos creados en el formulario A, entonces va bien. Pero deberían poderse liberar. Public NotInheritable Class frmMain Inherits Form Friend MyButton1 As Button Public Sub New() ' Llamada necesaria para el diseñador. MyClass.InitializeComponent() Me.MyButton1 = New Button With { .Text = "Show Form2", .Location = New Point(10, 10) } ' Agregue cualquier inicialización después de la llamada a InitializeComponent(). AddHandler MyButton1.Click, AddressOf MyButton1_Click End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Controls.Add(MyButton1) Me.Text = "frmMain" End Sub Private Sub MyButton1_Click(sender As Object, e As EventArgs) DisposeControls() Me.Hide() frmDialog.Show() End Sub Sub DisposeControls() Me.MyButton1.Dispose() RemoveHandler MyButton1.Click, AddressOf MyButton1_Click End Sub End Class
Public NotInheritable Class frmDialog Inherits Form Friend MyButton2 As Button Public Sub New() ' Llamada necesaria para el diseñador. MyClass.InitializeComponent() MyButton2 = New Button With { .Text = "Show Form1", .Location = New Point(10, 10) } ' Agregue cualquier inicialización después de la llamada a InitializeComponent(). AddHandler MyButton2.Click, AddressOf MyButton2_Click End Sub Private Sub frmDialog_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing ' fmain.Show() frmMain.Show() End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Controls.Add(MyButton2) Me.Text = "frmDialog" End Sub Private Sub MyButton2_Click(sender As Object, e As EventArgs) 'DisposeControls() Me.Close() End Sub Sub DisposeControls() RemoveHandler MyButton2.Click, AddressOf MyButton2_Click Me.MyButton2.Dispose() End Sub End Class
|
|
« Última modificación: 22 Septiembre 2016, 12:12 pm por okik »
|
En línea
|
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.885
|
Tienes que modificar toda la lógica del problema que estés intentando resolver... 1. Una aplicación WindowsForms no puede coexistir sin un Form principal, puesto que el Form contiene el método del punto de entrada (Entry point) de la aplicación. Si liberas/cierras el Form principal, es exactamente lo mismo que finalizar la aplicación. En resumen, NO debes liberar el Form principal (a menos que quieras terminar la ejecución de la app). 2. En el Form-diálogo tienes declarado esto: Friend fmain As New frmMain ...lo que consigues haciendo eso es crear una nueva instancia de frmMain, distinta, duplicada, e innecesariamente puesto que no necesitas crear ni 1 ni 2 ni ninguna instancia adicional del Form principal de tu aplicación, ya la tienes instanciada, úsala. No se si he explicado bien esta parte, ¿entiendes lo que intento decirte?. 3. No necesitas asegurarte de liberar ningún control ni de eliminar ninguna asociación de eventos, todo eso ya lo hace .NET Framework automáticamente al llamar al método Form.Dispose(), se encarga de liberar todos los controles de la colección de controles del Form, entre otros recursos administrados y no administrados... 4. La manera de implementar un método de liberación de recursos ( Dispose) no es añadiendo un método cualquiera al que llamaremos " DisposeControls" al tún tún y liberar allí los objetos, no, se hace implementando la interfáz IDIsposable: Class Class1 : Implements IDisposable #Region " IDisposable Implementation " Private isDisposed As Boolean Public Sub Dispose() Implements IDisposable.Dispose Me.Dispose(isDisposing:=True) GC.SuppressFinalize(obj:=Me) End Sub Protected Overridable Sub Dispose(ByVal isDisposing As Boolean) If (Not Me.isDisposed) AndAlso (isDisposing) Then ' Free managed resources here... End If ' Free unmanaged resources here... Me.isDisposed = True End Sub #End Region End Class
El type Form logicamente ya implementa dicha interfaz, así que solamente debes hacer una suplantación: Class Form1 : Inherits Form Protected Overrides Sub Dispose(ByVal isDisposing As Boolean) ' Free additional managed and unmanaged resources here... MyBase.Dispose(disposing:=True) End Sub End Class
No se muy bien lo que pretendes hacer, ya que en realidad ese diálogo dista bastante de ser un diálogo puesto que no le das el uso que se le daría a un diálogo, de todas formas he escrito este ejemplo de aquí abajo que creo te podrá servir. Lo que hace este ejemplo es mostrar un diálogo a través de un botón del Form principal, y volver a mostrar el Form principal despues de devolver el resultado del diálogo. Eso es lo que creo haber entendido que quieres hacer... y yo solo te muestro una manera apropiada de hacerlo. Form Principal: Public NotInheritable Class FormMain : Inherits Form Friend WithEvents ButtonShowDlg As Button Public Sub New() ' MyClass.InitializeComponent() Me.Text = "Main Window" Me.ButtonShowDlg = New Button With { .Text = "Show Dialog Window...", .Location = New Point(10, 10) } End Sub Private Sub FormMain_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load Me.Controls.Add(Me.ButtonShowDlg) End Sub Private Sub ButtonShowDlg_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonShowDlg.Click Me.Hide() Dim dlgPos As Point Dim dlgResult As DialogResult Using dlg As FormDlg = My.MyProject.Forms.FormDlg dlgResult = dlg.ShowDialog(Me) dlgPos = dlg.Location Debug. WriteLine(dlgResult. ToString()) End Using Me.Location = dlgPos Me.Show() End Sub End Class
Diálogo: Public NotInheritable Class FormDlg : Inherits Form Friend WithEvents ButtonClose As Button Public Sub New() ' MyClass.InitializeComponent() With Me .Text = "Dialog Window" .FormBorderStyle = FormBorderStyle.FixedDialog .Owner = My.MyProject.Forms.FormMain .StartPosition = FormStartPosition.CenterParent End With Me.ButtonClose = New Button With { .Text = "Show Main Window...", .Location = New Point(10, 10) } End Sub Private Sub FormDlg_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load Me.Controls.Add(Me.ButtonClose) End Sub Private Sub FormDlg_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing If (e.CloseReason = CloseReason.ApplicationExitCall) Then Me.DialogResult = DialogResult.Cancel End If End Sub Private Sub ButtonClose_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonClose.Click Me.DialogResult = DialogResult.OK Me.Close() End Sub End Class
Saludos!
|
|
« Última modificación: 22 Septiembre 2016, 14:15 pm por Eleкtro »
|
En línea
|
|
|
|
okik
Desconectado
Mensajes: 462
|
Realmente no quería hacer un formulario Dialog, lo que pasa es que lo puse así para diferenciar el principal del que no lo es y al otro le puse dialog. Para explicar voy a cambiar: tengo dos formularios FormA (principal) y FormB (secundario) Lo que quiero es iniciar el segundo formulario y FormA ocultarlo mediante 'HIDE". Pero al ocultar el principal realmente sigue en memoria y para liberar memoria quería eliminar todos los eventos y controles del FormA , al mostrar el FormBCuando cierro FormB todo se libera así que aquí no tengo que usar dispose ni nada, no se porqué lo puse ahí. Pero cuando vuelvo a mostrar el formulario FormA usando Visible = True, como eliminé todos los controles, ya no aparecen. Así que uso Show. Así que uso: Dim frmMain As New FormA frmMain.Show()
(hay varias maneras, lo se) Y todos los controles se carga de nuevo, PERO , cuando cierro FormA no se cierra. Esta es la cosa. DEMOSTRACIÓN: FORMA Public NotInheritable Class FormA : Inherits Form Friend ButtonShowFormB As Button Public Sub New() MyClass.InitializeComponent() Me.Text = "FormA" Me.ButtonShowFormB = New Button With { .Text = "Show FormB", .Location = New Point(10, 10) } AddHandler Me.ButtonShowFormB.Click, AddressOf ButtonShowFormB_Click End Sub Private Sub FormMain_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load Me.Controls.Add(Me.ButtonShowFormB) End Sub Private Sub ButtonShowFormB_Click(ByVal sender As Object, ByVal e As EventArgs) 'Libera los controles ButtonShowFormB.Dispose() RemoveHandler Me.ButtonShowFormB.Click, AddressOf ButtonShowFormB_Click 'Oculta el form Me.Hide() 'Muestra el Form2 FormB.Show() End Sub End Class
FORMB Public NotInheritable Class FormB : Inherits Form Friend WithEvents ButtonShowFormA As Button Public Sub New() MyClass.InitializeComponent() With Me .Text = "FormFB" .FormBorderStyle = FormBorderStyle.FixedDialog .Owner = My.MyProject.Forms.FormA .StartPosition = FormStartPosition.CenterParent End With Me.ButtonShowFormA = New Button With { .Text = "Show FormA", .Location = New Point(10, 10) } End Sub Private Sub FormB_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Dim frm As New FormA frm.Show() End Sub Private Sub FormDlg_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load Me.Controls.Add(Me.ButtonShowFormA) End Sub Private Sub ButtonShowFormA_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonShowFormA.Click Me.Close() End Sub End Class
Pulsa el botón: se oculta el FORMA (y elimina los controles), y se muestra el FORMB Pulsa el botón: Se CIERRA el FORMB y se carga el FORMA (recarga los controles) Y aquí es donde se lía la cosa. Al cerrar (con el botón cerrar X) el formulario FORMA, la aplicación no se cierra se queda pendiente. Ese es el problema. No se si es que al hacer esto: Private Sub FormB_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Dim frm As New FormA frm.Show() End Sub
Se crea otro FormA visible con todos sus controles y queda pendiente en memoria el FormA inicial sin controles que hemos ocultado mediante HIDE. La verdad no se. Se soluciona añadiendo END, pero no debería ser necesario. Algo raro ocurre. Tiene que haber alguna manera de crear de nuevo todos los controles cuando el FormA vuelva a ser visible si hago esto al cerrar el FormA y mostrar el FormB, simplemente se cierra la aplicación: Private Sub ButtonShowFormB_Click(ByVal sender As Object, ByVal e As EventArgs) 'Libera los controles ' ButtonShowFormB.Dispose() 'RemoveHandler Me.ButtonShowFormB.Click, AddressOf ButtonShowFormB_Click MyBase.Dispose(disposing:=True) 'o Me.Dispose() 'Oculta el form Me.Hide() 'Muestra el Form2 FormB.Show() End Sub
Si me solucionas el problema te cuelgo el programa
|
|
« Última modificación: 22 Septiembre 2016, 17:23 pm por okik »
|
En línea
|
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.885
|
Lo que quiero es iniciar el segundo formulario y FormA ocultarlo mediante 'HIDE". Pero al ocultar el principal realmente sigue en memoria y para liberar memoria quería eliminar todos los eventos y controles del FormA , al mostrar el FormB Te entiendo, pero no no no no no no, no... no, y ¡NO!. No debes intentar hacer eso okik, arriba al principio del comentario te expliqué la razón. De todas formas te explico por que te sucede eso, creo que estás atribuyéndole propósitos adicionales al método Form.Show(), ese método solo sirve para mostrar el Form, no para instanciarlo, es decir, si tu liberas un control del FormA, luego ocultas ese FormA llamando a Form.Hide() y por último muestras el FormA llamando a Form.Show(), en ese procedimiento lo único que has hecho es liberar un control y ocultar y mostrar el form, el control no se va a volver a colocar ahí por arte de mágia, debes volver a crear una instancia del control, y añadirla a la colección de controles del Form. Para solucionarlo debidamente, podrías controlar el evento Form.VisibleChanged de la siguiente manera: Public NotInheritable Class FormMain : Inherits Form Friend WithEvents ButtonShowFormB As Button Public Sub New() MyClass.InitializeComponent() Me.Text = "FormA" End Sub Private Sub FormMain_VisibleChanged(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.VisibleChanged If DirectCast(sender, Form).Visible Then Me.ButtonShowFormB = New Button With { .Text = "Show FormB", .Location = New Point(10, 10) } Me.Controls.Add(Me.ButtonShowFormB) End If End Sub Private Sub ButtonShowFormB_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonShowFormB.Click Me.ButtonShowFormB.Dispose() Me.ButtonShowFormB = Nothing Me.Hide() FormB.Show() End Sub End Class
Si realmente te empeñas en liberar los recursos del Form principal a deshora, fíjate bien en esta instrucción que añadí: Me.ButtonShowFormB = Nothing
...después de llamar al método Control.Dispose() es necesario asignarle un valor nulo al objeto tal y como hice, para facilitarle la tarea al GarbageCollector indicándole que puede proceder a liberar los recursos del control cuanto antes. Saludos!
|
|
« Última modificación: 22 Septiembre 2016, 18:21 pm por Eleкtro »
|
En línea
|
|
|
|
okik
Desconectado
Mensajes: 462
|
Bueno gracias funciona. Sin embargo no es problema así usar Show. Funciona ponga Show que Visible=true. Pero de forma directa sin usar NEW Private Sub FormA_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed ' FormA.Visible = True FormA.Show() End Sub
(Esto todo en un formulario) Public NotInheritable Class FormA : Inherits Form Friend ButtonShowFormB As Button Public Sub New() MyClass.InitializeComponent() Me.Text = "FormA" End Sub Private Sub FormA_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged If DirectCast(sender, Form).Visible Then Me.ButtonShowFormB = New Button With { .Text = "Show FormB", .Location = New Point(10, 10) } Me.Controls.Add(Me.ButtonShowFormB) AddHandler Me.ButtonShowFormB.Click, AddressOf ButtonShowFormB_Click End If End Sub Private Sub FormMain_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load Me.Controls.Add(Me.ButtonShowFormB) End Sub Private Sub ButtonShowFormB_Click(ByVal sender As Object, ByVal e As EventArgs) RemoveHandler Me.ButtonShowFormB.Click, AddressOf ButtonShowFormB_Click Me.ButtonShowFormB.Dispose() Me.ButtonShowFormB = Nothing Me.Hide() FormB.Show() End Sub End Class Public NotInheritable Class FormB : Inherits Form Friend ButtonShowFormB As Button Public Sub New() Me.Text = "FormB" Me.ButtonShowFormB = New Button With { .Text = "Show FormA", .Location = New Point(10, 10) } AddHandler Me.ButtonShowFormB.Click, AddressOf ButtonShowFormB_Click End Sub Private Sub FormA_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed ' FormA.Visible = True FormA.Show() End Sub Private Sub FormMain_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load Me.Controls.Add(Me.ButtonShowFormB) End Sub Private Sub ButtonShowFormB_Click(ByVal sender As Object, ByVal e As EventArgs) Me.Close() End Sub End Class
Esto ya lo contemple y crear un proceso que cargue los controles desde el Closing del Form2. Pero pensé que no era la forma correcta de hacerlo. Supongo que si el número de controles y eventos del formulario principal no es muy grande, no pasa nada que no se eliminen los eventos y los controles.
|
|
« Última modificación: 22 Septiembre 2016, 22:10 pm por okik »
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Enviar form1 via mail programado desce VB
Programación Visual Basic
|
diodo
|
4
|
1,523
|
9 Abril 2007, 01:51 am
por diodo
|
|
|
Propiedad Visible del Form1!!
Programación Visual Basic
|
Hole_System
|
6
|
2,664
|
29 Mayo 2008, 16:26 pm
por seba123neo
|
|
|
modulo sin lanzar form1
.NET (C#, VB.NET, ASP)
|
AiM
|
8
|
4,849
|
24 Diciembre 2009, 14:29 pm
por raul338
|
|
|
Problema con controles y UpdateLayeredWindow
Programación C/C++
|
ThunderCls
|
2
|
3,592
|
17 Agosto 2010, 14:51 pm
por ThunderCls
|
|
|
Problema con controles web ieframe.dll
Programación Visual Basic
|
Luna71c0
|
2
|
3,990
|
9 Julio 2011, 07:20 am
por Luna71c0
|
|