VB.NET: Annotate, Redact Document & Images

• Multiple Annotation Types: ellipse, rectangle, rounded rectangle, metafile, stamp, rubber stamp, freehand etc.
• Add, remove, group, resize, rotate, and select annotation
• Make annotation visible or invisible
• Create annotation with mouse event handling, cursors, toolbars, right-click context menus and instant text editing
• Create customizable annotation types as you wish
• Change the context menus and toolbars
• Localize the dialog strings
• Store annotation as an external annotation file, XML, private DICOM data elements

Requirements

• Windows OS: Windows 7, Windows Vista, and Windows XP, etc
• Windows Server 2003, Windows Server 2008
• .NET Framework 2.0, 3.0, 4.0
• Microsoft Visual Studio 2005, 2008, 2010
• Yiigo.Image for .NET setup

Start to Annotate

• Start your Microsoft Visual Studio;
• Choose "Project" in "File-New" from the menu;
• In "New Project" dialog box, choose "Visual Basic Projects";
• Choose "Windows Application" in the "Templates" List and name it "YiigoImagingAnnoatationVBNET";
• In the "Solution Explorer" window from the context menu, right-click on the "References" folder, and select "Add Reference...";
• In the "Add Reference" dialog box, select the ".NET" tab and browse to Yiigo.Imaging.Net.dll library;
• Add it to your VB.NET applications;
• Import Yiigo .NET Image Namespace & copy those following codes:

Imports System.IO
Imports Yiigo.Imaging
Imports Yiigo.Imaging.Processing
Imports Yiigo.Imaging.Annotation

// Create Annotation
Dim Annotation As YiigoAnnotation = New YiigoAnnotation()
Annotation.Type = YiigoAnnotation.Type.Text
Annotation.TextData = "Yiigo"
Annotation.TextFont = New Font ("Arial", 10f, FontStyle. Regular) 
Annotation.BackgroundColor = Color.Red 
Annotation.Shadow = new AnnotationBrush(Color.Blue)
Annotation.ShadowOffset = New PointF(2, 2)
AnnotationController1.CreateAnnotation(Annotation)

// Add Annotations programmatically
Dim Annotation As YiigoAnnotation = New YiigoAnnotation()
Annotation.Text = "Yiigo"
AnnotationController1.CurrentLayer.Items.Add(Annotation)

// Print Annotation
Dim myPrintDialog As PrintDialog = New PrintDialog()
Dim AnnotationPrint As AnnotationPrintDocument = New AnnotationPrintDocument()
myPrintDialog.Document = AnnotationPrint
If myPrintDialog.ShowDialog(me) = DialogResult.OK Then
AnnotationPrint.Image = me.Viewer.Image
AnnotationPrint.Annotations = me.Viewer.Annotations
AnnotationPrint.Print()
End If