Autor Tema: Boton Cerrar Del Formulario (Leído 14522 veces)

Toph · « **en:** Viernes 12 de Mayo de 2006, 22:37 »

Estoy trabajando con varios formularios, uno es el principal y otros secundarios, el problema que veo es que el boton cerrar al presionarlo cierra los formularios secundarios y yo necesito que al presionarlo haga otras cosas

, entre ellas que me regrese al formulario principal, como hago para meterle codigo a este boton

, he visto en las propiedades del formulario que solo estan el boton minimizar y el maximizar pero no veo donde esta la opcion para manipular el boton cerrar,
¿Habra forma de meterle codigo a este boton? y si no la hay ¿puedo eliminarlo? ¿como?

Gracias

rocky

pos es facil solo tienes que programar el evento hide del formulario,

saludos

RadicalEd

Cita de: "rocky"

pos es facil solo tienes que programar el evento hide del formulario,

saludos

Evento hide

ese no lo conozco, puedes usar los eventos Terminate o Unload, para esto, si lo que quieres es que no se cierren los demas formularios (a excepción que sea un MDI), puedes poner en los form secundarios:

Código: Text

Private Sub Form_Unload(nomiquierdo As Integer)
me.Unload
End Sub
 

Ojala te sirva.
Chao

Angel38

Hola tania.

Tambien en el evento query_unload del form te puede ayudar.

Por ejemplo. cuando le das cerrar a un form secundario en el evento que quieras de los antes mencionados puedes escribir.

Código: Text

 
FormPrincipal.show

este codigo muestra otra vez el form principal. Espero te sirva.

Toph

Gracias por responder, se como ocultar y aparecer de nuevo el formulario solo queria saber como meterle ese codigo al boton cerrar (el que esta junto a minimizar y maximizar)

RadicalEd con respecto a:

Código: Text

Private Sub Form_Unload(nomiquierdo As Integer)
me.Unload
End Sub
 

Esto es lo que necesitaba

aunque, la sentencia correcta es unload Me, pero esa no es la duda sino

Citar

(nomiquierdo As Integer)

¿que es esto?, lo probe dejando el parentesis vacio pero no funciona solo con alguna variable ahi ¿por que?

por cierto "Hide" es una sentencia que oculta el formulario sin borrar los datos, no como "unload" que descarga el formulario y borra todo

Angel38 probe con query_unload pero no me sirvio puse

Código: Text

Private Sub query_unload()
Unload Me
End Sub
 

pero nada ¿o no era asi?

Gracias a todos por su tiempo

Angel38

Pues no te preocupes de todos modos en el evento Unload puedes escribir ese codigo.

Angel38

Perdon, perdon no lei bien.

Si te das cuentas estas colocando al evento que se cierre el form y supuestamente Query unload trabaja en el momento que el form se cierra es decir que ese codigo que colocaste está de más.

Te recuerdo que el codigo que coloque fue este.

Formprincipal.show

Intentanlo asi en el form secundario y veras que el form principal se abrira cuando cierres uno secundario

La pregunta es, quieres que la informacion del primer form se mantenga?

Si es asi entoces cuando abras los otros formularios puedes escribir

frmsecundario.show 'ó el form que vayas a abrir
frmprincipal.hide

rocky

perdon por lo del hide, es el unload, es que me equivoque sorry se me fue la cabeza

Toph · « **Respuesta #8 en:** Lunes 15 de Mayo de 2006, 01:37 »

Citar

Te recuerdo que el codigo que coloque fue este.

Formprincipal.show

Intentanlo asi en el form secundario y veras que el form principal se abrira cuando cierres uno secundario

Angel38 no me has entendido, esto ya lo sé, lo que yo queria era meterle esto al boton cerrar (el que esta arriba, a la par de minimizar y maximizar)

rocky, Hide esta bien, si uno quiere ocultar el formulario, la aclaracion se la ponia a RadicalEd porque decia que no la conocia pero de hecho yo la estoy utilizando al ocultar el formulario porque necesito tener esos datos.

