Quizas esta pregunta sea un poco tonta, pero como hago para que en un PictureBox se vea lo que se seleccione en un listbox? Ya intente con muchas cosas y ninguna funciona... como Picture1.picture = list1 y nada
Aqui le dejo el codigo...
Código:
Option Explicit
Dim ext
Dim Ruta As String
Dim arjpg
Private Sub Command1_Click()
On Error Resume Next
List1.Clear
Ruta = Dir1
' Hacemos q nos muestre todos los archivos
arjpg = Dir(Ruta & "\*.jpg*")
Do While arjpg <> ""
' Obtenemos la extension del archivo
ext = LCase(Right$(arjpg, 3))
Select Case ext
Case "jpg"
List1.AddItem arjpg
Case "bmp"
List1.AddItem arjpg
Case "gif"
List1.AddItem arjpg
End Select
arjpg = Dir
Loop
End Sub
Private Sub Form_Load()
List1.Clear
End Sub