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

Imágen de perfil
Val: 40
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Eliminar Botón Cerrar de los formulariosgráfica de visualizaciones


Visual Basic para Aplicaciones

Publicado el 24 de Enero del 2021 por Fernandoml (3 códigos)
1.088 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:

1
2
3
Private Sub UserForm_Initialize()
    mdlPrograma.QuitarBotonCerrar (Me.Caption)
End Sub

Espero os sirva a todos.

1.0

Publicado el 24 de Enero del 2021gráfica de visualizaciones de la versión: 1.0
1.089 visualizaciones desde el 24 de Enero del 2021
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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
CerrarCerrar
Cerrar

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

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s6843