Ejemplos usando el Api de windows para Visual basic

262 - Cambiar estilo de borde a un ListBox

Ejemplo para usar un listbox con bordes personalizados

Este código usa las funciones del api setWindowLong y GetWindowLong para quitarle el borde del control, y luego se crea un shape para crear el borde personalizado

Vista previa

Controles

Agregar un List1

Código fuente en un Formulario

Option Explicit Private Sub Form_Load() Dim i As Integer ' propiedades del List With List1 For i = 1 To 12 .AddItem MonthName(i) Next .FontName = "Verdana" .ForeColor = &H8000000D .FontSize = 10 End With Me.BackColor = vbWhite ' establece el borde Dot (punteado) de color gris Call Establecer_Borde(List1, Me, &HC0C0C0, vbBSDot, 1) End Sub

Código fuente en un módulo .bas

Option Explicit ' funciones Api ''''''''''''''''' ' recupera el estilo del Listbox Private Declare Function GetWindowLong _ Lib "user32" _ Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long) As Long ' cambia el estilo Private Declare Function SetWindowLong _ Lib "user32" _ Alias "SetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long ' refresca y vuelve a redibujar el control 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 ' constantes para SetWindowPos Private Const SWP_FRAMECHANGED = &H20 Private Const SWP_NOACTIVATE = &H10 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOOWNERZORDER = &H200 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOZORDER = &H4 ' para GetWindowLong - SetWindowLong Private Const GWL_STYLE = (-16) Private Const WS_BORDER = &H800000 Enum tShapeEstilo eCuadrado = 0 eRedondeado = 4 End Enum Public Sub Establecer_Borde( _ lBox As ListBox, _ frmParent As Form, _ Optional Color_Borde As Long = vbBlack, _ Optional Border_style As BorderStyleConstants = vbBSDot, _ Optional Size_Border As Integer = 1, _ Optional estilo_Shape As tShapeEstilo = eCuadrado) Dim lng_Estilo As Long With lBox .Appearance = 0 ' flat lng_Estilo = GetWindowLong(.hwnd, GWL_STYLE) lng_Estilo = lng_Estilo And Not WS_BORDER ' sin borde ' aplica SetWindowLong .hwnd, GWL_STYLE, lng_Estilo ' refresh SetWindowPos .hwnd, 0, 0, 0, 0, 0, _ SWP_FRAMECHANGED Or _ SWP_NOACTIVATE Or _ SWP_NOMOVE Or _ SWP_NOOWNERZORDER Or _ SWP_NOSIZE Or SWP_NOZORDER End With Dim obj_Shape As Shape On Error Resume Next Dim i As Integer ' crea un shape Do Err.Clear i = i + 1 Set obj_Shape = frmParent.Controls.Add("vb.shape", "shape" & i) Loop Until Err.Number = 0 With obj_Shape ' contenedor del shape Set obj_Shape.Container = lBox.Container ' posición If estilo_Shape = eCuadrado Then .Move lBox.Left - 30, lBox.Top - 30, lBox.Width + 60, lBox.Height + 60 ElseIf estilo_Shape = eRedondeado Then .Move lBox.Left - 150, lBox.Top - 150, lBox.Width + 300, lBox.Height + 300 Else Exit Sub End If 'estilo de borde, color y tamaño .BorderStyle = Border_style .BorderWidth = Size_Border .BorderColor = Color_Borde .Shape = estilo_Shape .Visible = True ' lo hace visible .ZOrder 0 End With End Sub

También se puede utilizar este ejemplo con otros controles, como listview, treeview, dirListBox, FileListbox, MonthView

Para usarlo con estos controles, es practicamente igual pero se debe cambiar el parámetro "As Listbox" de la función , por el tipo Object, variant , o el tipo de control a usar ya que si no obviamente dará error de tipo.

Buscar en Recursos vb