Foros del Web » Programación para mayores de 30 ;) » .NET »

Ajustar columna de listview

Estas en el tema de Ajustar columna de listview en el foro de .NET en Foros del Web. Buenas tardes Sres. expertos del foro necesito, que me ayuden con este codigo para ajustar o redimensionar las columnas de este listview. de atemano muchas ...
  #1 (permalink)  
Antiguo 15/07/2012, 17:43
 
Fecha de Ingreso: julio-2012
Ubicación: panama
Mensajes: 19
Antigüedad: 8 años, 8 meses
Puntos: 0
Ajustar columna de listview

Buenas tardes Sres. expertos del foro necesito, que me ayuden con este codigo para ajustar o redimensionar las columnas de este listview. de atemano muchas gracias, aqui el codigo.

Option Explicit On

Imports System.Array
Imports System.IO
Imports System.Data.OleDb

Public Class Form1
Private Sub Button1_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
' inicializar el array para los encabezados de columna
Dim acol() As String = {"Plus", "Descripcion", "Precio"}


' cargar el archivo csv en el ListView
'( control listview, path csv, vector, delimitador)
Cargar_Csv(lv, "D:\Archivos de programa\plus\scaleplu.txt", acol, "'")

End Sub

Private Sub Cargar_Csv( _
ByVal lv As ListView, _
ByVal sPathCsv As String, _
ByVal aColumnHeader As String(), _
ByVal sDelimitador As String)
Try

' verificar que la ruta sea correcta
If File.Exists(sPathCsv) = False Then
MsgBox("No se encontró el archivo: " & sPathCsv)
Exit Sub
End If

With lv

.Columns.Clear() ' eliminar todos los encabezados
.Items.Clear() ' eliminar todos los items cargados
' Create columns for the items and subitems.
' Width of -2 indicates auto-size.

' recorre el vector y añade las cabeceras
For i As Integer = 0 To UBound(aColumnHeader)
.Columns.Add(aColumnHeader(i)).ToString()
Next
.View = View.Details ' vista detalle

' Abre el archivo para leer cada línea
Dim sr As New StreamReader(sPathCsv)
Dim aDatos() As String ' vector para el cvs

' recorrer todas las líneas hasta el final del archivo
Do While (sr.Peek >= 0)
' leer la línea y separar los datos con split
aDatos = sr.ReadLine.Split(sDelimitador)

' listview: Añadir los items y SubItems
''''''''''''''''''''''''''''''''''''''''''''''''
Dim Item As New ListViewItem(aDatos(5).ToString)
For i As Integer = 1 To UBound(aDatos)
With Item
.SubItems.Add(aDatos(7).ToString)
.SubItems.Add(aDatos(9).ToString)
End With
Next
.Items.Add(Item)
Loop
sr.Close() ' cierra el streamReader
End With
' error
Catch ex As Exception
MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
End Try

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
lv.Items.Clear()
'Usando el método Clear para borrar el cuadro de lista

End Sub

Private Sub Form1_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "cargar listview"
End Sub


End Class
  #2 (permalink)  
Antiguo 09/08/2012, 17:07
 
Fecha de Ingreso: julio-2012
Ubicación: panama
Mensajes: 19
Antigüedad: 8 años, 8 meses
Puntos: 0
Respuesta: Ajustar columna de listview

Buenas tardes compañeros me auto respondo. he conseguido hacer lo siguiente ajustar el ancho de las columnas pero es igual para todas.

.Columns.Clear() ' eliminar todos los encabezados
.Items.Clear() ' eliminar todos los items cargados
' Create columns for the items and subitems.
' Width of -2 indicates auto-size.

' recorre el vector y añade las cabeceras
For i As Integer = 0 To UBound(aColumnHeader)
.Columns.Add(aColumnHeader(i)).Width = 166
Next

pero me gustaria personalizar cada ancho de columna, el archivo que pretendo visualizar esta compuesto de la siguiente forma.

'0001' ' pintura galon' '00750' '00015' 'articulo importado'

Agradesco cualquier apoyo o sugerencia de su parte


Saludos,

Etiquetas: columna, listview
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 20:05.