Red de conocimiento informático - Material del sitio web - ¿Cómo dibujar en Picturebox en vb?

¿Cómo dibujar en Picturebox en vb?

Subform_Click()

Dim CX, CY, Radius, Limit' declaran variables.

Foto 1. AutoRedraw = Verdadero

Imagen 1. ScaleMode = 3 'píxeles.

CX = imagen 1 ancho de escala/2' x posición.

Cy=Imagen1. altura de escala/posición del eje y.

Si CX gt;CY Entonces Límite = CY De lo contrario Límite = CX

Para radio = 0 para limitar el radio.

Foto 1. Círculo (CX, CY), Radio, RGB (Rnd * 255, Rnd * 255, Rnd * 255)

Siguiente radio

Para I = 0 a 50, paso 2' Establecer hasta el bucle.

F = I/50' Durante la ejecución.

f 1 = 1-f: F2 = 1 f 'Cálculo.

Foto 1. La línea (CX*F1,CY)-(CX,CY*F1)' dibuja la esquina superior izquierda.

Foto 1. Línea - (CX * f2, CY)' dibuja la esquina superior derecha.

Foto 1. Línea - (CX, CY * f2)' dibuja la esquina inferior derecha.

Foto 1. Línea - (CX * F1, CY)' dibuja la esquina inferior izquierda.

ForeColor = QBColor(I Mod 15)'Cambia el color cada vez.

A continuación

Guardar imagen Imagen 1. Imagen, " z:\test.bmp "

Conector final