Código de Visual Basic para Aplicaciones - Eliminar Bordes a los Formularios

Pos: 21

Val: 40

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

Eliminar Bordes a los Formularios

Visual Basic para Aplicaciones

(1)

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

4.154 visualizaciones desde el 24 de Enero del 2021

Creamos un módulo en nuestro proyecto de VBA y pegamos este código:

Funciona tanto para el Office 32 bits y 64 bits.

Para usar el código, dentro de nuestro formulario lo haremos de la siguiente manera.

Private Sub UserForm_Initialize()

    mdlPrograma.QuitarBordes (Me.Caption)

End Sub

mdlPrograma es el nombre del módulo que he creado.

Espero os sirva a todos

1.0
(1)

Publicado el 24 de Enero del 2021

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

4.155 visualizaciones desde el 24 de Enero del 2021

#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

Public Sub QuitarBordes(ByRef nForm As String)

    Dim lStyle As Long

    Dim hMenu As Long

    Dim mhWndForm As Long

    mhWndForm = FindWindow("ThunderDFrame", nForm)

    lStyle = GetWindowLong(mhWndForm, -16)

    lStyle = lStyle And Not &HC00000

    SetWindowLong mhWndForm, -16, lStyle

    DrawMenuBar mhWndForm

End Sub

Comentarios sobre la versión: 1.0 (1)

victor manuel

16 de Agosto del 2021

Hola amigo, buen aporte.

al implementarlo me arroja error "No se ha definido Sub o Funcion"

subo la imagen:

https://www.imagenes-temporales.com/subidas/ver/KOoD8Y/

Gracias, saludos

Responder

Comentar la versión: 1.0

http://lwp-l.com/s6842

Tags:
VBA Excel

Eliminar Botón Cerrar de los formularios

Acceder desde Excel a los registros de una tabla de una base de datos en un servidor remoto de MySQL

Código de Visual Basic para Aplicaciones - Eliminar Bordes a los Formularios

1.0(1)

Comentarios sobre la versión: 1.0 (1)

Comentar la versión: 1.0

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

1.0
(1)