VB.NET Annotation Flip Example

' This snippet translated from C# to VB by:

' Michael J. Loux Jr - Maine Mutual Group

Private Sub FlipImageAndAnnotations(ByVal horizontal As Boolean, ByVal container As AnnContainer, ByVal viewer As RasterImageViewer)

        ' Calculate the origin

        Dim origin As AnnPoint = New AnnPoint(viewer.Image.ImageWidth / 2, viewer.Image.ImageHeight / 2, AnnUnit.Pixel)

        ' Flip the image

        viewer.Image.FlipViewPerspective(horizontal)

        ' Now flip each object around the origin

        Dim sx As Single = IIf(horizontal, -1, 1)

        Dim sy As Single = IIf(horizontal, 1, -1)

        Dim obj As AnnObject

        For Each obj In container.Objects

            obj.Scale(sx, sy, origin)

        Next

    End Sub

If you have any questions about this example, please post back to this thread. Thanks,

Gabriel