Soultaker · « **Respuesta #9 en:** Lunes 15 de Mayo de 2006, 08:18 »

Cita de: "Tania_D"

rocky, Hide esta bien, si uno quiere ocultar el formulario, la aclaracion se la ponia a RadicalEd porque decia que no la conocia pero de hecho yo la estoy utilizando al ocultar el formulario porque necesito tener esos datos.

Lo que Radicaled queria decir que HIDE no es un evento, el HIDE es un metodo

Cita de: "Tania_D"

¿Habra forma de meterle codigo a este boton? y si no la hay ¿puedo eliminarlo? ¿como?

Para hacer lo primero ya te lo pexplicaron y si todavia lo necesitas para eliminar la X, eso esta en la propiedad BorderStyle, prueba modificandola no me acuerdo cual es el valor de la propiedad, tambien lo puedes deshabilitar colocando en False la propiedad ControlMenu.

Angel38 · « **Respuesta #10 en:** Lunes 15 de Mayo de 2006, 19:12 »

Citar

tambien lo puedes deshabilitar colocando en False la propiedad ControlMenu.

Creo que es Control Box

Lo que quieres hacer es algo asi como darle doble click a la X y poder codificarla.

Pero no lo puedes hacer Tania_D eso tienes que controlarlo por medio de los eventos que te hemos dicho.

Toph

Citar

Lo que quieres hacer es algo asi como darle doble click a la X y poder codificarla.

Pero no lo puedes hacer Tania_D eso tienes que controlarlo por medio de los eventos que te hemos dicho.

si ya habia dicho que ya lo tengo, es como me dijo RadicalEd, gracias

asunto resuelto

Soultaker

Cita de: "Angel38"

Creo que es Control Box

Si tienes razon, creo que ControlMenu es en VB .NET lo que pasa es que no tengo instalado ninguno de los 2 Visual Basic por eso coloque lo que me acordaba

Phalen

Mira yo tenia problemas similares al vuestro, que lo quería hacer era eliminar el botón, pero no pude hacerlo, así que opte por inhabilitarlo, también podrás meter código si quieres que se ejecute otra cosa, previamente debes declarar la variable cancel como booleana:

dim cancel as boolean=false

Esta otra parte es para el evento closing de tu formulario

Private Sub frmEjemplo_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
if cancel=true then
me.close
else
e.Cancel = Not cerrar
//Aqui puedes ejecutar el codigo que quieras
end if
End Sub

La opción ControlBox te funciona solo tambien te oculta los botones de maximizar y minimizar, pero no los eventos de estos.

Y si es para cerrar el formulario simplemente donde te toque cerrarlo, pones cancel como true, Espero que te pueda servir esto.
Ojo hay forma de eliminar el boton solo que para que te funcione en Windows Vista, debes generar el proyecto en Windows XP, que ese era mi problema mayor ya que el proyecto en el que trabajo es obligado que trabaje en Windows Vista y no puedo ocultar el Boton X en el mismo.

Saludos

F_Tanori

el primer mensaje es viejo
incluso esta resuelto ya
seria bueno que para publicar codigo usaras la etiqueta CODE
ese codigo es de .NET y este es el foro de VB6 para principiantes

Saludos

Phalen

Cita de: "F_Tanori"

el primer mensaje es viejo
incluso esta resuelto ya
seria bueno que para publicar codigo usaras la etiqueta CODE
ese codigo es de .NET y este es el foro de VB6 para principiantes

Saludos

Lo siento no me habia percatado de ello ya que vi el problema y respondi rapido, XD.

Cualquier cosa borradlo si quereis, solo queria ayudar, pero no me habia percatado de este tema.

difs

Bueno en los formularios debe habr un formulario principal como formulario padre(MDI)

existe una propiedad en los formularios la cual es MDIChild si no me equivoco la cual permite que cuando presiones el botón cerrar, sólo cierre ese formulario y no el principal ya que la propiedad le indica al formulario que es hijo del formulario principal(MDI).

