Hola...
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...
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
Utiliza el metodo Print del PictureBox... saludos
:huh: Podras decirme de que manera puedo hacerlo? Disculpa la ignorancia -.-
'Añadir PictureBox (Picture1)
'Añadir ListBox (List1)
'Para poder dibujar en el PictureBox
Picture1.AutoRedraw = True
'Agrego elementos al ListBox
List1.AddItem "Index Uno"
List1.AddItem "Index Dos"
List1.AddItem "Index Tres"
'Imprimo el Index 1 del ListBox en el PictureBox
Picture1.Print "El elemento 1 es: "; List1.List(1)
'Producirá la salida : El elemento 1 es: Index Dos... debido a que los indices empiezan en cero
'NOTA: El punto y coma puede reemplazarse por el signo &