Saltar al contenido

Formulario, quitar (X) parte superior derecha del Formulario

publicado

Como puedo eliminar la barra superior del formulario para que solo pueda salir por boton abortar.

image.thumb.png.a5973a5e7e41d6a16e75167d6e1fe23b.png

Featured Replies

publicado

Se puede eliminar, pero porque  no la inutilizas y obligas igualmente a usar el botón Abortar ?

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     If CloseMode = 0 Then Cancel = True
End Sub

 

publicado
  • Autor

Hola JSDJSD , si funciona, muchas gracias

 

publicado
Hace 32 minutos , Janlui dijo:

Hola JSDJSD , si funciona, muchas gracias

 

Hola! @Janlui en mi caso como ya lo ha indicado @JSDJSDse condiciona a un botón el cierre del form, otra opción si no desea que aparezca la (X), utilizo esto:

Private Sub UserForm_Initialize()
Dim lngWindow As Long, lFrmHdl As Long
    lFrmHdl = FindWindowA(vbNullString, Me.Caption)
    lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
    lngWindow = lngWindow And (Not WS_CAPTION)
    Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
    Call DrawMenuBar(lFrmHdl)
End Sub

P.D.: El código lo tomé de un post de @JSDJSD me parece recordar.

 

Saludos

publicado

Nunca he entendido cual es el objetivo de eliminar una funcionalidad para tener que que crear otra que hace exactamente lo mismo.

Jamás he puesto un botón de Cerrar/Abortar/Cancelar en ninguno de mis formularios.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.