Sección de códigos , trucos y ejemplos para visual basic

338 - Hacer lista desplegable en combo usando un ListView

Ejemplo para hacer que un combo permita desplegar un control Listview en forma de reporte

Este ejemplo puede ser útil si se quiere ver un listado de datos en forma de reporte y con varias columnas, y que la misma no ocupe espacio

Si bien el ejemplo se puede depurar y agregar funcionalidades, sirve para sacar una idea

El combobox, al hacer clic en el botón de la lista desplegable, ejecuta el evento DropDown para mostrar el control Listview, posicionandolo en la posición de la lista desplegable

Vista del formulario

vista del formulario para usar el Listview como lista desplegable en el combobox

El ejemplo usa un módulo de clase. Este módulo tiene un método y tres propiedades:

Método Init : este método es el que inicia , y se debe pasar como parámetro los dos controles, es decir el control combobox a usar y el control Listview , por ejemplo

Call Obj.Init (UnListview, UnCombo)

Propiedad AutoSizeColumnHeaders : Esta propiedad tiene tres valores y es para auto ajustar los encabezados de columna: Si se pasa el valor " AJUSTAR_POR_COLUMNA ", se ajusta el Column por el caption del encabezado. Si se pasa el valor " AJUSTAR_POR_ITEM " la columna se autoajusta de acuerdo al elemento mas largo de la columna . El valor NO_AJUSTAR, no hace nada y lo deja como está, es decir sin ajustar

Propiedades WidthLista y HeightLista , se usan para establecer el alto y el ancho de la lista desplegable, es decir del ListView. Si no se especifican estos valores, por defecto se utiliza como ancho, el ancho que tenga el combobox, y como alto el valor 250.

Nota: Ambos valores son en Pixels

Controles para el ejemplo

Añadir al proyecto un módulo de clase llamado Class1

En el formulario agregar un Listview y un Combo. Al combo colocarle la propiedad Style en DropDown List - 2

Primero se lista el código del form, luego el código fuente del Class1

Código en Form1

