Forma de ocultar barra de desplazamiento Horizontal en Listview VB6

[obethermy]

Se pone estos parametros en vista de diseño.
Los puntos importantes son Appearance y FlatScrollBar

Código: (VB) [Seleccionar]

  'With lt_nume
    '.Appearance = ccFlat
    '.View = lvwReport 'vista de reporte
    '.FlatScrollBar = False 'si la barra de desplazamiento aparece plana
    '.FullRowSelect = True 'determina si al seleccionar un elemento en la vista detalle, se selecciona la fila completamente
    '.HideSelection = True 'si el elemento seleccionado se mostrara como seleccionado cuando el listview pierde enfoque
    '.LabelEdit = lvwManual 'si un usuario puede modifical la etiqueta listitem o node
    '.BorderStyle = ccNone 'estilo de bordes
    '.HideColumnHeaders = True
    '.LabelEdit = lvwManual
    '.Font.Name = "Courier New" 'fondo de letra verdana
    '.Font.Size = 10
    '.Font.Bold = True
  'End With


[obethermy]

y el ancho de las columnas de los datos sea igual al ancho(width) del listview -75

[obethermy]

y si tienes campos ocultos(con ancho 0) sumarle 120 por cada uno al ancho del listview

[zxs23]

Buena doc