none
Ayuda problema como imagen en dagridview RRS feed

  • Pregunta

  • Hola a todos tengo problemas en una varible que lee correctamente pero no introduce en el datagrid

    ************* este es el codigo ***************

    If Dir(lb1text & "\" & archivos.ToString & "\*.*") = "" Then

    MsgBox("no existe ningun archivo en esa carpeta de la cerveza " & archivos.ToString)
    ' METE EL NOMBRE DE LA CERVE AUNQUE EL DIRECTORIO VACIO
    Me.DataGridViewX1.Rows.Add(archivos.ToString)
    ' METE EL NOMBRE DE LA CERVE AUNQUE EL DIRECTORIO VACIO
    Else
    Dim Fecha_ela As String = My.Computer.FileSystem.ReadAllText(lb1text & "\" & archivos.ToString & "\Fecha Elaboracion.txt")
    Dim estilo As String = My.Computer.FileSystem.ReadAllText(lb1text & "\" & archivos.ToString & "\Estilo.txt")
    Dim tipo As String = My.Computer.FileSystem.ReadAllText(lb1text & "\" & archivos.ToString & "\tipo.txt")
    Dim DensidadInicial As String = My.Computer.FileSystem.ReadAllText(lb1text & "\" & archivos.ToString & "\Densidad Inicial.txt")
    Dim DensidadFinal As String = My.Computer.FileSystem.ReadAllText(lb1text & "\" & archivos.ToString & "\Densidad Final.txt")
    Dim Atenuacion As String = My.Computer.FileSystem.ReadAllText(lb1text & "\" & archivos.ToString & "\Atenuacion.txt")
    Dim Graduacion As String = My.Computer.FileSystem.ReadAllText(lb1text & "\" & archivos.ToString & "\Graduacion.txt")

    *********** aqui lee el numero que tiene que buscar en imagelist1 y agregar al datagrid ********

    Dim color As String = My.Computer.FileSystem.ReadAllText(lb1text & "\" & archivos.ToString & "\Color.txt")

      Me.DataGridViewX1.Rows.Add(archivos.ToString, Fecha_ela, estilo, tipo, DensidadInicial, DensidadFinal, Atenuacion, Graduacion, ImageList1.Images(color), "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")

    *********** aqui puesto con varible que es color no funciona me deja la celda de la image con la x en rojo, pero si le pongo envez la variable el numero directo en este caso el 13 me pone la imagen pero a todo los registros 

    ******************
    End If

    Next

    GRACIAS

    martes, 3 de septiembre de 2013 13:59

Respuestas

  • ya esta solucionado e cambido 

    Dim color As String = My.Computer.FileSystem.ReadAllText(lb1text & "\" & archivos.ToString & "\Color.txt")

    por 

    Dim color2 As String = My.Computer.FileSystem.ReadAllText(lb1text & "\" & archivos.ToString & "\Color.txt")

    no se por que pero funciono


    • Marcado como respuesta JETET martes, 3 de septiembre de 2013 14:33
    martes, 3 de septiembre de 2013 14:33