Ejemplos usando el Api de windows para Visual basic

123 - Eliminar la barra de título de una ventana

Volver al Listado Api - Anterior - Siguiente

Ejemplo que utiliza las funciones Api GetWindowLong, SetWindowLong y SetwindowPos para remover en tiempo de ejecución la barra de título o Titlebar

En el código, hay una función de ajuste llamada Quitar_Barra_Titulo, que tiene dos parámetros, el primero es el Hwnd de la ventana a la cual eliminar o restaurar la barra de título, y el segundo es un valor Boolean que indica si se quita o se agrega la misma.

El estilo pasado a SetWindowLong para quitar o visualizar el barra es la constante WS_CAPTION

Nota: Al quitar la barra, esta obviamente no se puede mover, en ese caso si se desea hacerlo, se puede utilizar el Api sendMessage y ReleaseCapture. En esta misma web hay algunas ejemplos en la sección Api para hacer esto

Colocar un control Ckeck1 y el código fuente en el Form

Option Explicit 'DEclaraciones API 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 SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, _ ByVal y As Long, ByVal cx As Long, ByVal cy As Long, _ ByVal wFlags As Long) As Long 'Constante para usar con GetWindowLong y SetWindowLong Private Const GWL_STYLE = (-16) 'Constante Tipo de estilo, en este caso para quitar la barra Private Const WS_CAPTION = &HC00000 'Constantes para SetWindowPos Private Const SWP_FRAMECHANGED = &H20 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOZORDER = &H4 'Dependiendo del valor del check agrega o remueve el TitleBar Private Sub Check1_Click() Call Quitar_Barra_Titulo(hwnd, Check1.Value = vbChecked) End Sub 'El primer parámetro es el Hwnd de la ventana Private Sub Quitar_Barra_Titulo(ByVal hwnd As Long, _ ByVal Quitar As Boolean) Dim El_Estilo As Long 'Almacena en la variable el estilo actual El_Estilo = GetWindowLong(hwnd, GWL_STYLE) If Quitar Then El_Estilo = El_Estilo Or WS_CAPTION Else El_Estilo = El_Estilo And Not WS_CAPTION End If 'Aplica el estilo SetWindowLong hwnd, GWL_STYLE, El_Estilo SetWindowPos hwnd, 0, 0, 0, 0, 0, _ SWP_FRAMECHANGED Or _ SWP_NOMOVE Or _ SWP_NOSIZE Or _ SWP_NOZORDER End Sub Private Sub Form_Load() Check1.Value = 1 Check1.Caption = " Con Barra de título " End Sub

Enlaces Relacionados

Otro ejemplo similar a este pero para cambiar otros estilos a los Form o ventanas

Buscar en Recursos vb