Ver Mensaje Individual
  #1 (permalink)  
Antiguo 27/09/2008, 16:35
Avatar de seinkraft
seinkraft
 
Fecha de Ingreso: diciembre-2007
Mensajes: 119
Antigüedad: 17 años, 3 meses
Puntos: 1
Pregunta Imagen en ListView

Hola, eh estado mirando algunos codigos para poder ubicar un icono en una de las coumnas pero no lo logro hacer.
El icono deberia ir en donde esta el codigo comentado.

encontre un tutorial pero no puedo fusionarlo con mi codigo.
http://msdn.microsoft.com/en-us/libr...imagelist.aspx

Este es mi codigo actual:
Código PHP:
Public Function FillEditListBox(ByVal queryAs String)

        
lstEditDatabase.Items.Clear()

        
Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
        
OleDbConn.Open()

        
Dim MyDataReader As OleDbDataReader

        Dim MyOleDbCommand 
As OleDbCommand = New OleDbCommand()

        
Dim MyDataSet As DataSet = New DataSet()

        
Dim MyOleDataAdapter As OleDbDataAdapter = New OleDbDataAdapter()

        
MyOleDataAdapter.SelectCommand = New OleDbCommand(SqlstringOleDbConn)

        
MyOleDataAdapter.Fill(MyDataSet)

        
MyOleDbCommand.Connection = (OleDbConn)

        
MyOleDbCommand.CommandText query

        MyDataReader 
MyOleDbCommand.ExecuteReader

        
Do While MyDataReader.Read

            Dim MyItem 
lstEditDatabase.Items.Add(MyDataReader("id".ToString))
            
With MyItem
                
//.SubItems.Add(MyDataReader("ext".ToString))
                
.SubItems.Add(MyDataReader("hash".ToString))
                .
SubItems.Add(MyDataReader("ext".ToString))
                .
SubItems.Add(MyDataReader("author".ToString))
                .
SubItems.Add(MyDataReader("source".ToString))
                .
SubItems.Add(MyDataReader("tags".ToString))
            
End With

        Loop
        MyDataReader
.Close()

        
OleDbConn.Close()
        
OleDbConn.Dispose()

        
lblStatusAction.Text "Database loaded"
        
Return False
    End 
Function 
Ayuda por favor