Programación General > Visual Basic para principiantes

 Boton Cerrar Del Formulario

<< < (4/5) > >>

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
--- Fin de la cita ---


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:
:argh:  :argh:

¡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 otrosPrivate 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 ventanaPrivate 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 IfEnd Sub  Private Sub Form_DblClick()    Unload MeEnd 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?  :bad:  :bad:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior