CADSoftTools

Code: Select all

    Private Sub CADPict_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CADPict.MouseDown
        If CADImage.Select(e.X, e.Y) Then
            CADPict.Invalidate(CADImage.GetSelectEntityRegion(CADPict.ClientRectangle))
            Return
        End If
    End Sub

Code: Select all

    Private Sub CADPict_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CADPict.MouseClick
        CADImage.Select(e.X, e.Y)
' etc...
    End Sub

Code: Select all

    Private Sub LoadFile(ByVal Filename As String)
        CAD.LoadFile(Filename)
        CAD.ToolsPanelVisible = True
        CADPict = CAD.ViewerCADPictureBox
        CADImage = CAD.Image
        CADImage.SelectionMode = SelectionEntityMode.Enabled
    End Sub

Code: Select all

<font color="blue">this</font id="blue">.cadViewerControl1.Image.SelectionMode = CADImport.SelectionEntityMode.Disabled;

Code: Select all

<font color="blue">this</font id="blue">.cadViewerControl1.Image.SelectionMode = CADImport.SelectionEntityMode.Disabled;

Code: Select all

<font color="blue">this</font id="blue">.cadViewerControl1.Image.SelectionMode = CADImport.SelectionEntityMode.Disabled;

Code: Select all

    Private Sub cadPictBox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cadPictBox.MouseUp
        If CADImage Is Nothing Then Exit Sub
        If e.Button = MouseButtons.Right Then Exit Sub
        If ClipRectangle Is Nothing OrElse ClipRectangle.Enabled = False Then Exit Sub

        Dim LTR As Boolean ' Left to right
        Dim RTL As Boolean ' Right to left
        Dim TTB As Boolean ' Top to bottom
        Dim BTT As Boolean ' Bottom to top


        Dim RectLeft As Integer
        Dim RectTop As Integer
        Dim RectRight As Integer
        Dim RectBottom As Integer

        Dim ZoomHeight As Integer
        Dim ZoomWidth As Integer
        Dim ZoomX As Integer
        Dim ZoomY As Integer

        'CadPictPoint is set on MouseDown to define the original click point = e.Location
        If e.X > CADPictPoint.X + 4 Then
            ' mouse is further to the right than when they started
            LTR = True
            RectLeft = CADPictPoint.X ' starting point was on the left
            RectRight = e.X
        End If
        If e.Y > CADPictPoint.Y + 4 Then
            ' mouse is further down than when they started
            TTB = True
            RectTop = CADPictPoint.Y ' starting point was on the top
            RectBottom = e.Y
        End If
        If e.X < CADPictPoint.X - 4 Then
            ' mouse is further to the left than when they started
            RTL = True
            RectLeft = e.X
            RectRight = CADPictPoint.X ' starting point was on the right
        End If
        If e.Y < CADPictPoint.Y - 4 Then
            ' mouse is further up than when they started
            BTT = True
            RectTop = e.Y
            RectBottom = CADPictPoint.Y ' starting point was on the bottom
        End If

        Dim DragRectangle As Rectangle = Rectangle.FromLTRB(RectLeft, RectTop, RectRight, RectBottom)

        Dim ZoomRectangle As Rectangle ' this is to be an aspect-correct rectangle to which we are zooming. Aspect is set by VisibleAreaSize.Width / VisibleAreaSize.Height upon MouseDown

        If LTR = True Or RTL = True Or TTB = True Or BTT = True Then
            Dim tmp1 As Single = (Me.VisibleAreaSize.Width / CSng(DragRectangle.Width))
            Dim tmp2 As Single = (Me.VisibleAreaSize.Height / CSng(DragRectangle.Height))
            If (DragRectangle.Width > (DragRectangle.Height * Aspect)) Then
                'wider than the display area aspect ratio
                'use height as the base

                tmp1 = tmp2
                ZoomHeight = DragRectangle.Height ' 200
                ZoomWidth = DragRectangle.Height * Aspect ' 200 * 2.0 = 400
                Debug.Print("ZoomWidth: " & DragRectangle.Height & " * " & Aspect & " = " & ZoomWidth)

                'example DragRectangle: 600x200 at 400, 400
                '                                       (600    -  400)      \ 2 = 100
                ZoomX = DragRectangle.X + ((DragRectangle.Width - ZoomWidth) \ 2)
                ZoomY = DragRectangle.Y
            Else
                'equal to or taller than the display area aspect ratio
                'make width be the base of the zoom
                ZoomWidth = DragRectangle.Width ' 400
                ZoomHeight = DragRectangle.Width / Aspect ' 400 / 2.0 = 200
                Debug.Print("ZoomHeight: " & DragRectangle.Width & " / " & Aspect & " = " & ZoomHeight)

                'example DragRectangle: 400, 400
                ZoomX = DragRectangle.X ' 400
                ZoomY = DragRectangle.Y + ((DragRectangle.Height - ZoomHeight) \ 2)

            End If
            ZoomRectangle = New Rectangle(ZoomX, ZoomY, ZoomWidth, ZoomHeight)

            Dim CC As DPoint
            With ZoomRectangle
                Debug.Print("New zoom rectangle coordinates: " & ZoomX & ", " & ZoomY & " (LTRB: " & .Left & " " & .Top & " " & .Right & " " & .Bottom)
                CC = Me.GetRealPoint(.Left, .Top)
            End With

            Me.Zoom(tmp1)

            Debug.Print(LTR & RTL & TTB & BTT & " DragRect: " & DragRectangle.Left & "," & DragRectangle.Top & " " & DragRectangle.Width & "x" & DragRectangle.Height & " ImagePosition: " & Me.LeftImagePosition & ", " & Me.TopImagePosition & " CADCoords: " & CC.X & ", " & CC.Y)

            Me.LeftImagePosition = CC.X
            Me.TopImagePosition = CC.Y
        End If

    End Sub

Code: Select all

    Public Sub ResetScaling()
        Me.ImageScale = 1.0!
        Me.ImagePreviousScale = 1.0!
        Me.LeftImagePosition = ((Me.cadPictBox.ClientRectangle.Width - Me.VisibleAreaSize.Width) / 2.0!)
        Me.TopImagePosition = ((Me.cadPictBox.ClientRectangle.Height - Me.VisibleAreaSize.Height) / 2.0!)
        Me.Position = New PointF
        Me.SetCADImageOptions()
        Me.cadPictBox.Invalidate()
    End Sub

Code: Select all

<font color="blue">Public Sub</font id="blue"> ResetScaling()
    <font color="blue">Me</font id="blue">.ImageScale = 1.0!
    <font color="blue">Me</font id="blue">.ImagePreviousScale = 1.0!
    <font color="blue">Me</font id="blue">.LeftImagePosition = ((<font color="blue">Me</font id="blue">.cadPictBox.ClientRectangle.Width - <font color="blue">Me</font id="blue">.VisibleAreaSize.Width) / 2.0!)
    <font color="blue">Me</font id="blue">.TopImagePosition = ((<font color="blue">Me</font id="blue">.cadPictBox.ClientRectangle.Height - <font color="blue">Me</font id="blue">.VisibleAreaSize.Height) / 2.0!)
    <font color="blue">Me</font id="blue">.DoResize() 
<font color="blue">End Sub</font id="blue">

Code: Select all

<font color="blue">Private Sub</font id="blue"> CADPictBoxMouseWheel(<font color="blue">ByVal</font id="blue"> sender <font color="blue">As Object</font id="blue">, <font color="blue">ByVal</font id="blue"> e <font color="blue">As</font id="blue"> MouseEventArgs)
    <font color="blue">If</font id="blue"> (e.Delta < 0) <font color="blue">Then
        Me</font id="blue">.Zoom(0.7!, <font color="blue">True</font id="blue">)
    <font color="blue">Else
        Me</font id="blue">.Zoom(1.3!, <font color="blue">True</font id="blue">)
    <font color="blue">End If
    Me</font id="blue">.Shift()
    <font color="blue">Me</font id="blue">.SetPictureBoxPosition(<font color="blue">Me</font id="blue">.Position)
<font color="blue">End Sub</font id="blue">

Code: Select all

<font color="blue">Public Sub</font id="blue"> Zoom(<font color="blue">ByVal</font id="blue"> i <font color="blue">As Single</font id="blue">, <font color="blue">ByVal</font id="blue"> invalidate <font color="blue">As Boolean</font id="blue">)
    <font color="blue">If</font id="blue"> (<font color="blue">Not Me</font id="blue">.cadImage <font color="blue">Is Nothing</font id="blue">) <font color="blue">Then
        Me</font id="blue">.ImageScale = (<font color="blue">Me</font id="blue">.ImageScale * i)
        <font color="blue">If</font id="blue"> (<font color="blue">Me</font id="blue">.ImageScale < 0.005!) <font color="blue">Then
            Me</font id="blue">.ImageScale = 0.005!
        <font color="blue">End If
        If</font id="blue"> (invalidate) <font color="blue">Then
            Me</font id="blue">.cadPictBox.Invalidate()
        <font color="blue">End If
    End If
End Sub</font id="blue">

Code: Select all

<font color="blue">Private Sub</font id="blue"> cadPictBox_MouseUp(<font color="blue">ByVal</font id="blue"> sender <font color="blue">As</font id="blue"> System.Object, <font color="blue">ByVal</font id="blue"> e <font color="blue">As</font id="blue"> System.Windows.Forms.MouseEventArgs) <font color="blue">Handles</font id="blue"> cadPictBox.MouseUp
    <font color="blue">Dim</font id="blue"> w, h, scaleX, scaleY, midShiftX, midShiftY, vScl <font color="blue">As Single
    Dim</font id="blue"> r <font color="blue">As</font id="blue"> RectangleF

    <font color="blue">Me</font id="blue">.detRMouseDown = <font color="blue">False</font id="blue">
    <font color="blue">Me</font id="blue">.cadPictBox.Cursor = Cursors.Default
    <font color="blue">If</font id="blue"> ((((<font color="blue">Me</font id="blue">.clipRectangle.Enabled <font color="blue">AndAlso</font id="blue"> (<font color="blue">Me</font id="blue">.clipRectangle.Type = RectangleType.Zooming)) <font color="blue">AndAlso</font id="blue"> (<font color="blue">Me</font id="blue">.clipRectangle.ClientRectangle.Width > 5)) <font color="blue">AndAlso</font id="blue"> (<font color="blue">Me</font id="blue">.clipRectangle.ClientRectangle.Height > 5)) <font color="blue">AndAlso</font id="blue"> (Not <font color="blue">Me</font id="blue">.MultipleSelect <font color="blue">AndAlso</font id="blue"> (<font color="blue">Me</font id="blue">.ImageScale <= 1000.0!))) <font color="blue">Then</font id="blue">
        w = <font color="blue">Me</font id="blue">.clipRectangle.ClientRectangle.Width
        h = <font color="blue">Me</font id="blue">.clipRectangle.ClientRectangle.Height
        r = ImageRectangleF
        r.Offset(-<font color="blue">Me</font id="blue">.clipRectangle.ClientRectangle.Left, -<font color="blue">Me</font id="blue">.clipRectangle.ClientRectangle.Top)
        scaleX = <font color="blue">Me</font id="blue">.visibleArea.Width / w
        scaleY = <font color="blue">Me</font id="blue">.visibleArea.Height / h
        midShiftX = 0.0F
        midShiftY = 0.0F
        vScl = 0.0F
        <font color="blue">If</font id="blue"> (scaleX * h > <font color="blue">Me</font id="blue">.visibleArea.Height) <font color="blue">Then</font id="blue">
            vScl = scaleY
            midShiftX = (<font color="blue">Me</font id="blue">.visibleArea.Width - vScl * w) / 2.0F
        <font color="blue">Else</font id="blue">
            vScl = scaleX
            midShiftY = (<font color="blue">Me</font id="blue">.visibleArea.Height - vScl * h) / 2.0F
        <font color="blue">End If</font id="blue">
        r = New RectangleF(vScl * r.Left, vScl * r.Top, vScl * ImageRectangleF.Width, vScl * ImageRectangleF.Height)
        r.Offset(midShiftX, midShiftY)
        LeftImagePosition = r.Left
        TopImagePosition = r.Top
        PreviousPosition = <font color="blue">New</font id="blue"> PointF(LeftImagePosition, TopImagePosition)
        <font color="blue">Me</font id="blue">.Zoom(vScl, <font color="blue">False</font id="blue">)
        <font color="blue">Me</font id="blue">.ImagePreviousScale = <font color="blue">Me</font id="blue">.ImageScale
        <font color="blue">Me</font id="blue">.cadPictBox.Invalidate()
    <font color="blue">End If
End Sub</font id="blue">