Option Explicit Dim ComboListview As Class1 Private Sub Form_Load() Dim Item As ListItem With ListView1 ' Agrega tres columnas .ColumnHeaders.Add , , "Apellido" .ColumnHeaders.Add , , "Nombre" .ColumnHeaders.Add , , "Id de cliente" ' Agrega algunos items y SubItems al Listview Set Item = ListView1.ListItems.Add(, , "Rodriguez") Item.SubItems(1) = "Fernanda" Item.SubItems(2) = "258" Set Item = ListView1.ListItems.Add(, , "Chavez") Item.SubItems(1) = "Maria" Item.SubItems(2) = "658" Set Item = ListView1.ListItems.Add(, , "Acosta") Item.SubItems(1) = "Hector" Item.SubItems(2) = "098" Set Item = ListView1.ListItems.Add(, , "Marino") Item.SubItems(1) = "Pedro" Item.SubItems(2) = "158" Set Item = ListView1.ListItems.Add(, , "Gonsales") Item.SubItems(1) = "Carlos" Item.SubItems(2) = "168" Set Item = ListView1.ListItems.Add(, , "Rosales") Item.SubItems(1) = "Juan" Item.SubItems(2) = "348" Dim i As Integer ' Esto le cambia el color al texto del item For i = 1 To ListView1.ListItems.Count ListView1.ListItems(i).ForeColor = vbBlue Next End With ' Nueva instancia de la clase Set ComboListview = New Class1 With ComboListview ' AutoAjusta la columna .AutoSizeColumnHeaders = AJUSTAR_POR_COLUMNA ' Opcional para el ancho de la lista ''''''''''''''''''''''''''''''''''''''' '.Height_Lista = 500 '.WidthLista = 500 ' Le pasa los controles ( el combo colocarlo con el Style en 2) Call .Init(Combo1, ListView1) End With End Sub Private Sub Form_Unload(Cancel As Integer) ' descarga la variable If Not ComboListview Is Nothing Then Set ComboListview = Nothing End If End Sub

Código fuente en el módulo de clase Class1

Option Explicit ' Declaraciones del api y constantes ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'constantes para usar con SendMessage para ajustar los encabezados de columna Private Const LVM_FIRST As Long = &H1000 Private Const LVM_SETCOLUMNWIDTH As Long = LVM_FIRST + 30 ' Función Api SendMessage para hacer el AutoSize de los Columnheaders Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Declare Function GetWindowRect Lib "user32" ( _ ByVal hwnd As Long, _ lpRect As RECT) As Long Private Declare Function GetWindowPlacement Lib "user32" ( _ ByVal hwnd As Long, _ lpwndpl As WINDOWPLACEMENT) As Long Private Type POINTAPI x As Long y As Long End Type ' Para posicionar el ListView Private Declare Function MoveWindow Lib "user32" ( _ ByVal hwnd As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal bRepaint As Long) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type WINDOWPLACEMENT Length As Long flags As Long showCmd As Long ptMinPosition As POINTAPI ptMaxPosition As POINTAPI rcNormalPosition As RECT End Type ' Enumeración para el tipo de ajuste de los column del lv Enum Ajustar_ColumnHeader NO_AJUSTAR = 0 AJUSTAR_POR_ITEM = -1 AJUSTAR_POR_COLUMNA = -2 End Enum ' Variables privadas de objeto para el Listview, el form y el combo _ y declaradas con WithEvents para interceptar los eventos Private WithEvents m_Listview As ListView Private WithEvents m_Formulario As Form Private WithEvents m_Combobox As ComboBox Private m_AutoSizeColumnHeaders As Ajustar_ColumnHeader Public Height_Lista As Long Public WidthLista As Long ' Sub que inicia ( recibe como argumeto el combo y el listview ) '********************************************************************* Sub Init(El_ComboBox As ComboBox, El_ListView As ListView) ' verifica que el objeto no se haya instanciado If m_Combobox Is Nothing Then ' Instancia Set m_Combobox = El_ComboBox Set m_Listview = El_ListView ' para hacer referencia al form Set m_Formulario = El_ListView.Parent Else MsgBox "Ta se ejecutó el método Init ", vbInformation Exit Sub End If ' alto de la lista If Height_Lista = 0 Then Height_Lista = 250 End If ' Propiedades del Listview With m_Listview .Visible = False .View = lvwReport .FullRowSelect = True .Appearance = ccFlat .TabStop = False End With ' Autosize de los encabezados del lv Call Ajustar_Ancho_Columna(m_Listview, m_AutoSizeColumnHeaders) ' Selecciona el primer elemento para mostrarlo en el combo If m_Listview.ListItems.Count <> 0 Then m_Combobox.AddItem m_Listview.ListItems(1).Text m_Combobox.ListIndex = 0 End If End Sub Private Sub Class_Initialize() m_AutoSizeColumnHeaders = AJUSTAR_POR_COLUMNA End Sub Private Sub m_Combobox_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13: m_Combobox_DropDown 'Case vbKeyEscape: End Select End Sub ' cuando se hace clic en el formulario _ se oculta la lista y se pasa el foco al combo Private Sub m_Formulario_Click() If m_Listview.Visible Then m_Listview.Visible = False m_Combobox.SetFocus End If End Sub ' evento al hacer clic en el item del lv Private Sub m_ListView_itemclick(ByVal Item As MSComctlLib.ListItem) m_Combobox.Clear m_Combobox.AddItem Item.Text m_Combobox.ListIndex = 0 End Sub Private Sub m_ComboBox_GostFocus() m_Listview.Visible = False End Sub Private Sub m_ComboBox_LostFocus() If Screen.ActiveControl.Name <> m_Listview.Name Then m_Listview.Visible = False End If End Sub Private Sub m_Listview_KeyPress(KeyAscii As Integer) Select Case KeyAscii ' despliega la lista al preeionar enter Case 13 m_Listview.Visible = False m_Combobox.SetFocus ' oculta el listview al presionar la tecla escape Case vbKeyEscape m_Listview.Visible = False m_Combobox.SetFocus End Select End Sub Private Sub m_Listview_LostFocus() m_Listview.Visible = False m_Combobox.SetFocus End Sub ' al hacer clic en la lista desplegable ''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub m_Combobox_DropDown() Static flag As Boolean flag = Not flag 'este bloque solo se ejuta cuando se despliega, no cuando se oculta If flag Then Dim wp As WINDOWPLACEMENT Dim x As Long Dim y As Long Dim AnchoLista As Single Dim obj As Object Set obj = m_Combobox.Container ' esto es por si el lv está en varios contenedores ( frames picture ) While obj.hwnd <> 0 And obj.Name <> m_Formulario.Name GetWindowPlacement obj.hwnd, wp x = x + wp.rcNormalPosition.Left y = y + wp.rcNormalPosition.Top Set obj = obj.Container Wend GetWindowPlacement m_Combobox.hwnd, wp ' posición x e y del combo en pixels para luego posicionar el lv x = x + wp.rcNormalPosition.Left y = y + wp.rcNormalPosition.Top + (wp.rcNormalPosition.Bottom - _ wp.rcNormalPosition.Top) ' ancho del combo en pixels If WidthLista = 0 Then AnchoLista = wp.rcNormalPosition.Right - wp.rcNormalPosition.Left Else AnchoLista = WidthLista End If ' posiciona el listview MoveWindow m_Listview.hwnd, x, y, _ AnchoLista, _ Height_Lista, 1 ' le pone el foco, lo hace visible y lo trae al frente m_Listview.Visible = True m_Listview.SetFocus m_Listview.ZOrder 0 ' cuando no hay items, oculta los columnheaders ( opcional ) If m_Listview.ListItems.Count = 0 And m_Listview.View = lvwReport Then m_Listview.HideColumnHeaders = True Else m_Listview.HideColumnHeaders = False End If flag = Not flag Else ' oculta el listview cuando se cierra m_Listview.Visible = False End If End Sub Private Sub m_Listview_MouseUp(Button As Integer, Shift As Integer, _ x As Single, y As Single) m_Combobox.SetFocus m_Listview.Visible = False End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Ajutar encabezados de columna ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Ajustar_Ancho_Columna(El_ListView As ListView, _ ByVal Modo_De_Ajuste As Ajustar_ColumnHeader) Dim La_Columna As Long If Modo_De_Ajuste = NO_AJUSTAR Then Exit Sub End If With El_ListView 'Recorre los encabezados de columna For La_Columna = 1 To .ColumnHeaders.Count Call ListView_AutoSize(El_ListView, La_Columna, Modo_De_Ajuste) Next End With End Sub ' Rutina que usa la sub Ajustar_Ancho_Columna Private Sub ListView_AutoSize(El_ListView As ListView, _ ByVal La_Columna As Long, _ ByVal Modo_De_Ajuste As Long) With El_ListView 'si no está el ListView en modo reporte sale If .View = lvwReport Then 'Si hay columnas If La_Columna >= 1 And La_Columna <= .ColumnHeaders.Count Then 'Establece el Autosize Call SendMessage(.hwnd, LVM_SETCOLUMNWIDTH, _ La_Columna - 1, ByVal Modo_De_Ajuste) End If End If End With End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Propiedades ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Property Get AutoSizeColumnHeaders() As Ajustar_ColumnHeader AutoSizeColumnHeaders = m_AutoSizeColumnHeaders End Property Property Let AutoSizeColumnHeaders(value As Ajustar_ColumnHeader) ' Asigna el valor a la propiedad m_AutoSizeColumnHeaders = value ' Verifica que el listview se haya referenciado If Not m_Listview Is Nothing Then Call Ajustar_Ancho_Columna(m_Listview, value) End If End Property

Recursos vb6

Recursos vb.net

DataGridview desplegable

Buscar en Recursos vb