El código para que cierres el principal es:
if (msgbox = "Deseas Salir...?", vbquestion + vbyesno, "Finalizar") = vbyes then End

Para el botón cerrar de los forms secundarios es:
Unload me

Espero que te ayude.

---=[ Difs ]=---

m0skit0

¡Que alguien cierre este hilo!

Jimbenit

Por Diosss... ¿Como no ayudar a mi princesa Toph?

Lo que quieres hacer es eliminar el boton cerrar, desabilitarlo?, aqui tienes

Código: Text

Option Explicit
 
 
'Declaraciones del api
'------------------------------------------------------
 
' PAra deshabilitar el menú y otros
Private Declare Function DeleteMenu Lib "user32" ( _
    ByVal hMenu As Long, _
    ByVal nPosition As Long, _
    ByVal wFlags As Long) As Long
 
' Obtiene el Handle al menú del sistema de la ventana
Private Declare Function GetSystemMenu Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal bRevert As Long) As Long
 
 
Private Const MF_BYPOSITION = &H400&
 
 
Private Sub Aplicar_Cambios(ByVal El_Formulario As Form, _
                            ByVal Menu_Cerrar As Boolean, _
                            ByVal Redimensionar As Boolean, _
                            ByVal Mover As Boolean)
 
Dim Hwnd_Menu As Long
    
    ' Obtiene el Hwnd del menú para usar con el Api DeleteMenu
    Hwnd_Menu = GetSystemMenu(El_Formulario.hwnd, False)
    
    ' botón Cerrar
    If Menu_Cerrar Then
       Call DeleteMenu(Hwnd_Menu, 6, MF_BYPOSITION)
    End If
    
    'Hace que la ventana no se pueda cambiar de tamaño
    If Redimensionar Then
       Call DeleteMenu(Hwnd_Menu, 2, MF_BYPOSITION)
    End If
    
    ' No permite que la ventana se pueda mover
    If Mover Then
       Call DeleteMenu(Hwnd_Menu, 1, MF_BYPOSITION)
    End If
End Sub
 
 
Private Sub Form_DblClick()
    Unload Me
End Sub
 
Private Sub Form_Load()
    
    MsgBox " Para cerrar el formulario haz DOBLE Click en el mismo ", vbInformation
        
    ' Deshabilita el Command de cerrar, y no permite que se redimensione _
     y mueva el formulario
    Call Aplicar_Cambios(Me, True, True, True)
 
End Sub
 
 
 
 

2) Introducir codigo al boton cerrar?
No puedes, en lugar de eso, (como te han dicho antes) utiliza el evento Unload o Terminate
Aclaración: primero se desencadena el evento unload y luego el terminate, mira los comentarios en el msdn
Saludos y ... TE QUIERO MUCHOOOOO

Nota:
Te quiero mucho Toph

Nota 2:
Muy contento de que mi Post numero 100 sea para mi princesa

m0skit0

Jimbenit, ¿qué tal si miras la edad del hilo?

Toph

Este hilo es de mayo del 2006 y como dije por ese entonces

Cita de: "Toph"

si ya habia dicho que ya lo tengo, es como me dijo RadicalEd, gracias

asunto resuelto

No se como dejar mas claro que YA ESTA SOLUCIONADO

y gracias a las personas que postearon sus codigos ya hay mas de una solucion para algun usuario que le surja la misma duda en el futuro y de una busqueda tendra varias alternativas asi que por favor ya no respondan mas, si alguien tiene una duda sobre algun codigo aqui por favor abra otra Discusion.

Gracias

Jimbenit

Cita de: "m0skit0"

Jimbenit, ¿qué tal si miras la edad del hilo?

Cita de: "Toph"

Este hilo es de mayo del 2006

No me habia dado cuenta de la edad del Post...
Sorry... sorry....
Lo que pasa es que cuando vi el nombre de Toph que estaba preguntando, me volví como loco por responder (ademas estaba cansado y mi vista la tenia muy pesada, ya estaba cerrando todo mi trabajo del día cuando respondí ese post [eran como las 6 y media de la tarde])... Lo siento