Buen da.
Tengo una clase con varios controles, entre ellos un toolbox, uno de los botones del toolbox tiene que cerrar la ventana.
Select Case item.Name
Case “Nuevo”
Case “Editar”
Case “ToolGrabar”
Case “ToolSalir”
Self.Close()
Return
Case “ToolAyuda”
End Select
Self.HabilitarToolBox()
Pero al ejecutar el cdigo me cierra la clase y no el formulario.
Como puedo llamar al evento close desde la clase.
Saludos.
Mauricio
Hola Mauricio,
Necesitars que la clase sea derivada de RectControl
o bien implementar el cdigo de salida directamente sobre cualquiera de los controles que deriven de RectControl
. El motivo es que, de este modo, podrs utilizar la propiedad Window
para acceder a la ventana que contiene la instancia de clase en su conjunto, ejecutando finalmente el mtodo Close
sobre ella.
RectControl
tambin tiene la propiedad TrueWindow
que permite encontrar la ventana en una jerarqua ms anidada (por ejemplo, aquella donde los controles estn incluidos en un Container
).
Por ejemplo, si ‘self
’ es derivada de RectControl
:
Case "ToolSalir"
Self.Window.Close
End select
Saludos,
Javier