Generar Thumnails con PaintPicture

El PaintPicture es una funcionalidad “escondida” del Formulario, Picture o Printer, tiene mucha potencia y rapidez. Incluso se puede deformar o invertir la imagen cambiando las coordenadas finales de tamaño.

Private Sub Command1_Click()
    Dim I As Integer, J As Integer
    ' Esta rutina no esta depurada, sólo es una idea para realizar un Thumnail, y esta concebida 
    ' para demostrar las capacidades del PaintPicture
    ' Se toma como referencia la imagen del Picture1 para repetir esa misma imagen en le Picture2...
    
    ' Borramos el contenido anterior para volver a regenerar el Thumnail
    Picture2.Cls

    ' Realizamos un bucle anidado, para generar las distintas filas/columnas del Thumnail
    For I = 1 To 5
        For J = 1 To 7
            Picture2.PaintPicture Picture1.Picture, (90 * (J - 1)), (120 * (I - 1))
        Next J
    Next I
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s