Empalme y salida Vb

Agregue dos controles de cuadro de imagen, Imagen 1 e Imagen 2, suponiendo que las imágenes estén en formato jpg.

Modo de escala = 3

Imagen 1. AutoSize = Verdadero

Imagen 1. AutoRedraw = Verdadero

Imagen 2. AutoRedraw = Verdadero

Imagen 1. ModoEscala = 3

Imagen 2. ModoEscala = 3

Imagen 1. BorderStyle = 0

Imagen 2. BorderStyle = 0

a = "43566 "

Para i = 1 a Len(a)

Imagen 1. Imagen = LoadPicture(Mid(a, I, 1) + ".jpg")

Si i = 1, entonces

Imagen 2. altura = Imagen1. Altura

Foto 2. ancho = imagen1. Ancho

Otro

Si imagen1. altura y gtimagen2. Altura luego imagen 2. altura = Imagen1. Altura

Foto 2. ancho = imagen2. Ancho + Imagen 1. Ancho

Terminará si...

Imagen 2. Cuadro de pintura Cuadro 1. Imagen, w, 0

w = w + imagen 1. Ancho

Luego

Portapapeles. Borrar

Portapapeles. Establecer imagen de datos 2. Imagen