The Netron Project For vb.net

2019-11-17 03:55:55

字體：大中小

來源：轉載

供稿：網友

Netron是一個用于實現(xiàn)類似簡單Visio圖形化功能的C#開源項目，作者在2006年停止了2.5版的更新，隨后在2007年發(fā)布了3.0版。網絡上也出現(xiàn)了基于2.5版的輕量版，相對來說簡單很多，雖然可以用來入門學習，但被閹割過的項目總顯得有些無味。3.0版相對2.5版來說是質的飛躍，但的的確確確確實實實實在在太“重量”了，所以研究學習2.5版是最折中的選擇。

我已經把原版的C#源碼轉換成VB.net，這樣對VBFans來說也許是件令人鼓舞的事情。除了語言上的轉換之外，還對項目中原有的bug和不足做了如下的小范圍修改。

(魏滔序原創(chuàng)，轉帖請注明出處。)

DiagramControl：刪除選中的項目

添加方法：

    Public Sub RemoveSelectedItems()

            For i As Int32 = SelectedItems.Count - 1 To 0 Step -1

                Controller.Model.Remove(SelectedItems(i))

            Next

            Me.Invalidate()

        End Sub

Selecttion：執(zhí)行DiagramControl.SelectedItems.Clear時反選

        PRivate Shared Sub RaiSEOnNewSelection()

            RemoveHandler mSelection.OnClear, AddressOf OnShowTracker

            RemoveHandler mSelection.OnItemRemoved, AddressOf OnShowTracker

            AddHandler mSelection.OnClear, AddressOf OnShowTracker

            AddHandler mSelection.OnItemRemoved, AddressOf OnShowTracker

            RaiseEvent OnNewSelection(Nothing, EventArgs.Empty)

        End Sub

        Private Shared Sub OnShowTracker(ByVal sender As Object, ByVal e As EventArgs)

            Controller.View.ShowTracker()

        End Sub

CollectionBase：從索引移除項目時觸發(fā)OnItemRemoved事件

        Public Sub RemoveAt(ByVal index As Integer)

            Dim Item As T = Me.innerList(index)

            Me.innerList.RemoveAt(index)

            RaiseOnItemRemoved(Item)

        End Sub

Connection：禁止連線縮放(去除縮放點和選中矩形框)

        Public Sub New(ByVal mFrom As Point, ByVal mTo As Point, ByVal model As IModel)

            MyBase.New(model)

            MyBase.Resizable = False

            Me.From = New Connector(mFrom, model)

            Me.From.Name = "From"

            Me.From.Parent = Me

            Me.To = New Connector(mTo, model)

            Me.To.Name = "To"

            Me.To.Parent = Me

        End Sub

View：Resizable = False 時去除獲得焦點的選中矩形框

        Public Shared Function GetTracker(ByVal rectangle As Rectangle, ByVal type As TrackerTypes, ByVal showHandles As Boolean) As ITracker

            Select Case type

                Case TrackerTypes.Default

                    If defTracker Is Nothing Then

                        defTracker = New DefaultTracker()

                    End If

                    If showHandles Then

                        defTracker.Transform(rectangle)

                    Else

                        defTracker.Transform(Nothing)

                    End If

                    defTracker.ShowHandles = showHandles

                    Return defTracker

                Case Else

                    Return Nothing

            End Select

        End Function

TransformTool：實現(xiàn)鼠標移動時自動變換指針圖標

在 Public Sub MouseMove(ByVal e As MouseEventArgs) Implements IMouseListener.MouseMove 的過程中添加：

            If e.Button = MouseButtons.None AndAlso Enabled AndAlso (Not IsSuspended) Then

                If Selection.SelectedItems.Count > 0 Then

                    Dim gripPoint As Point = Me.Controller.View.Tracker.Hit(e.Location)

                    Dim c As Cursor = Nothing

                    Select Case gripPoint.X

                        Case -1

                            Select Case gripPoint.Y

                                Case -1

                                    c = Cursors.SizeNWSE

                                Case 0

                                    c = Cursors.SizeWE

                                Case 1

                                    c = Cursors.SizeNESW

                            End Select

                        Case 0

                            Select Case gripPoint.Y

                                Case -1

                                    c = Cursors.SizeNS

                                Case 1

                                    c = Cursors.SizeNS

                            End Select

                        Case 1

                            Select Case gripPoint.Y

                                Case -1

                                    c = Cursors.SizeNESW

                                Case 0

                                    c = Cursors.SizeWE

                                Case 1

                                    c = Cursors.SizeNWSE

                            End Select

                    End Select

                    Controller.View.CurrentCursor = c

                End If

            End If

TransformTool：縮放圖形完成時刷新視圖

        Public Sub MouseUp(ByVal e As MouseEventArgs) Implements IMouseListener.MouseUp

            If IsActive Then

                DeactivateTool()

                Dim cmd As New TransformCommand(Me.Controller, origin, scalex, scaley, transformers)

                      Me.Controller.UndoManager.AddUndoCommand(cmd)

                      Me.Controller.View.Invalidate()

            End If

        End Sub

ShapeBase：限制圖形的最小高度和寬度為10像素

        Public Overridable Sub Transform(ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer) Implements IShape.Transform

            Dim a, b As Double

            Dim p As Point

            If width <= 10 Or height <= 10 Then Exit Sub

            For Each cn As IConnector In Me.mConnectors

                a = Math.Round((CDbl(cn.Point.X) - CDbl(mRectangle.X)) / CDbl(mRectangle.Width), 1) * width + x - cn.Point.X

                b = Math.Round((CDbl(cn.Point.Y) - CDbl(mRectangle.Y)) / CDbl(mRectangle.Height), 1) * height + y - cn.Point.Y

                p = New Point(Convert.ToInt32(a), Convert.ToInt32(b))

                cn.Move(p)

            Next cn

            mRectangle = New Rectangle(x, y, width, height)

        End Sub

本文來自CSDN博客，轉載請標明出處：http://blog.csdn.net/Modest/archive/2009/12/22/5057971.aspx

上一篇：WebForms使用System.Web.Routing

下一篇：C#全角和半角轉換