Código de Visual Basic para Aplicaciones - Eliminar Botón Cerrar de los formularios

Pos: 21

Val: 40

Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)

Eliminar Botón Cerrar de los formularios

Visual Basic para Aplicaciones

Publicado el 24 de Enero del 2021 por Fernandoml (3 códigos)

1.314 visualizaciones desde el 24 de Enero del 2021

El siguiente código, elimina el botón Cerrar de los formularios. Para que funcione correctamente, debe de tener un título.

Creamos un nuevo módulo donde debemos de pegar el siguiente código.

Y para que funcione correctamente, dentro de nuestro formulario, lo usaremos de la siguiente manera:

Private Sub UserForm_Initialize()

    mdlPrograma.QuitarBotonCerrar (Me.Caption)

End Sub

Espero os sirva a todos.

1.0

Publicado el 24 de Enero del 2021

gráfica de visualizaciones de la versión: 1.0

1.315 visualizaciones desde el 24 de Enero del 2021

Option Explicit

#If Win64 Then

    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

    Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

    Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

#Else

    Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

    Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

    Private Declare Function DrawMenuBar Lib "User32" (ByVal hwnd As Long) As Long

#End If

Private Const GWL_STYLE As Long = -16&

Private Const WS_SYSMENU As Long = &H80000

Public Sub QuitarBotonCerrar(ByRef nForm As String)

    Dim hWnd As Long

    Dim lngWstyle As Long

    hWnd = FindWindow(vbNullString, nForm)

    lngWstyle = GetWindowLong(hWnd, GWL_STYLE)

    SetWindowLong hWnd, GWL_STYLE, lngWstyle And (Not WS_SYSMENU)

    DrawMenuBar hWnd

End Sub

Comentarios sobre la versión: 1.0 (0)

No hay comentarios

Comentar la versión: 1.0


Nombre

Correo (no se visualiza en la web)

Valoración

Comentarios...

CerrarCerrar

Es necesario revisar y aceptar las políticas de privacidad

Acepto las políticas de privacidad

http://lwp-l.com/s6843

Tags:
VBA Excel

Generar numeros aleatorios que sumen una cantidad dada

Eliminar Bordes a los Formularios

Código de Visual Basic para Aplicaciones - Eliminar Botón Cerrar de los formularios

1.0

Comentarios sobre la versión: 1.0 (0)

Comentar la versión: 1.0

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.