Pregunta tonta...

[sp26]

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...

Código [Seleccionar] Expandir

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

[Syphroot]

Utiliza el metodo Print del PictureBox... saludos

[sp26]

  Podras decirme de que manera puedo hacerlo?  Disculpa la ignorancia -.-

[Syphroot]

Código [Seleccionar] Expandir

'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 &