Private Imagen AS NEW Image
Para visualizar la imagen, se debe utilizar un drawingarea o tranformarla a picture y mostrarla en un picturebox. extraido de la web
El drawingArea debe tener la propiedad "Cached" con el valor "TRUE"
Les voy a indicar como colocar una imagen en un drawingarea.
PUBLIC SUB Form_Open()
imagen = imagen.Load("/home/norberto/Imágenes/100camea/imag0007.jpg")
Draw.Begin(DrawingArea1)
'Draw.image(imagen as image,posisionx as integer,posisiony as integer,[ancho as integer,alto as integer]) ' hay mas valores opcionales,
Draw.Image(imagen, 10, 10, 300, 300)
Draw.End
END
imagen = imagen.Load("/home/norberto/Imágenes/100camea/imag0007.jpg")
Draw.Begin(DrawingArea1)
'Draw.image(imagen as image,posisionx as integer,posisiony as integer,[ancho as integer,alto as integer]) ' hay mas valores opcionales,
Draw.Image(imagen, 10, 10, 300, 300)
Draw.End
END
Si queremos rotar la imagen :
'imagen.Rotate(valor as float)
imagen = imagen.Rotate(0.10002129)
Draw.Begin(DrawingArea1)
Draw.Image(imagen, 10, 10, 300, 300)
Draw.End
imagen = imagen.Rotate(0.10002129)
Draw.Begin(DrawingArea1)
Draw.Image(imagen, 10, 10, 300, 300)
Draw.End
Para llenar la imagen con un color :
'image.fill(color as integer)
imagen.fill(255)
Draw.Begin(DrawingArea1)
Draw.Image(imagen, 10, 10, 300, 300)
Draw.End
imagen.fill(255)
Draw.Begin(DrawingArea1)
Draw.Image(imagen, 10, 10, 300, 300)
Draw.End
Listado de colores
Además se le puede asignar el contraste, brillo y otros, mediante la propiedad balance :
'image.Balance( Brightness AS Float, Contrast AS Float, Gamma AS Float [ , Channel AS Integer ] )
imagen.Balance(0.20000000, 0, 0) ' en este caso solo le agrego brillo a la imagen
Draw.Begin(DrawingArea1)
Draw.Image(imagen, 10, 10, 300, 300)
Draw.End
imagen.Balance(0.20000000, 0, 0) ' en este caso solo le agrego brillo a la imagen
Draw.Begin(DrawingArea1)
Draw.Image(imagen, 10, 10, 300, 300)
Draw.End
Para solarizar una imagen :
'image.Solarize(valor as float)
imagen.Solarize(0.20000000)
Draw.Begin(DrawingArea1)
Draw.Image(imagen, 10, 10, 300, 300)
Draw.End
imagen.Solarize(0.20000000)
Draw.Begin(DrawingArea1)
Draw.Image(imagen, 10, 10, 300, 300)
Draw.End
Mas acerca de la clase Image