vb toma una captura de pantalla en el control del cuadro de imagen. El tamaño del control cambia con el cambio de la imagen. Al tomar una captura de pantalla, no desea exceder el límite del control.

Si botón = 1 entonces

Imagen1.x2 = X: y2 = Y p>

Si X < 1 Entonces x2 = 1

Si Y < 1 Entonces y2 = 1

Si X >= Imagen1.ScaleWidth - 2 Entonces x2 = Imagen1 .ScaleHeight - 2 Entonces y2 = Imagen1.ScaleHeight - 2

Imagen1.Line (x1, y1). línea (x1, y1)-(x2, y2), mycolor, B

Finalizar si

End Sub

Subimagen privada1 p>Subimagen privada1_MouseUp. (Botón como entero, Mayús como entero, X como único, Y como único)

Si el botón = 1 entonces

PictureClip1.PictureClip1.ClipHeight

Fin si

Imagen1.Imprimir ImagenClip1.ClipX ImagenClip1.ClipWidth

End Sub