17. GRÀFICS

* L'objecte ImageBox permet posar imatges que es troben a una carpeta del disc dur, al paràmetre Picture:

* L'objecte PictureBox (dibuix) permet mostrar imatges també però també permet dibuixar coses:

1. Dibuixar a l'objecte PictureBox Picture1 un punt de color Z (tipus Long) a les coordenades X, Y ( Integers ):

Picture1.PSet(X, Y), Z

(La propietat DrawWidth ajusta el gruix del punt)

2. Saber de quin color és un punt X, Y d'un PictureBox Picture1 :

Z = Point(X,Y)

3. Dibuixar una línia des del punt X1, Y1 a X2, Y2 de color Z:

Picture1.Line (X1, Y1)-(X2, Y2), Z

4. Dibuixar un cercle de centre X, Y i radi R:

Picture1.Circle (x1, y1), radius, color

5. Esborra el que hi ha al PictureBox:

Picture1.Picture = Nothing

6. Fa que els pixels siguin persistents (que no s'esborrin en posar coses a sobre)

Picture1.Autoredraw = True

7. Carrega una imatge des d'un fitxer a un objecte:

Picture1.Picture = LoadPicture("d:\foto.bmp")

8. Desa la imatge d'un objecte a un fitxer:

Dim Imatge As IPictureDisp
Set Imatge = Picture1.Image
SavePicture Imatge, "D:\foto.bmp"
Set Imatge = Nothing

On es crea una variable del tipus IPictureDisp (tipus de variable de gestió de dades gràfiques), es desa en ella la imatge que conté l'objecte PictureBox, el contingut de la variable es desa en un fitxer i ls'esborra el contingut de la variable-