Ejemplos usando el Api de windows para Visual basic

118 - Ajustar el ancho de la lista desplegable de un combo

Volver al Listado Api - Anterior - Siguiente

Ejemplo que muestra como hacer que la lista desplegable de un control ComboBox se ajuste al ancho del item o elemento mas largo

Este ejemplo puede ser útil cuando de desea visualizar Items o elementos que son muy largos.

vista del control Combobox

vista del formulario con el ejemplo

En el código se utiliza la función SendMessage con el mensaje o constante llamado CB_SETDROPPEDWIDTH

Primero se recorren los elementos del combo, y con la función TextWidth, se obtiene el ancho mas grande en pixeles del elemento de la lista. Luego se pasa ese valor en el tercer parámetro de la función Api

Todo esto está en otra rutina llamada Establecer_Ancho, a la cual se le debe enviar como parámetro, el control Combo y el formulario que lo contiene, por ejemplo

call Establecer_Ancho (Combo1, Me)

Código fuente en el Formulario

Private Sub Form_Load() With Combo1 .Width = 1000 .AddItem "Mariana" .AddItem "Pedro" .AddItem "Diego Armando Maradona" End With ' se le pasa el combobox y el formulario como parámetro Establecer_Ancho Combo1, Me End Sub

código fuente en un módulo bas:

Option Explicit ' Declaración APi Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Long) As Long 'Mensaje - Constante para establecer el ancho Private Const CB_SETDROPPEDWIDTH = &H160 Sub Establecer_Ancho(El_Combo As Object, EL_Form As Form) Dim k As Integer, Escala As Byte ' Para guardar el item mas ancho del combo Dim Maximo As Long 'Guarda la escala del form para luego reestablecerla Escala = EL_Form.ScaleMode 'Cambia la escala EL_Form.ScaleMode = vbPixels 'Recorre los elementos para obtener el mas ancho For k = 0 To El_Combo.ListCount - 1 If Maximo < EL_Form.TextWidth(El_Combo.List(k)) Then Maximo = EL_Form.TextWidth(El_Combo.List(k)) End If Next 'Aplica el cambio pasandole el hwnd del combo y el valor SendMessage El_Combo.hwnd, CB_SETDROPPEDWIDTH, Maximo + 12, 0 'Reestablece la escala del form EL_Form.ScaleMode = Escala End Sub

Relacionados

Cambiar alto de la lista desplegable con la función MoveWindow

Buscar en Recursos vb