HX-PGS-ERP-SYS-SIU/測試介面/流程圖工具.vb

Imports Telerik.WinControls.UI
Imports Telerik.Windows.Diagrams.Core
Public Class 流程圖工具
    Private Sub 流程圖工具_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub 流程圖工具_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Me.RadDiagram1.IsSettingsPaneEnabled = True
        Me.RadDiagram1.IsInformationAdornerVisible = True
        首次開啟 = False
    End Sub
    Private Sub DiagramElement_SelectionChanged(ByVal sender As Object, ByVal e As EventArgs) Handles RadDiagram1.SelectionChanged
        Me.RadPropertyGrid2.SelectedObject = Me.RadDiagram1.DiagramElement.SelectedItem
    End Sub
    Private Sub Word控制項_Click(sender As Object, e As EventArgs) Handles RadDiagramRibbonBar1.SizeChanged
        If 首次開啟 = False Then
            Dim XX1, YY1, YY2, YY3, YY4 As Integer
            YY1 = RadDiagramRibbonBar1.Size.Height
            XX1 = RadDiagramRibbonBar1.Size.Width
            YY2 = RadDock1.Location.Y
            YY4 = Me.Size.Height
            If YY1 = 167 Then
                RadDock1.Location = New System.Drawing.Point(1, 167)
                If YY1 = YY2 Then : Else
                    RadDock1.Size = New System.Drawing.Point(XX1, YY4 - YY1 - 50)
                End If
            ElseIf YY1 > YY2 Then
                YY3 = YY1
                RadDock1.Location = New System.Drawing.Point(1, YY3)
                If YY1 = YY2 Then : Else
                    RadDock1.Size = New System.Drawing.Point(XX1, YY4 - YY1 - 50)
                End If
            ElseIf YY1 < YY2 Then
                YY3 = YY2 - (167 - YY1)
                RadDock1.Location = New System.Drawing.Point(1, YY3)
                If YY1 = YY2 Then : Else
                    RadDock1.Size = New System.Drawing.Point(XX1, YY4 - YY1 - 50)
                End If
            End If
        End If
    End Sub
End Class