Example in VB.Net Brightness and contrast on TrackBar1_Scroll with MultiLayerViewer1

Is Possibile view a example code in VB.NET for windows application this Function?

Brightness and contrast on TrackBar1_Scroll with MultiLayerViewer1

applied on Layer and only VObject in Layer.....

Thank you for reply

Maurizio

You can implement brightness and contrast to bitmap of particular ImageVObject. However _image field is a private in ImageVObject. So you can get it using Reflection only:

Dim imageInfo As System.Reflection.FieldInfo = _
	imageVObj.GetType().GetField("_image", _
	System.Reflection.BindingFlags.NonPublic Or _
	System.Reflection.BindingFlags.DeclaredOnly Or _
	System.Reflection.BindingFlags.Instance)
Dim image As Aurigma.GraphicsMill.Bitmap = _
	CType(imageInfo.GetValue(imageVObj), _
	Aurigma.GraphicsMill.Bitmap)

Now you can implement brightness and contrast to this bitmap. How to work with these effects you can find in Main Demo sample.

if i have a layer0 with Photo

because impossibile adjust Brightness and Contrast or impossibile example applyed GrayScale?

i try in this mode but dont'work :(

Dim BrighContr As New Aurigma.GraphicsMill.Transforms.BrightnessContrast

Dim layer1 As New Aurigma.GraphicsMill.WinControls.Layer("First")

MultiLayerViewer1.CurrentLayer = layer2

BrighContr.BrightnessAmount = 0.9F

BrighContr.ApplyTransform(MultiLayerViewer1.CurrentLayer = layer2 )

thank you

:(

Edited by user Thursday, May 13, 2010 6:22:02 PM(UTC)  | Reason: Not specified

in last two line i have a error:

Dim newImgVObj As Aurigma.GraphicsMill.WinControls.ImageVObject(image, False, 0, 0)

MultiLayerViewer1.CurrentLayer.VObjects.Add(newImgVObj)

image????

newimgvobj???

i past all line:

Dim bmp As New Aurigma.GraphicsMill.Bitmap
        Dim imgVObj As New Aurigma.GraphicsMill.WinControls.ImageVObject(bmp, False, 0, 0)
        Dim imageInfo As System.Reflection.FieldInfo = imgVObj.GetType().GetField("_image", _
        System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.DeclaredOnly Or System.Reflection.BindingFlags.Instance)
        Dim image As Aurigma.GraphicsMill.Bitmap = CType(imageInfo.GetValue(imgVObj), Aurigma.GraphicsMill.Bitmap)
Dim BrighContr As New Aurigma.GraphicsMill.Transforms.BrightnessContrast

        BrighContr.BrightnessAmount = 0.9F
        BrighContr.ApplyTransform(image)

        'Now you can put transformed bitmap image into new imageVObj instead of current
        
        MultiLayerViewer1.CurrentLayer.VObjects.Remove(imgVObj)
        Dim newImgVObj As Aurigma.GraphicsMill.WinControls.ImageVObject(image, False, 0, 0)  
        MultiLayerViewer1.CurrentLayer.VObjects.Add(newImgVObj)

this method is possibile usage Grayscale and adjust color and other effect ?

Thank you Tamila

Maurizio