Ejemplos usando el Api de windows para Visual basic

239 - Aplicar borde Flat a los controles

Contenido:

Modificar el borde a controles varios
Modificar borde a un ToolBar
Relacionados

Modificar el borde a controles varios

Ejemplo que cambia el estilo de los controles mediante el Api para poder usar controles estilo Flat

Este ejemplo usa la función SetWindowLong para cambiar el estilo de un control mediante las constantes de estilo WS_EX_CLIENTEDGE y WS_EX_STATICEDGE.

Ejemplo

vista del formulario con algunos controles con el borde flat

En un módulo se declara una función , en este caso Sub Flat, a la cual hay que pasarle el Hwnd del control, por ejemplo para un Command

Call Flat(Command1.Hwnd)

El siguiente código aplica el borde a todos los controles del formulario que son de tipo : CommandButton o botones , TextBox, PictureBox, FileListBox, DirListBox, ListBox

Código fuente en el formulario ( agregar algunos controles )

Option Explicit Private Sub Form_Load() Dim ctrl As Control ' recorre los controles del formulario For Each ctrl In Me.Controls ' Verifica la clase If TypeOf ctrl Is TextBox Or _ TypeOf ctrl Is PictureBox Or _ TypeOf ctrl Is CommandButton Or _ TypeOf ctrl Is FileListBox Or _ TypeOf ctrl Is DirListBox Or _ TypeOf ctrl Is ListBox Then ' le enviá el Hwnd Call Flat(ctrl.hwnd) End If Next End Sub

Código fuente en un módulo de código

Option Explicit ' Declaraciones del 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 ' Declaraciones de constantes para el api SetWindowPos ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Const SWP_NOMOVE = &H2 Const SWP_NOSIZE = &H1 ' Constantes para SetWindowLong y GetWindowLong Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_CLIENTEDGE = &H200 Private Const WS_EX_STATICEDGE = &H20000 ' Constantes para SetWindowPos Private Const SWP_FRAMECHANGED = &H20 Private Const SWP_NOACTIVATE = &H10 Private Const SWP_NOZORDER = &H4 Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED Private Const SWP_FLAGS = SWP_NOZORDER Or _ SWP_NOSIZE Or _ SWP_NOMOVE Or _ SWP_DRAWFRAME ' Rutina que cambia el borde a Flat. Recibe el Hwnd del control '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub Flat(ByVal hwnd As Long) Dim estilo As Long ' estilo actual estilo = GetWindowLong(hwnd, GWL_EXSTYLE) ' modifica estilo = estilo And Not WS_EX_CLIENTEDGE Or WS_EX_STATICEDGE ' aplica los cambios al control SetWindowLong hwnd, GWL_EXSTYLE, estilo ' esto es necesesario para refrescar los cambios SetWindowPos hwnd, 0, 0, 0, 0, 0, _ SWP_NOACTIVATE Or SWP_NOZORDER Or SWP_FRAMECHANGED _ Or SWP_NOSIZE Or SWP_NOMOVE End Sub

Aplicar borde Flat a un ToolBar de versiones anteriores

Si bien el control ToolBar ( la versión 6 ) de vb posee el estilo Flat ( propiedad Style ), la versión 5 o anteriores del Microsoft Windows Common Controls no la posee. Y puede que en algún caso necesitemos utilizar dicha versión , por ejemplo cuando se quiere utilizar la aplicación con un archivo Manifest para tomar la apriencia de windows xp a los demás controles.

Una forma mediante la función SetWindowLong para cambiar el estilo

' dclaraciones del Api '''''''''''''''''''''''''''''''''''''''''''''''''''' Private Declare Function GetWindow Lib "user32" ( _ ByVal hwnd As Long, _ ByVal wCmd As Long) 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 ' constantes '''''''''''''''''''''''''''''''''''''''''''''''''''' Private Const GW_CHILD = 5 Private Const GWL_STYLE = (-16) Private Const TB_STYLE_FLAT = &H848 Private Sub Command1_Click() ' le pasa el control Toolbar como parámetro Call Flat_ToolBar(Toolbar1) End Sub Private Sub Flat_ToolBar(ToolBar As Object) Dim handle As Long ' hwnd de la barra handle = GetWindow(Toolbar1.hwnd, GW_CHILD) ' cambia el estilo por Flat ret = SetWindowLong(handle, _ GWL_STYLE, _ GetWindowLong(handle, GWL_STYLE) Or TB_STYLE_FLAT) ' refresca el control ToolBar.Refresh End Sub

Recursos relacionados

Listbox con borde personalizado

Buscar en Recursos vb