drivelistbox,dirlistbox y filelistbox

[coor]

Hola a todos

mi inquietud es la siguiente

Estoy realizando un formulario que tiene un drivelistbox, un dirlistbox y un filelistbox en visual basic 2005. Unido a esto agregue un picturebox. Todo sale bien excepto el final ya que no carga la imagen que yo selecciono en el filelistbox.

Me explico escojo con en drivelistbox una unidad C por ejemplo, automaticamente el dirlitbox me muestra las carpeta de esa particion, escojo una que tenga imagenes y efectivamente me muestra solo los archivos que tienen extenion .bmp, .gif y .jpg porque asi lo defini en el pattern.

El problema esta en que al hacer clic en el nombre de uno de esos archivos deberia mostrarme la imagen en el picturebox que coloque pero no me muestra nada

He intentado con varios codigos pero no he podido quien quiera ayudarme le agradezco enormemente

muchas gracias a todos

[pkj]

Prueba con:

Fichero = Dir1.List(Dir1.ListIndex) & "\" & File1.List(List1.ListIndex)

aunque antes deberias comprobar si el valor de dir1 contiene ya la barra inversa

Código vb:

If Right$(Dir1.List(Dir1.ListIndex), 1) = "\" Then
  Fichero = Dir1.List(Dir1.ListIndex) & File1.List(List1.ListIndex)
Else
  Fichero = Dir1.List(Dir1.ListIndex) & "\" & File1.List(List1.ListIndex)
End If
 

Eso solo ocurre cuando estamos en la raiz del disco, pero ocurre.

Saludos

[coor]

Hola gracias por tu pronta ayuda

al insertar el codigo y hacer cambios no sirve porque al trabajar con visual basic 2005 no acepta el atributo list

[pkj]

No me había fijado en lo de 2005.

[pkj]

He estado revisando unas pruebas que hice en vb2008 y asi parece que me funciona:

Te pongo las 3 subs de eventos de los listbox

Código vb:

Private Sub Dir1_Change(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Dir1.Change
    On Error Resume Next
    File1.Path = Dir1.DirList(Dir1.DirListIndex)
  End Sub
    
  Private Sub Drive1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Drive1.SelectedIndexChanged
    On Error GoTo ErrorDC
    Dir1.Path = VB.Left(Drive1.SelectedItem.ToString, 2) 
    Exit Sub
ErrorDC:
    'MsgBox(Err.Description)
    Err.Clear()
    Drive1.Drive = VB.Left(Dir1.Path, 2)
  End Sub
 
  Private Sub File1_DoubleClick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles File1.DoubleClick
    On Error Resume Next
    If VB.Right(Dir1.DirList(Dir1.DirListIndex), 1) = "\" Then
      Fichero = Dir1.DirList(Dir1.DirListIndex) & File1.FileName
    Else
      Fichero = Dir1.DirList(Dir1.DirListIndex) & "\" & File1.FileName
    End If
  End Sub
 

Prueba a ver si pita.