Los foros del Guille

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 

MKN Reservas (Maro - Kayak Nerja)


Kayak Maro - Rutas y alquiler de kayak y tabla
Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu inter�s (algunos de los avisos publicados)

01/feb./2019

Como te avisé, desde el 1 de febrero de 2019

No se podrán escribir nuevos mensajes ni editar los existentes

En breve solo se mostrarán los mensajes con respuestas.
Posiblemente para el 1 de marzo, solamente se mostrarán los que tengan respuestas y estén marcados como respuesta válida.

  Foro: .NET VB Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 56028 - ListView1 SubItem BackColor desde ListView1 SubItem Text
IDAsuntoFechaNick 
56028 ListView1 SubItem BackColor desde ListView1 SubItem Text14/12/11 00:170riundo   
Hola.

Tengo el siguiente codigo que lo que hace es, con un Button, guardar los datos de un ListView en un archivo XML y, con otro Button, recupera dichos datos en el ListView.

Imports System.Xml

Public Class Form1
#Region "XML"
    Sub Me_Loads() Handles Me.Load
        With ListView1
            .GridLines = True
            .View = View.Details
            '.Focus()
            .Columns.Add("NOMBRE", -2, HorizontalAlignment.Left)
            .Columns.Add("APELLIDO", -2, HorizontalAlignment.Left)
            .Columns.Add("EDAD", -2, HorizontalAlignment.Left)
            .Columns.Add("DIRECCION", -2, HorizontalAlignment.Left)
            .Columns.Add("PAIS", -2, HorizontalAlignment.Left)
            .Columns.Add("CIUDAD", -2, HorizontalAlignment.Left)
            .Columns.Add("TELEFONO", -2, HorizontalAlignment.Left)
        End With
    End Sub

    Private Sub BtGuardar_Click() Handles BtGuardar.Click
        Dim x As New XmlTextWriter("ListaDeAmigos.xml", System.Text.Encoding.ASCII)
        Dim i As Integer
        x.WriteStartDocument()
        x.WriteStartElement("Amigos")
        i = ListView1.Items.Count
        For Each lvi As ListViewItem In ListView1.Items
            x.WriteStartElement("Lista")
            i = ListView1.Items.Count = i - 1
            x.WriteElementString("Nombre", lvi.Text)
            x.WriteElementString("Apellido", lvi.SubItems(1).Text)
            x.WriteElementString("Edad", lvi.SubItems(4).Text)
            x.WriteElementString("Direccion", lvi.SubItems(3).Text)
            x.WriteElementString("Pais", lvi.SubItems(4).Text)
            x.WriteElementString("Ciudad", lvi.SubItems(5).Text)
            x.WriteElementString("Telefono", lvi.SubItems(6).Text)
            x.WriteEndElement()
        Next
        x.WriteEndDocument()
        x.Close()
    End Sub

    Sub BtCargar_Click() Handles BtCargar.Click
        Try
            ListView1.Items.Clear()
            Dim XMLDoc As New Xml.XmlDocument
            XMLDoc.Load("ListaDeAmigos.xml")
            For Each node
                 As Xml.XmlNode In
                 XMLDoc.SelectNodes("Amigos/Lista")
                Dim lvItem As ListViewItem
                lvItem = ListView1.Items.Add(node.Item("Nombre").InnerText)
                lvItem.SubItems.Add(node.Item("Apellido").InnerText)
                lvItem.SubItems.Add(node.Item("Edad").InnerText)
                lvItem.SubItems.Add(node.Item("Direccion").InnerText)
                lvItem.SubItems.Add(node.Item("Pais").InnerText)
                lvItem.SubItems.Add(node.Item("Ciudad").InnerText)
                lvItem.SubItems.Add(node.Item("Telefono").InnerText)
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
#End Region
End Class

Mi pregunta es: Como puedo al cargar los datos en el ListView, que el BackColor del SubItem "Edad" de cada Item sea del color especificado con codigo, Ej.#FF00FF, en otro SubItem del mismo ListView?

Muchas gracias.

Att.
[Editado: 0riundo, 14/12/2011 00:24:20]
IDAsuntoFechaNick 
56031 Re: ListView1 SubItem BackColor desde ListView1 SubItem Text (Resp: 56028)14/12/11 16:000riundo   
Gracias. Ya lo he arrelado.

Sub BtCargar_Click() Handles BtCargar.Click
    Try
        ListView1.Items.Clear()
        Dim XMLDoc As New Xml.XmlDocument
        XMLDoc.Load("ListaDeAmigos.xml")
        For Each node
             As Xml.XmlNode In
             XMLDoc.SelectNodes("Amigos/Lista")
            Dim lvItem As ListViewItem
            lvItem = ListView1.Items.Add(node.Item("Nombre").InnerText)
            lvItem.SubItems.Add(node.Item("Apellido").InnerText)
            lvItem.SubItems.Add(node.Item("Edad").InnerText)
            lvItem.SubItems.Add(node.Item("Direccion").InnerText)
            lvItem.SubItems.Add(node.Item("Pais").InnerText)
            lvItem.SubItems.Add(node.Item("Ciudad").InnerText)
            lvItem.SubItems.Add(node.Item("Telefono").InnerText)

            lvItem.UseItemstyleForSubItems = False 'Nueva linea
lvItem.SubItems(2).BackColor = System.Drawing.ColorTranslator.FromHtml(TextBox1.Text)'Nueva linea
        Next
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

[Editado: 0riundo, 14/12/2011 16:01:37]
[0riundo, 14/12/2011 16:05:19]


Si esta respuesta resuelve tu duda, por favor pulsa en la de este mensaje. Gracias.

 
(c) Guillermo 'guille' Som, 2005-2026  - foros.elGuille v1.0.6.3 (01/Jun/2021 12:45 GMT +2)  - (ASP.NET v4.0.30319.42000)
 
La hora GMT del servidor es: 12/06/2026 07:57:11 GMT