Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: FRIJU en Miércoles 10 de Diciembre de 2003, 13:08
Título: Controlbox
Publicado por: FRIJU en Miércoles 10 de Diciembre de 2003, 13:08
Hola Compañer@s!!!
Como puedo anular la x del y dejar los botones de maximizar y minimizar de la barra. :unsure:
Título: Re: Controlbox
Publicado por: Brroz en Miércoles 10 de Diciembre de 2003, 14:38
Kaixo FRIJU.
Tal vez mediante apis se pueda conseguir lo que quieres... pero aquí tienes dos formas de lograr el mismo efecto sin eliminar el botón:
1- (La más sencilla). Utilizae el evento QueryUnload del formulario de la siguiente forma:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = 1 Then Cancel = 1 End Sub
2 - Podrías crear el form sin ControlBox y currarte tú uno con un PictureBox, de forma que al hacer click en determinada posición: Me.WindowState = 1 (minimizado) o Me.WindowState = 2 (maximizado).
Ya te digo que lo más tal sería usar la primera opción...
Agur.
Título: Re: Controlbox
Publicado por: FRIJU en Miércoles 10 de Diciembre de 2003, 14:40
Moitas Gracias Brroz!! Lo probaré. Como siempre tan eficiente. :comp:
Título: Re: Controlbox
Publicado por: observador en Jueves 11 de Diciembre de 2003, 00:30
Bien... ya te dieron un par de soluciones, pero no esta por demas mostrar esta otra...
Como bien mensiona Brroz esto se puede hacer con un par de APIs.
Este codigo que adjunto trabaja directamente con el menu de sistema, lo que hace es eliminar esa opcion del menu, dando como consecuencia un boton X (Cerrar) deshabilitado y la opcion Cerrar ALT+F4 eliminada...
Les anexo un screenshot para que observen el resultado...
Título: Re: Controlbox
Publicado por: FRIJU en Jueves 11 de Diciembre de 2003, 07:55
Muchisimas gracias a todos! Lo probaré.
:kicking:
Título: Re: Controlbox
Publicado por: Brroz en Sábado 13 de Diciembre de 2003, 10:14
Saludo a tod@s.
¡Ojo!
En el código que escribí metí la gamba y langostino:
Código: Text
Private Sub Form_QueryUnload(Cancel As Integer _
, UnloadMode As Integer)
If UnloadMode = 1 Then Cancel = 1
End Sub
debería haber puesto:
Código: Text
Private Sub Form_QueryUnload(Cancel As Integer _
, UnloadMode As Integer)
If UnloadMode = 0 Then Cancel = 1
End Sub
El valor UnloadMode = 1 indica que el formulario se descarga desde el código, El valor UnloadMode = 0 indica que el usuario cierra el formulario tras haber pulsado X en la barra del form.