Imprimir Página - Pregunta tonta...

Título: Pregunta tonta...
Publicado por: sp26 en 23 Diciembre 2006, 00:58 am

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:

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

Título: Re: Pregunta tonta...
Publicado por: Syphroot en 23 Diciembre 2006, 03:54 am

Utiliza el metodo Print del PictureBox... saludos

Título: Re: Pregunta tonta...
Publicado por: sp26 en 23 Diciembre 2006, 04:28 am

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

Título: Re: Pregunta tonta...
Publicado por: Syphroot en 23 Diciembre 2006, 07:30 am

Código:

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: sp26 en 23 Diciembre 2006, 00:58 am