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