Initial commit

BEA - Kopie/Übersicht/clsUebersicht.vb

@@ -0,0 +1,251 @@
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Public Class clsUebersicht
+#Region "Deklarationen"
+    Dim treedata As New DataSet
+    Public treedata_for_search As New DataTable
+    Dim TreeaufbauSuche As Boolean = False
+    Dim TreeaufbauNr As Integer = 0
+    Dim FoundNode As Integer = 0
+    Dim Searchstring As String = ""
+    Public Treesearch As New TreeView
+    Dim Datenklasse As New _DataClass.DataClass
+#End Region
+
+#Region "Tree"
+
+    Public Sub Load_Treeview(ByRef tree As TreeView)
+        treedata.Tables.Clear()
+        TreeaufbauNr = -1
+        For Each dr As DataRow In Globals.Objekt.Rows
+            If dr.Item("Aktiv") = True Then
+                Load_Treedata(dr.Item("Bezeichnung"))
+                If Not (treedata Is Nothing) Then
+                    Dim oView As DataView = treedata.Tables(0).DefaultView
+                    Dim oTable As DataTable = oView.Table
+                    Dim oDS As DataSet = New DataSet()
+                    oDS.Tables.Add(oTable.Copy())
+
+                    If oDS.Relations.Contains("SelfRefenceRelation") = False Then
+                        oDS.Relations.Add("SelfRefenceRelation", _
+                            oDS.Tables(0).Columns("id"), _
+                            oDS.Tables(0).Columns("Parentid"))
+                    End If
+                    oTable.Dispose()
+                    oTable = Nothing
+
+                    LoadTreeView(oDS, tree)
+                    oDS.Dispose()
+                    oDS = Nothing
+                End If
+            End If
+
+        Next
+
+    End Sub
+
+    Public Function Load_Treedata(ByVal datatype As String) As DataTable
+        treedata.Tables.Clear()
+        Dim selectcommand As New SqlCommand
+        Dim connection As New SqlConnection()
+        Dim da As New SqlDataAdapter("", connection)
+
+        selectcommand.CommandText = "sp_get_struktur"
+        selectcommand.Parameters.Add("@Root", SqlDbType.VarChar)
+        selectcommand.Parameters(0).Value = Datatype
+        selectcommand.CommandType = CommandType.StoredProcedure
+        selectcommand.Connection = connection
+        Try
+            connection.ConnectionString = Globals.sConnectionString
+            connection.Open()
+            da.SelectCommand = selectcommand
+            da.Fill(treedata, "Tree")
+            If treedata_for_search.Rows.Count < 1 Then
+                For Each c As DataColumn In treedata.Tables(0).Columns
+                    If c.ColumnName = "ErweiterteSuche" Then
+                        Dim dc As New DataColumn
+                        dc.ColumnName = "ErweiterteSuche"
+                        dc.DataType = System.Type.GetType("System.String")
+                        dc.DefaultValue = "                                                                                                                          "
+                        Me.treedata_for_search.Columns.Add(dc)
+                    Else
+                        Me.treedata_for_search.Columns.Add(c.ColumnName)
+                    End If
+                Next
+            End If
+            For Each row As DataRow In treedata.Tables(0).Rows
+
+                Me.treedata_for_search.ImportRow(row)
+            Next
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        Finally
+            connection.Close()
+            da.Dispose()
+            selectcommand.Dispose()
+        End Try
+    End Function
+
+
+
+
+    ''' <summary>
+    ''' Tree aufbauen
+    ''' </summary>
+    ''' <param name="oDS"></param>
+    ''' <param name="oTreeview"></param>
+    ''' <remarks></remarks>
+    Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As TreeView)
+        'Dim oTreeView As TreeView = New TreeView()
+        Dim oDataRow As DataRow
+        For Each oDataRow In oDS.Tables(0).Rows
+            If Not oDataRow.IsNull("Parentid") Then
+                If oDataRow.Item("Parentid") = 0 Then
+                    'If oDataRow.IsNull("Parentid") Then
+                    Dim oNode As New TreeNode()
+                    oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
+                    Try
+                        oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
+                    Catch
+                    End Try
+                    oNode.Tag = oDataRow("id").ToString
+                    oNode.ImageIndex = oDataRow("ImageIndex")
+                    oNode.SelectedImageIndex = oDataRow("ImageIndex")
+                    oNode.StateImageIndex = oDataRow("ImageIndex")
+                    oTreeview.Nodes.Add(oNode)
+                    RecursivelyLoadTree(oDataRow, oNode)
+                End If
+            End If
+        Next oDataRow
+        oDS.Dispose()
+        oDS = Nothing
+    End Sub
+    ''' <summary>
+    ''' Child-Nodes hinzufügen
+    ''' </summary>
+    ''' <param name="oDataRow"></param>
+    ''' <param name="oNode"></param>
+    ''' <remarks></remarks>
+    Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As TreeNode)
+        Dim oChildRow As DataRow
+        For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
+            Dim oChildNode As New TreeNode()
+            oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
+            oChildNode.Tag = oChildRow("id").ToString()
+            oChildNode.ImageIndex = oChildRow("ImageIndex")
+            oChildNode.SelectedImageIndex = oChildRow("ImageIndex")
+            oChildNode.StateImageIndex = oChildRow("ImageIndex")
+            oNode.Nodes.Add(oChildNode)
+            RecursivelyLoadTree(oChildRow, oChildNode)
+        Next oChildRow
+    End Sub
+    Public Function FindNode(ByVal _nodeCollection As TreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As TreeNode
+        Dim tmpNode As TreeNode
+        For Each _child As TreeNode In _nodeCollection
+            If _child.Tag = SearchVal Then
+
+                Return _child
+            End If
+            ' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
+            ' Return _child
+            ' End If
+            tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
+            If Not tmpNode Is Nothing Then
+                Return tmpNode
+            End If
+        Next
+        Return Nothing
+    End Function
+
+
+    Public Function TreeView_GetRootNode(objTV As TreeView, node As TreeNode) As _DataClass.DataClass.Struktur_Selectiontype
+        If node.Parent Is Nothing Then
+            Return Datenklasse.Get_Selectiontype(node.Text)
+            '            MsgBox(String.Format("You clicked a parent node named  {0}", node.Text))
+        Else
+            Dim parent As TreeNode = node.Parent
+            While Not parent.Parent Is Nothing
+                parent = parent.Parent
+            End While
+            Return Datenklasse.Get_Selectiontype(Trim(parent.Text))
+            'MsgBox(String.Format("The node's parent is {0}",            parent.Text))
+        End If
+    End Function
+
+   
+
+    Public Function Init_Search()
+        FoundNode = 0
+        Searchstring = ""
+        Me.Treesearch.Nodes.Clear()
+    End Function
+
+    Public Function SearchNode(ByRef tree As TreeView, ByVal SearchString As String) As TreeNode
+        Me.Treesearch.Nodes.Clear()
+        For Each dr As DataRow In treedata_for_search.Rows
+            If InStr(UCase(dr.Item("Bezeichnung")), UCase(SearchString)) > 0 Or InStr(UCase(dr.Item("ErweiterteSuche")), UCase(SearchString)) > 0 Then
+                Dim tn As New TreeNode
+                tn = Me.Treesearch.Nodes.Add(dr.Item("Bezeichnung"))
+                tn.Tag = dr.Item("id")
+            End If
+        Next
+        Return FindFirst(tree)
+    End Function
+
+    Public Function FindFirst(ByRef Tree As TreeView) As TreeNode
+        Try
+            If Me.Treesearch.Nodes.Count > 0 Then Me.Treesearch.SelectedNode = Me.Treesearch.Nodes(0)
+            Return FindNode(Tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch
+        End Try
+    End Function
+
+
+
+    Public Function FindNextNode(ByRef tree As TreeView) As TreeNode
+        Try
+            Treesearch.SelectedNode = Treesearch.SelectedNode.NextNode
+            If Treesearch.SelectedNode Is Nothing Then
+                Return FindFirst(tree)
+            End If
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+
+        End Try
+    End Function
+
+    Public Function FindPrevNode(ByRef tree As TreeView) As TreeNode
+        Try
+            Treesearch.SelectedNode = Treesearch.SelectedNode.PrevNode
+            If Treesearch.SelectedNode Is Nothing Then
+                Return FindLastNode(tree)
+            End If
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+        End Try
+    End Function
+
+    Public Function FindLastNode(ByRef tree As TreeView) As TreeNode
+        Try
+            Treesearch.SelectedNode = Treesearch.Nodes(Treesearch.Nodes.Count - 1)
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+        End Try
+
+    End Function
+
+    Public Function Get_DBObjektname(ByVal type As Integer) As String
+        For Each dr As DataRow In Globals.Objekt.Rows
+            If dr.Item("Objektnr") = type Then
+                Return dr.Item("DBOBject")
+                Exit For
+            End If
+        Next
+    End Function
+
+
+#End Region
+
+End Class

BEA - Kopie/Übersicht/clsUebersichtRE.vb

@@ -0,0 +1,324 @@
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Imports DevComponents
+Public Class clsUebersichtre
+
+#Region "Deklarationen"
+    Dim WithEvents evh As _Generic_Event_Handler.Generic_Event_Handler = Globals.Generic_Event_Handler
+
+
+    Dim treedata As New DataSet
+
+    Dim TreeaufbauSuche As Boolean = False
+    Dim TreeaufbauNr As Integer = 0
+    Dim FoundNode As Integer = 0
+    Dim Searchstring As String = ""
+    Public Treesearch As New AdvTree.AdvTree
+    Dim Datenklasse As New _DataClass.DataClass
+#End Region
+
+#Region "Tree"
+
+    Public Sub Load_Treeview(ByRef tree As DevComponents.AdvTree.AdvTree)
+        Globals.treedata_for_search.Rows.Clear()
+        treedata.Tables.Clear()
+        TreeaufbauNr = -1
+        For Each dr As DataRow In Globals.Objekt.Rows
+            If dr.Item("Aktiv") = True Then
+                Load_Treedata(dr.Item("Bezeichnung"))
+                If Not (treedata Is Nothing) Then
+                    Dim oView As DataView = treedata.Tables(0).DefaultView
+                    Dim oTable As DataTable = oView.Table
+                    Dim oDS As DataSet = New DataSet()
+                    oDS.Tables.Add(oTable.Copy())
+
+                    If oDS.Relations.Contains("SelfRefenceRelation") = False Then
+                        oDS.Relations.Add("SelfRefenceRelation", _
+                            oDS.Tables(0).Columns("id"), _
+                            oDS.Tables(0).Columns("Parentid"))
+                    End If
+                    oTable.Dispose()
+                    oTable = Nothing
+
+                    LoadTreeView(oDS, tree)
+                    oDS.Dispose()
+                    oDS = Nothing
+                End If
+            End If
+
+        Next
+
+    End Sub
+
+    Public Function Load_Treedata(ByVal datatype As String) As DataTable
+        treedata.Tables.Clear()
+        Dim selectcommand As New SqlCommand
+        Dim connection As New SqlConnection()
+        Dim da As New SqlDataAdapter("", connection)
+
+        selectcommand.CommandText = "sp_get_struktur"
+        selectcommand.Parameters.Add("@Root", SqlDbType.VarChar)
+        selectcommand.Parameters(0).Value = datatype
+        selectcommand.CommandType = CommandType.StoredProcedure
+        selectcommand.Connection = connection
+        Try
+            connection.ConnectionString = Globals.sConnectionString
+            connection.Open()
+            da.SelectCommand = selectcommand
+            da.Fill(treedata, "Tree")
+            If treedata_for_search.Rows.Count < 1 Then
+                For Each c As DataColumn In treedata.Tables(0).Columns
+                    If c.ColumnName = "ErweiterteSuche" Then
+                        Dim dc As New DataColumn
+                        dc.ColumnName = "ErweiterteSuche"
+                        dc.DataType = System.Type.GetType("System.String")
+                        dc.DefaultValue = "                                                                                                                          "
+                        Try
+                            Globals.treedata_for_search.Columns.Add(dc)
+                        Catch
+                        End Try
+                    Else
+                        Try
+                            Globals.treedata_for_search.Columns.Add(c.ColumnName)
+                        Catch
+                        End Try
+                    End If
+                Next
+            End If
+            For Each row As DataRow In treedata.Tables(0).Rows
+                Globals.treedata_for_search.ImportRow(row)
+            Next
+        Catch ex As Exception
+            'MsgBox(ex.Message)
+        Finally
+            connection.Close()
+            da.Dispose()
+            selectcommand.Dispose()
+        End Try
+    End Function
+
+    Public Function Update_TreeSearch(ByVal fnkt As String, ByVal Keyvalue As String, ByVal treestruktur As DevComponents.AdvTree.AdvTree)
+        If Globals.Update_Treedata_for_search = False Then
+            'Exit Function
+
+        End If
+        treedata_for_search.Rows.Clear()
+        GetAllNodes(treestruktur)
+        Globals.Update_Treedata_for_search = False
+    End Function
+
+    Protected Function GetAllNodes(ByVal treestruktur As DevComponents.AdvTree.AdvTree) As List(Of TreeNode)
+
+        Dim allNodes As List(Of TreeNode) = New List(Of TreeNode)()
+
+        ' start recursion for each root node of the treeview
+        For i As Integer = 0 To TreeStruktur.Nodes.Count - 1
+            GetAllNodes(TreeStruktur.Nodes(i), allNodes)
+        Next
+
+        Return allNodes
+
+    End Function
+
+    Protected Sub GetAllNodes(ByVal subRoot As DevComponents.AdvTree.Node, ByVal allNodes As List(Of TreeNode))
+
+        ' check for null (this can be removed since within th
+        If (subRoot Is Nothing) Then
+            Exit Sub
+        End If
+
+        ' add subroot
+        Dim r As DataRow
+        r = treedata_for_search.NewRow
+        r.Item(0) = subRoot.Tag
+        Try
+            r.Item(1) = subRoot.Parent.Tag
+        Catch
+            r.Item(1) = 0
+        End Try
+
+        r.Item(2) = subRoot.Text
+        r.Item(3) = subRoot.ImageIndex
+        treedata_for_search.Rows.Add(r)
+        'allNodes.Add(subRoot)
+        ' add all it's children
+        For i As Integer = 0 To subRoot.Nodes.Count - 1
+            GetAllNodes(subRoot.Nodes(i), allNodes)
+        Next
+
+
+    End Sub
+
+
+    ''' <summary>
+    ''' Tree aufbauen
+    ''' </summary>
+    ''' <param name="oDS"></param>
+    ''' <param name="oTreeview"></param>
+    ''' <remarks></remarks>
+    Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As DevComponents.AdvTree.AdvTree)
+        'Dim oTreeView As TreeView = New TreeView()
+        Dim oDataRow As DataRow
+        For Each oDataRow In oDS.Tables(0).Rows
+            If Not oDataRow.IsNull("Parentid") Then
+                If oDataRow.Item("Parentid") = 0 Then
+                    'If oDataRow.IsNull("Parentid") Then
+                    Dim oNode As New DevComponents.AdvTree.Node
+                    oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
+                    Try
+                        'oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
+                    Catch
+                    End Try
+                    oNode.Tag = oDataRow("id").ToString
+                    oNode.ImageIndex = oDataRow("ImageIndex")
+                    oTreeview.Nodes.Add(oNode)
+                    RecursivelyLoadTree(oDataRow, oNode)
+                End If
+            End If
+        Next oDataRow
+        oDS.Dispose()
+        oDS = Nothing
+    End Sub
+    ''' <summary>
+    ''' Child-Nodes hinzufügen
+    ''' </summary>
+    ''' <param name="oDataRow"></param>
+    ''' <param name="oNode"></param>
+    ''' <remarks></remarks>
+    Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As DevComponents.AdvTree.Node)
+        Dim oChildRow As DataRow
+        For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
+            Dim oChildNode As New DevComponents.AdvTree.Node
+            oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
+            oChildNode.Tag = oChildRow("id").ToString()
+            oChildNode.ImageIndex = oChildRow("ImageIndex")
+           
+            oNode.Nodes.Add(oChildNode)
+            RecursivelyLoadTree(oChildRow, oChildNode)
+        Next oChildRow
+    End Sub
+    Public Function FindNode(ByVal _nodeCollection As AdvTree.NodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As AdvTree.Node
+        Dim tmpNode As AdvTree.Node
+        For Each _child As AdvTree.Node In _nodeCollection
+            If _child.Tag = SearchVal Then
+
+                Return _child
+            End If
+            ' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
+            ' Return _child
+            ' End If
+            tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
+            If Not tmpNode Is Nothing Then
+                Return tmpNode
+            End If
+        Next
+        Return Nothing
+    End Function
+
+
+    Public Function TreeView_GetRootNode(objTV As AdvTree.AdvTree, node As AdvTree.Node) As _DataClass.DataClass.Struktur_Selectiontype
+        Try
+            If node.Parent Is Nothing Then
+                Return Datenklasse.Get_Selectiontype(node.Text)
+            Else
+                Dim parent As AdvTree.Node = node.Parent
+                While Not parent.Parent Is Nothing
+                    parent = parent.Parent
+                End While
+                Return Datenklasse.Get_Selectiontype(Trim(parent.Text))
+            End If
+        Catch
+        End Try
+    End Function
+
+
+
+    Public Function Init_Search()
+        FoundNode = 0
+        Searchstring = ""
+        Me.Treesearch.Nodes.Clear()
+    End Function
+
+    Public Function SearchNode(ByRef tree As AdvTree.AdvTree, ByVal SearchString As String) As AdvTree.Node
+        'Return tree.FindNodeByCellText(SearchString)
+
+        Me.Treesearch.Nodes.Clear()
+        For Each dr As DataRow In treedata_for_search.Rows
+            'InStr(UCase(SearchString), UCase(dr.Item("Bezeichnung")))
+            If InStr(UCase(dr.Item("Bezeichnung")), UCase(SearchString)) > 0 Or InStr(UCase(dr.Item("ErweiterteSuche")), UCase(SearchString)) > 0 Then
+                Dim tn As New AdvTree.Node
+                tn.Text = dr.Item("Bezeichnung")
+                tn.Tag = dr.Item("id")
+                Treesearch.Nodes.Add(tn)
+            End If
+        Next
+        Return FindFirst(tree)
+    End Function
+
+    Public Function FindFirst(ByRef Tree As AdvTree.AdvTree) As AdvTree.Node
+        Try
+            If Me.Treesearch.Nodes.Count > 0 Then Me.Treesearch.SelectedNode = Me.Treesearch.Nodes(0)
+            Return FindNode(Tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch
+        End Try
+    End Function
+
+
+
+    Public Function FindNextNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
+        Try
+            Treesearch.SelectedNode = Treesearch.SelectedNode.NextNode
+            If Treesearch.SelectedNode Is Nothing Then
+                Return FindFirst(tree)
+            End If
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+
+        End Try
+    End Function
+
+    Public Function FindPrevNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
+        Try
+            Treesearch.SelectedNode = Treesearch.SelectedNode.PrevNode
+            If Treesearch.SelectedNode Is Nothing Then
+                Return FindLastNode(tree)
+            End If
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+        End Try
+    End Function
+
+    Public Function FindLastNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
+        Try
+            Treesearch.SelectedNode = Treesearch.Nodes(Treesearch.Nodes.Count - 1)
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+        End Try
+
+    End Function
+
+    Public Function Get_DBObjektname(ByVal type As Integer) As String
+        For Each dr As DataRow In Globals.Objekt.Rows
+            If dr.Item("Objektnr") = type Then
+                Return dr.Item("DBOBject")
+                Exit For
+            End If
+        Next
+    End Function
+
+
+
+
+#End Region
+
+#Region "EVH-Ereignisse"
+    Private Sub evh_Strucktur_Changed(ByVal keyvalue As Integer, ByVal treehanlde As Integer) Handles evh.Strucktur_Changed
+        Try
+           
+        Catch
+
+        End Try
+    End Sub
+#End Region
+
+End Class

BEA - Kopie/Übersicht/frmSuche.Designer.vb

@@ -0,0 +1,171 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmSuche
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSuche))
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
+        Me.lblSuchbegriff = New System.Windows.Forms.Label()
+        Me.txtSuchbegriff = New System.Windows.Forms.TextBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.btnSuche = New System.Windows.Forms.Button()
+        Me.C1Suchresultat = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
+        Me.ctxmenu = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.AnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AnzeigenInNeuemFensterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStrip1.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        CType(Me.C1Suchresultat, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ctxmenu.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(346, 25)
+        Me.ToolStrip1.TabIndex = 6
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'TSBtnQuit
+        '
+        Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
+        Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnQuit.Name = "TSBtnQuit"
+        Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnQuit.Text = "ToolStripButton1"
+        Me.TSBtnQuit.ToolTipText = "Anwendung beenden"
+        '
+        'lblSuchbegriff
+        '
+        Me.lblSuchbegriff.AutoSize = True
+        Me.lblSuchbegriff.Location = New System.Drawing.Point(3, 16)
+        Me.lblSuchbegriff.Name = "lblSuchbegriff"
+        Me.lblSuchbegriff.Size = New System.Drawing.Size(61, 13)
+        Me.lblSuchbegriff.TabIndex = 7
+        Me.lblSuchbegriff.Text = "Suchbegriff"
+        '
+        'txtSuchbegriff
+        '
+        Me.txtSuchbegriff.Location = New System.Drawing.Point(70, 13)
+        Me.txtSuchbegriff.Name = "txtSuchbegriff"
+        Me.txtSuchbegriff.Size = New System.Drawing.Size(189, 20)
+        Me.txtSuchbegriff.TabIndex = 8
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.btnSuche)
+        Me.Panel1.Controls.Add(Me.lblSuchbegriff)
+        Me.Panel1.Controls.Add(Me.txtSuchbegriff)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 25)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(346, 52)
+        Me.Panel1.TabIndex = 9
+        '
+        'btnSuche
+        '
+        Me.btnSuche.Location = New System.Drawing.Point(265, 10)
+        Me.btnSuche.Name = "btnSuche"
+        Me.btnSuche.Size = New System.Drawing.Size(75, 23)
+        Me.btnSuche.TabIndex = 9
+        Me.btnSuche.Text = "Suchen"
+        Me.btnSuche.UseVisualStyleBackColor = True
+        '
+        'C1Suchresultat
+        '
+        Me.C1Suchresultat.AllowDrag = True
+        Me.C1Suchresultat.AllowDrop = True
+        Me.C1Suchresultat.AllowUpdate = False
+        Me.C1Suchresultat.AlternatingRows = True
+        Me.C1Suchresultat.ContextMenuStrip = Me.ctxmenu
+        Me.C1Suchresultat.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.C1Suchresultat.FetchRowStyles = True
+        Me.C1Suchresultat.FilterBar = True
+        Me.C1Suchresultat.GroupByCaption = "Drag a column header here to group by that column"
+        Me.C1Suchresultat.Images.Add(CType(resources.GetObject("C1Suchresultat.Images"), System.Drawing.Image))
+        Me.C1Suchresultat.Location = New System.Drawing.Point(0, 77)
+        Me.C1Suchresultat.Name = "C1Suchresultat"
+        Me.C1Suchresultat.PreviewInfo.Location = New System.Drawing.Point(0, 0)
+        Me.C1Suchresultat.PreviewInfo.Size = New System.Drawing.Size(0, 0)
+        Me.C1Suchresultat.PreviewInfo.ZoomFactor = 75.0R
+        Me.C1Suchresultat.PrintInfo.PageSettings = CType(resources.GetObject("C1Suchresultat.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
+        Me.C1Suchresultat.Size = New System.Drawing.Size(346, 319)
+        Me.C1Suchresultat.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
+        Me.C1Suchresultat.TabIndex = 11
+        Me.C1Suchresultat.Text = "C1TrueDBGrid1"
+        Me.C1Suchresultat.PropBag = resources.GetString("C1Suchresultat.PropBag")
+        '
+        'ctxmenu
+        '
+        Me.ctxmenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AnzeigenInNeuemFensterToolStripMenuItem, Me.AnzeigenToolStripMenuItem})
+        Me.ctxmenu.Name = "ctxmenu"
+        Me.ctxmenu.Size = New System.Drawing.Size(218, 48)
+        '
+        'AnzeigenToolStripMenuItem
+        '
+        Me.AnzeigenToolStripMenuItem.Name = "AnzeigenToolStripMenuItem"
+        Me.AnzeigenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
+        Me.AnzeigenToolStripMenuItem.Text = "Anzeigen"
+        '
+        'AnzeigenInNeuemFensterToolStripMenuItem
+        '
+        Me.AnzeigenInNeuemFensterToolStripMenuItem.Name = "AnzeigenInNeuemFensterToolStripMenuItem"
+        Me.AnzeigenInNeuemFensterToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
+        Me.AnzeigenInNeuemFensterToolStripMenuItem.Text = "Anzeigen in neuem Fenster"
+        '
+        'frmSuche
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(346, 396)
+        Me.Controls.Add(Me.C1Suchresultat)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmSuche"
+        Me.Text = "Suchen"
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.C1Suchresultat, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ctxmenu.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
+    Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
+    Friend WithEvents lblSuchbegriff As System.Windows.Forms.Label
+    Friend WithEvents txtSuchbegriff As System.Windows.Forms.TextBox
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents btnSuche As System.Windows.Forms.Button
+    Friend WithEvents C1Suchresultat As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+    Friend WithEvents ctxmenu As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents AnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents AnzeigenInNeuemFensterToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+End Class

BEA - Kopie/Übersicht/frmSuche.vb

@@ -0,0 +1,93 @@
+Public Class frmSuche
+
+    Dim m_suchdata As DataTable
+    Property SuchData As DataTable
+        Get
+            Return m_suchdata
+        End Get
+        Set(value As DataTable)
+            m_suchdata = value
+        End Set
+    End Property
+
+    Dim m_suchtree As DevComponents.AdvTree.AdvTree
+    Property SuchTree As DevComponents.AdvTree.AdvTree
+        Get
+            Return m_suchtree
+        End Get
+        Set(value As DevComponents.AdvTree.AdvTree)
+            m_suchtree = value
+        End Set
+    End Property
+
+    Dim dt As New DataTable
+    Dim u As New clsUebersichtre
+
+    Private Sub frmSuche_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        dt.Columns.Add("Key")
+        dt.Columns.Add("Typ")
+        dt.Columns.Add("Bezeichnung")
+        If Me.txtSuchbegriff.Text <> "" Then btnSuche_Click(sender, e)
+    End Sub
+
+    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
+        dt.Rows.Clear()
+        For Each dr As DataRow In Me.SuchData.Rows
+            If InStr(UCase(dr.Item("Bezeichnung")), UCase(Me.txtSuchbegriff.Text)) > 0 Or InStr(UCase(dr.Item("ErweiterteSuche")), UCase(Me.txtSuchbegriff.Text)) > 0 Then
+                Dim r As DataRow = dt.NewRow
+                r.Item(0) = dr.Item("ID")
+                r.Item(2) = dr.Item("Bezeichnung")
+                dt.Rows.Add(r)
+            End If
+        Next
+
+        For Each dr As DataRow In dt.Rows
+            Dim tn As New DevComponents.AdvTree.Node
+            tn = u.FindNode(Me.SuchTree.Nodes, dr.Item(0), "")
+            If Not tn Is Nothing Then
+                dr.Item(1) = u.TreeView_GetRootNode(Me.SuchTree, tn)
+            End If
+        Next
+        Me.C1Suchresultat.DataSource = Nothing
+        Me.C1Suchresultat.DataSource = dt
+        Me.C1Suchresultat.DataMember = dt.TableName
+        Me.C1Suchresultat.Splits(0).DisplayColumns(0).Width = 0
+        Me.C1Suchresultat.Splits(0).DisplayColumns(1).Width = 100
+        Me.C1Suchresultat.Splits(0).DisplayColumns(2).Width = 200
+
+        Me.txtSuchbegriff.SelectAll()
+    End Sub
+
+
+    Private Sub txtSuchbegriff_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuchbegriff.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            btnSuche_Click(sender, e)
+        End If
+    End Sub
+
+    Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click
+        Me.SuchTree.SelectedNode = u.FindNode(Me.SuchTree.Nodes, Me.C1Suchresultat.Columns(0).Value, "")
+    End Sub
+
+    Private Sub C1Suchresultat_DoubleClick(sender As Object, e As EventArgs) Handles C1Suchresultat.DoubleClick
+        Try
+            AnzeigenToolStripMenuItem_Click(sender, e)
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub C1Suchresultat_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Suchresultat.MouseDown
+        Me.C1Suchresultat.Bookmark = Me.C1Suchresultat.RowContaining(e.Y)
+    End Sub
+
+    Private Sub AnzeigenInNeuemFensterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenInNeuemFensterToolStripMenuItem.Click
+        Dim f As New frmUebersicht(Me.C1Suchresultat.Columns(0).Value)
+        f.MdiParent = Me.MdiParent
+        f.Show()
+    End Sub
+
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        Me.Close()
+    End Sub
+End Class

BEA - Kopie/Übersicht/frmUebersicht.Designer.vb

@@ -0,0 +1,450 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmUebersicht
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmUebersicht))
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.TsBtnSuchArt = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.ApplikationSucheToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStriptxtSuche = New System.Windows.Forms.ToolStripTextBox()
+        Me.TSBtnSuche = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnFilterAufheben = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnFirst = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnPrevious = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnNext = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnLast = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtnReadonly = New System.Windows.Forms.ToolStripButton()
+        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.TreeStruktur = New System.Windows.Forms.TreeView()
+        Me.ctxMenuTree = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.InEinemNeuenFensterÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator()
+        Me.KnotenÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.KnotenSchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.NeuesElementToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ElementLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ExportExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ExportVorbereitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator()
+        Me.Sync = New System.Windows.Forms.ToolStripMenuItem()
+        Me.NeueBeziehungErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.AllgMainObjekte1 = New _AllgMainObjekte.AllgMainObjekte()
+        Me.ctxMenuStripUebersicht = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.FensterGrösseSpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.MenuStrip1.SuspendLayout()
+        Me.ToolStrip1.SuspendLayout()
+        Me.SplitContainer1.Panel1.SuspendLayout()
+        Me.SplitContainer1.Panel2.SuspendLayout()
+        Me.SplitContainer1.SuspendLayout()
+        Me.ctxMenuTree.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        Me.ctxMenuStripUebersicht.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.AllowMerge = False
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(1097, 24)
+        Me.MenuStrip1.TabIndex = 4
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'DateiToolStripMenuItem
+        '
+        Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem})
+        Me.DateiToolStripMenuItem.MergeAction = System.Windows.Forms.MergeAction.MatchOnly
+        Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
+        Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
+        Me.DateiToolStripMenuItem.Text = "&Datei"
+        '
+        'SchliessenToolStripMenuItem
+        '
+        Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
+        Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
+        Me.SchliessenToolStripMenuItem.Text = "&Schliessen"
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripSeparator1, Me.TsBtnSuchArt, Me.ToolStriptxtSuche, Me.TSBtnSuche, Me.TSBtnFilterAufheben, Me.ToolStripButton1, Me.TSBtnFirst, Me.TSBtnPrevious, Me.TSBtnNext, Me.TSBtnLast, Me.tsbtnReadonly})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(1097, 25)
+        Me.ToolStrip1.TabIndex = 5
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'TSBtnQuit
+        '
+        Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
+        Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnQuit.Name = "TSBtnQuit"
+        Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnQuit.Text = "ToolStripButton1"
+        Me.TSBtnQuit.ToolTipText = "Anwendung beenden"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
+        '
+        'TsBtnSuchArt
+        '
+        Me.TsBtnSuchArt.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        Me.TsBtnSuchArt.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ApplikationSucheToolStripMenuItem})
+        Me.TsBtnSuchArt.Image = CType(resources.GetObject("TsBtnSuchArt.Image"), System.Drawing.Image)
+        Me.TsBtnSuchArt.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TsBtnSuchArt.Name = "TsBtnSuchArt"
+        Me.TsBtnSuchArt.Size = New System.Drawing.Size(59, 22)
+        Me.TsBtnSuchArt.Text = "Suchen"
+        '
+        'ApplikationSucheToolStripMenuItem
+        '
+        Me.ApplikationSucheToolStripMenuItem.Name = "ApplikationSucheToolStripMenuItem"
+        Me.ApplikationSucheToolStripMenuItem.Size = New System.Drawing.Size(107, 22)
+        Me.ApplikationSucheToolStripMenuItem.Text = "Filtern"
+        '
+        'ToolStriptxtSuche
+        '
+        Me.ToolStriptxtSuche.Name = "ToolStriptxtSuche"
+        Me.ToolStriptxtSuche.Size = New System.Drawing.Size(227, 25)
+        '
+        'TSBtnSuche
+        '
+        Me.TSBtnSuche.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnSuche.Image = CType(resources.GetObject("TSBtnSuche.Image"), System.Drawing.Image)
+        Me.TSBtnSuche.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnSuche.Name = "TSBtnSuche"
+        Me.TSBtnSuche.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnSuche.Text = "Suchen"
+        '
+        'TSBtnFilterAufheben
+        '
+        Me.TSBtnFilterAufheben.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnFilterAufheben.Image = CType(resources.GetObject("TSBtnFilterAufheben.Image"), System.Drawing.Image)
+        Me.TSBtnFilterAufheben.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnFilterAufheben.Name = "TSBtnFilterAufheben"
+        Me.TSBtnFilterAufheben.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnFilterAufheben.Text = "Filter aufheben"
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton1.Text = "Suchdialog"
+        '
+        'TSBtnFirst
+        '
+        Me.TSBtnFirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnFirst.Image = CType(resources.GetObject("TSBtnFirst.Image"), System.Drawing.Image)
+        Me.TSBtnFirst.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnFirst.Name = "TSBtnFirst"
+        Me.TSBtnFirst.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnFirst.Text = "Erster Datensatz"
+        '
+        'TSBtnPrevious
+        '
+        Me.TSBtnPrevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnPrevious.Image = CType(resources.GetObject("TSBtnPrevious.Image"), System.Drawing.Image)
+        Me.TSBtnPrevious.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnPrevious.Name = "TSBtnPrevious"
+        Me.TSBtnPrevious.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnPrevious.Text = "Vorheriger Datensatz"
+        '
+        'TSBtnNext
+        '
+        Me.TSBtnNext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnNext.Image = CType(resources.GetObject("TSBtnNext.Image"), System.Drawing.Image)
+        Me.TSBtnNext.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnNext.Name = "TSBtnNext"
+        Me.TSBtnNext.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnNext.Text = "Nächster Datensatz"
+        '
+        'TSBtnLast
+        '
+        Me.TSBtnLast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnLast.Image = CType(resources.GetObject("TSBtnLast.Image"), System.Drawing.Image)
+        Me.TSBtnLast.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnLast.Name = "TSBtnLast"
+        Me.TSBtnLast.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnLast.Text = "Letzter Datensatz"
+        '
+        'tsbtnReadonly
+        '
+        Me.tsbtnReadonly.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnReadonly.Image = CType(resources.GetObject("tsbtnReadonly.Image"), System.Drawing.Image)
+        Me.tsbtnReadonly.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnReadonly.Name = "tsbtnReadonly"
+        Me.tsbtnReadonly.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnReadonly.Text = "ReadonlyButton"
+        Me.tsbtnReadonly.Visible = False
+        '
+        'SplitContainer1
+        '
+        Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer1.Location = New System.Drawing.Point(0, 49)
+        Me.SplitContainer1.Name = "SplitContainer1"
+        '
+        'SplitContainer1.Panel1
+        '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.TreeStruktur)
+        '
+        'SplitContainer1.Panel2
+        '
+        Me.SplitContainer1.Panel2.Controls.Add(Me.Panel2)
+        Me.SplitContainer1.Size = New System.Drawing.Size(1097, 505)
+        Me.SplitContainer1.SplitterDistance = 364
+        Me.SplitContainer1.TabIndex = 6
+        '
+        'TreeStruktur
+        '
+        Me.TreeStruktur.AllowDrop = True
+        Me.TreeStruktur.ContextMenuStrip = Me.ctxMenuTree
+        Me.TreeStruktur.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TreeStruktur.FullRowSelect = True
+        Me.TreeStruktur.HideSelection = False
+        Me.TreeStruktur.ImageIndex = 0
+        Me.TreeStruktur.ImageList = Me.ImageList1
+        Me.TreeStruktur.Location = New System.Drawing.Point(0, 0)
+        Me.TreeStruktur.Name = "TreeStruktur"
+        Me.TreeStruktur.SelectedImageIndex = 0
+        Me.TreeStruktur.Size = New System.Drawing.Size(364, 505)
+        Me.TreeStruktur.TabIndex = 0
+        '
+        'ctxMenuTree
+        '
+        Me.ctxMenuTree.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InEinemNeuenFensterÖffnenToolStripMenuItem, Me.ToolStripMenuItem3, Me.KnotenÖffnenToolStripMenuItem, Me.KnotenSchliessenToolStripMenuItem, Me.ToolStripMenuItem1, Me.NeuesElementToolStripMenuItem, Me.ElementLöschenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ExportExcelToolStripMenuItem, Me.ExportVorbereitenToolStripMenuItem, Me.ToolStripMenuItem4, Me.Sync, Me.NeueBeziehungErstellenToolStripMenuItem})
+        Me.ctxMenuTree.Name = "ctxMenuTree"
+        Me.ctxMenuTree.Size = New System.Drawing.Size(321, 226)
+        '
+        'InEinemNeuenFensterÖffnenToolStripMenuItem
+        '
+        Me.InEinemNeuenFensterÖffnenToolStripMenuItem.Name = "InEinemNeuenFensterÖffnenToolStripMenuItem"
+        Me.InEinemNeuenFensterÖffnenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.InEinemNeuenFensterÖffnenToolStripMenuItem.Text = "In einem neuen Fenster öffnen"
+        '
+        'ToolStripMenuItem3
+        '
+        Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
+        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(317, 6)
+        '
+        'KnotenÖffnenToolStripMenuItem
+        '
+        Me.KnotenÖffnenToolStripMenuItem.Name = "KnotenÖffnenToolStripMenuItem"
+        Me.KnotenÖffnenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.KnotenÖffnenToolStripMenuItem.Text = "Knoten öffnen"
+        '
+        'KnotenSchliessenToolStripMenuItem
+        '
+        Me.KnotenSchliessenToolStripMenuItem.Name = "KnotenSchliessenToolStripMenuItem"
+        Me.KnotenSchliessenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.KnotenSchliessenToolStripMenuItem.Text = "Knoten schliessen"
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(317, 6)
+        '
+        'NeuesElementToolStripMenuItem
+        '
+        Me.NeuesElementToolStripMenuItem.Name = "NeuesElementToolStripMenuItem"
+        Me.NeuesElementToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.NeuesElementToolStripMenuItem.Text = "&Neues Element"
+        '
+        'ElementLöschenToolStripMenuItem
+        '
+        Me.ElementLöschenToolStripMenuItem.Name = "ElementLöschenToolStripMenuItem"
+        Me.ElementLöschenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.ElementLöschenToolStripMenuItem.Text = "&Element löschen"
+        '
+        'ToolStripMenuItem2
+        '
+        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
+        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(317, 6)
+        '
+        'ExportExcelToolStripMenuItem
+        '
+        Me.ExportExcelToolStripMenuItem.Name = "ExportExcelToolStripMenuItem"
+        Me.ExportExcelToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.ExportExcelToolStripMenuItem.Text = "Export Excel"
+        '
+        'ExportVorbereitenToolStripMenuItem
+        '
+        Me.ExportVorbereitenToolStripMenuItem.Name = "ExportVorbereitenToolStripMenuItem"
+        Me.ExportVorbereitenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.ExportVorbereitenToolStripMenuItem.Text = "Export vorbereiten"
+        '
+        'ToolStripMenuItem4
+        '
+        Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
+        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(317, 6)
+        '
+        'Sync
+        '
+        Me.Sync.Name = "Sync"
+        Me.Sync.Size = New System.Drawing.Size(320, 22)
+        Me.Sync.Text = "Sync. Verwaltung durch/mit, Dateneigentümer"
+        '
+        'NeueBeziehungErstellenToolStripMenuItem
+        '
+        Me.NeueBeziehungErstellenToolStripMenuItem.Name = "NeueBeziehungErstellenToolStripMenuItem"
+        Me.NeueBeziehungErstellenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.NeueBeziehungErstellenToolStripMenuItem.Text = "Neue Beziehung erstellen"
+        '
+        'ImageList1
+        '
+        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList1.Images.SetKeyName(0, "chart-organisation-icon.png")
+        Me.ImageList1.Images.SetKeyName(1, "chart-organisation-add-icon.png")
+        Me.ImageList1.Images.SetKeyName(2, "Person-Male-Light-icon.png")
+        Me.ImageList1.Images.SetKeyName(3, "Actions-user-group-new-icon.png")
+        Me.ImageList1.Images.SetKeyName(4, "security-unlock-icon.png")
+        Me.ImageList1.Images.SetKeyName(5, "security-unlock-icon_grp.png")
+        Me.ImageList1.Images.SetKeyName(6, "rules-icon.png")
+        Me.ImageList1.Images.SetKeyName(7, "rules-icon_grp.png")
+        Me.ImageList1.Images.SetKeyName(8, "Home-Server-icon.png")
+        Me.ImageList1.Images.SetKeyName(9, "Home-Server-icon.png")
+        Me.ImageList1.Images.SetKeyName(10, "Maint_1.png")
+        Me.ImageList1.Images.SetKeyName(11, "Maint_1.png")
+        Me.ImageList1.Images.SetKeyName(12, "Main_2.png")
+        Me.ImageList1.Images.SetKeyName(13, "Main_2.png")
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.AllgMainObjekte1)
+        Me.Panel2.Location = New System.Drawing.Point(39, 30)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(502, 309)
+        Me.Panel2.TabIndex = 2
+        '
+        'AllgMainObjekte1
+        '
+        Me.AllgMainObjekte1.AllowDrop = True
+        Me.AllgMainObjekte1.ConnectionFilename = Nothing
+        Me.AllgMainObjekte1.ConnectionString = Nothing
+        Me.AllgMainObjekte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.AllgMainObjekte1.Generic_Event_Handler = Nothing
+        Me.AllgMainObjekte1.isDirty = False
+        Me.AllgMainObjekte1.KeyValue = 0
+        Me.AllgMainObjekte1.Location = New System.Drawing.Point(0, 0)
+        Me.AllgMainObjekte1.Mitarbeiternr = 0
+        Me.AllgMainObjekte1.Name = "AllgMainObjekte1"
+        Me.AllgMainObjekte1.Size = New System.Drawing.Size(502, 309)
+        Me.AllgMainObjekte1.TabIndex = 0
+        Me.AllgMainObjekte1.TargetObjekt = 0
+        Me.AllgMainObjekte1.TempFilePath = "h:\tssettings\bea"
+        Me.AllgMainObjekte1.Type = Nothing
+        '
+        'ctxMenuStripUebersicht
+        '
+        Me.ctxMenuStripUebersicht.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FensterGrösseSpeichernToolStripMenuItem})
+        Me.ctxMenuStripUebersicht.Name = "ContextMenuStrip1"
+        Me.ctxMenuStripUebersicht.Size = New System.Drawing.Size(207, 26)
+        '
+        'FensterGrösseSpeichernToolStripMenuItem
+        '
+        Me.FensterGrösseSpeichernToolStripMenuItem.Name = "FensterGrösseSpeichernToolStripMenuItem"
+        Me.FensterGrösseSpeichernToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
+        Me.FensterGrösseSpeichernToolStripMenuItem.Text = "Fenster-Grösse speichern"
+        '
+        'frmUebersicht
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1097, 554)
+        Me.ContextMenuStrip = Me.ctxMenuStripUebersicht
+        Me.Controls.Add(Me.SplitContainer1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmUebersicht"
+        Me.Text = "Uebersicht"
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.SplitContainer1.Panel1.ResumeLayout(False)
+        Me.SplitContainer1.Panel2.ResumeLayout(False)
+        Me.SplitContainer1.ResumeLayout(False)
+        Me.ctxMenuTree.ResumeLayout(False)
+        Me.Panel2.ResumeLayout(False)
+        Me.ctxMenuStripUebersicht.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
+    Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
+    Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents TsBtnSuchArt As System.Windows.Forms.ToolStripDropDownButton
+    Friend WithEvents ApplikationSucheToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStriptxtSuche As System.Windows.Forms.ToolStripTextBox
+    Friend WithEvents TSBtnSuche As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnFilterAufheben As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnFirst As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnNext As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnPrevious As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnLast As System.Windows.Forms.ToolStripButton
+    Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
+    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
+    Friend WithEvents SchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents AllgMainObjekte1 As _AllgMainObjekte.AllgMainObjekte
+    Friend WithEvents ctxMenuTree As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents KnotenÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents KnotenSchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents tsbtnReadonly As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TreeStruktur As System.Windows.Forms.TreeView
+    Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents NeuesElementToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ElementLöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents ExportExcelToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ExportVorbereitenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ctxMenuStripUebersicht As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents FensterGrösseSpeichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents InEinemNeuenFensterÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents Sync As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents NeueBeziehungErstellenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+End Class

BEA - Kopie/Übersicht/frmUebersichtRE.Designer.vb

@@ -0,0 +1,486 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmUebersichtRE
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmUebersichtRE))
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.TsBtnSuchArt = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.ApplikationSucheToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStriptxtSuche = New System.Windows.Forms.ToolStripTextBox()
+        Me.TSBtnSuche = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnFilterAufheben = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnFirst = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnPrevious = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnNext = New System.Windows.Forms.ToolStripButton()
+        Me.TSBtnLast = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtnReadonly = New System.Windows.Forms.ToolStripButton()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+        Me.ctxMenuStripUebersicht = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.FensterGrösseSpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ctxMenuTree = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.InEinemNeuenFensterÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator()
+        Me.KnotenÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.KnotenSchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.NeuesElementToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ElementLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ExportExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ExportVorbereitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator()
+        Me.Sync = New System.Windows.Forms.ToolStripMenuItem()
+        Me.NeueBeziehungErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.TreeStruktur = New DevComponents.AdvTree.AdvTree()
+        Me.Node1 = New DevComponents.AdvTree.Node()
+        Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
+        Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
+        Me.AllgMainObjekte1 = New _AllgMainObjekte.AllgMainObjekte()
+        Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
+        Me.ToolStrip1.SuspendLayout()
+        Me.MenuStrip1.SuspendLayout()
+        Me.ctxMenuStripUebersicht.SuspendLayout()
+        Me.ctxMenuTree.SuspendLayout()
+        Me.SplitContainer1.Panel1.SuspendLayout()
+        Me.SplitContainer1.Panel2.SuspendLayout()
+        Me.SplitContainer1.SuspendLayout()
+        CType(Me.TreeStruktur, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripSeparator1, Me.TsBtnSuchArt, Me.ToolStriptxtSuche, Me.TSBtnSuche, Me.TSBtnFilterAufheben, Me.ToolStripButton1, Me.TSBtnFirst, Me.TSBtnPrevious, Me.TSBtnNext, Me.TSBtnLast, Me.tsbtnReadonly})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(1034, 25)
+        Me.ToolStrip1.TabIndex = 7
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'TSBtnQuit
+        '
+        Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
+        Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnQuit.Name = "TSBtnQuit"
+        Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnQuit.Text = "ToolStripButton1"
+        Me.TSBtnQuit.ToolTipText = "Anwendung beenden"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
+        '
+        'TsBtnSuchArt
+        '
+        Me.TsBtnSuchArt.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        Me.TsBtnSuchArt.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ApplikationSucheToolStripMenuItem})
+        Me.TsBtnSuchArt.Image = CType(resources.GetObject("TsBtnSuchArt.Image"), System.Drawing.Image)
+        Me.TsBtnSuchArt.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TsBtnSuchArt.Name = "TsBtnSuchArt"
+        Me.TsBtnSuchArt.Size = New System.Drawing.Size(59, 22)
+        Me.TsBtnSuchArt.Text = "Suchen"
+        '
+        'ApplikationSucheToolStripMenuItem
+        '
+        Me.ApplikationSucheToolStripMenuItem.Name = "ApplikationSucheToolStripMenuItem"
+        Me.ApplikationSucheToolStripMenuItem.Size = New System.Drawing.Size(107, 22)
+        Me.ApplikationSucheToolStripMenuItem.Text = "Filtern"
+        '
+        'ToolStriptxtSuche
+        '
+        Me.ToolStriptxtSuche.Name = "ToolStriptxtSuche"
+        Me.ToolStriptxtSuche.Size = New System.Drawing.Size(227, 25)
+        '
+        'TSBtnSuche
+        '
+        Me.TSBtnSuche.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnSuche.Image = CType(resources.GetObject("TSBtnSuche.Image"), System.Drawing.Image)
+        Me.TSBtnSuche.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnSuche.Name = "TSBtnSuche"
+        Me.TSBtnSuche.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnSuche.Text = "Suchen"
+        '
+        'TSBtnFilterAufheben
+        '
+        Me.TSBtnFilterAufheben.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnFilterAufheben.Image = CType(resources.GetObject("TSBtnFilterAufheben.Image"), System.Drawing.Image)
+        Me.TSBtnFilterAufheben.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnFilterAufheben.Name = "TSBtnFilterAufheben"
+        Me.TSBtnFilterAufheben.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnFilterAufheben.Text = "Filter aufheben"
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton1.Text = "Suchdialog"
+        '
+        'TSBtnFirst
+        '
+        Me.TSBtnFirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnFirst.Image = CType(resources.GetObject("TSBtnFirst.Image"), System.Drawing.Image)
+        Me.TSBtnFirst.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnFirst.Name = "TSBtnFirst"
+        Me.TSBtnFirst.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnFirst.Text = "Erster Datensatz"
+        '
+        'TSBtnPrevious
+        '
+        Me.TSBtnPrevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnPrevious.Image = CType(resources.GetObject("TSBtnPrevious.Image"), System.Drawing.Image)
+        Me.TSBtnPrevious.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnPrevious.Name = "TSBtnPrevious"
+        Me.TSBtnPrevious.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnPrevious.Text = "Vorheriger Datensatz"
+        '
+        'TSBtnNext
+        '
+        Me.TSBtnNext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnNext.Image = CType(resources.GetObject("TSBtnNext.Image"), System.Drawing.Image)
+        Me.TSBtnNext.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnNext.Name = "TSBtnNext"
+        Me.TSBtnNext.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnNext.Text = "Nächster Datensatz"
+        '
+        'TSBtnLast
+        '
+        Me.TSBtnLast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnLast.Image = CType(resources.GetObject("TSBtnLast.Image"), System.Drawing.Image)
+        Me.TSBtnLast.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnLast.Name = "TSBtnLast"
+        Me.TSBtnLast.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnLast.Text = "Letzter Datensatz"
+        '
+        'tsbtnReadonly
+        '
+        Me.tsbtnReadonly.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnReadonly.Image = CType(resources.GetObject("tsbtnReadonly.Image"), System.Drawing.Image)
+        Me.tsbtnReadonly.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnReadonly.Name = "tsbtnReadonly"
+        Me.tsbtnReadonly.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnReadonly.Text = "ReadonlyButton"
+        Me.tsbtnReadonly.Visible = False
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.AllowMerge = False
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(1034, 24)
+        Me.MenuStrip1.TabIndex = 6
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'DateiToolStripMenuItem
+        '
+        Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem})
+        Me.DateiToolStripMenuItem.MergeAction = System.Windows.Forms.MergeAction.MatchOnly
+        Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
+        Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
+        Me.DateiToolStripMenuItem.Text = "&Datei"
+        '
+        'SchliessenToolStripMenuItem
+        '
+        Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
+        Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
+        Me.SchliessenToolStripMenuItem.Text = "&Schliessen"
+        '
+        'ImageList1
+        '
+        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList1.Images.SetKeyName(0, "chart-organisation-icon.png")
+        Me.ImageList1.Images.SetKeyName(1, "chart-organisation-add-icon.png")
+        Me.ImageList1.Images.SetKeyName(2, "Person-Male-Light-icon.png")
+        Me.ImageList1.Images.SetKeyName(3, "Actions-user-group-new-icon.png")
+        Me.ImageList1.Images.SetKeyName(4, "security-unlock-icon.png")
+        Me.ImageList1.Images.SetKeyName(5, "security-unlock-icon_grp.png")
+        Me.ImageList1.Images.SetKeyName(6, "rules-icon.png")
+        Me.ImageList1.Images.SetKeyName(7, "rules-icon_grp.png")
+        Me.ImageList1.Images.SetKeyName(8, "Home-Server-icon.png")
+        Me.ImageList1.Images.SetKeyName(9, "Home-Server-icon.png")
+        Me.ImageList1.Images.SetKeyName(10, "Maint_1.png")
+        Me.ImageList1.Images.SetKeyName(11, "Maint_1.png")
+        Me.ImageList1.Images.SetKeyName(12, "Main_2.png")
+        Me.ImageList1.Images.SetKeyName(13, "Main_2.png")
+        '
+        'ctxMenuStripUebersicht
+        '
+        Me.ctxMenuStripUebersicht.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FensterGrösseSpeichernToolStripMenuItem})
+        Me.ctxMenuStripUebersicht.Name = "ContextMenuStrip1"
+        Me.ctxMenuStripUebersicht.Size = New System.Drawing.Size(207, 26)
+        '
+        'FensterGrösseSpeichernToolStripMenuItem
+        '
+        Me.FensterGrösseSpeichernToolStripMenuItem.Name = "FensterGrösseSpeichernToolStripMenuItem"
+        Me.FensterGrösseSpeichernToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
+        Me.FensterGrösseSpeichernToolStripMenuItem.Text = "Fenster-Grösse speichern"
+        '
+        'ctxMenuTree
+        '
+        Me.ctxMenuTree.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InEinemNeuenFensterÖffnenToolStripMenuItem, Me.ToolStripMenuItem3, Me.KnotenÖffnenToolStripMenuItem, Me.KnotenSchliessenToolStripMenuItem, Me.ToolStripMenuItem1, Me.NeuesElementToolStripMenuItem, Me.ElementLöschenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ExportExcelToolStripMenuItem, Me.ExportVorbereitenToolStripMenuItem, Me.ToolStripMenuItem4, Me.Sync, Me.NeueBeziehungErstellenToolStripMenuItem})
+        Me.ctxMenuTree.Name = "ctxMenuTree"
+        Me.ctxMenuTree.Size = New System.Drawing.Size(321, 226)
+        '
+        'InEinemNeuenFensterÖffnenToolStripMenuItem
+        '
+        Me.InEinemNeuenFensterÖffnenToolStripMenuItem.Name = "InEinemNeuenFensterÖffnenToolStripMenuItem"
+        Me.InEinemNeuenFensterÖffnenToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys)
+        Me.InEinemNeuenFensterÖffnenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.InEinemNeuenFensterÖffnenToolStripMenuItem.Text = "In einem neuen Fenster öffnen"
+        '
+        'ToolStripMenuItem3
+        '
+        Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
+        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(317, 6)
+        '
+        'KnotenÖffnenToolStripMenuItem
+        '
+        Me.KnotenÖffnenToolStripMenuItem.Name = "KnotenÖffnenToolStripMenuItem"
+        Me.KnotenÖffnenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.KnotenÖffnenToolStripMenuItem.Text = "Knoten öffnen"
+        '
+        'KnotenSchliessenToolStripMenuItem
+        '
+        Me.KnotenSchliessenToolStripMenuItem.Name = "KnotenSchliessenToolStripMenuItem"
+        Me.KnotenSchliessenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.KnotenSchliessenToolStripMenuItem.Text = "Knoten schliessen"
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(317, 6)
+        '
+        'NeuesElementToolStripMenuItem
+        '
+        Me.NeuesElementToolStripMenuItem.Name = "NeuesElementToolStripMenuItem"
+        Me.NeuesElementToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys)
+        Me.NeuesElementToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.NeuesElementToolStripMenuItem.Text = "&Neues Element"
+        '
+        'ElementLöschenToolStripMenuItem
+        '
+        Me.ElementLöschenToolStripMenuItem.Name = "ElementLöschenToolStripMenuItem"
+        Me.ElementLöschenToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.X), System.Windows.Forms.Keys)
+        Me.ElementLöschenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.ElementLöschenToolStripMenuItem.Text = "&Element löschen"
+        '
+        'ToolStripMenuItem2
+        '
+        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
+        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(317, 6)
+        '
+        'ExportExcelToolStripMenuItem
+        '
+        Me.ExportExcelToolStripMenuItem.Name = "ExportExcelToolStripMenuItem"
+        Me.ExportExcelToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.ExportExcelToolStripMenuItem.Text = "Export Excel"
+        '
+        'ExportVorbereitenToolStripMenuItem
+        '
+        Me.ExportVorbereitenToolStripMenuItem.Name = "ExportVorbereitenToolStripMenuItem"
+        Me.ExportVorbereitenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.ExportVorbereitenToolStripMenuItem.Text = "Export vorbereiten"
+        '
+        'ToolStripMenuItem4
+        '
+        Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
+        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(317, 6)
+        '
+        'Sync
+        '
+        Me.Sync.Name = "Sync"
+        Me.Sync.Size = New System.Drawing.Size(320, 22)
+        Me.Sync.Text = "Sync. Verwaltung durch/mit, Dateneigentümer"
+        '
+        'NeueBeziehungErstellenToolStripMenuItem
+        '
+        Me.NeueBeziehungErstellenToolStripMenuItem.Name = "NeueBeziehungErstellenToolStripMenuItem"
+        Me.NeueBeziehungErstellenToolStripMenuItem.Size = New System.Drawing.Size(320, 22)
+        Me.NeueBeziehungErstellenToolStripMenuItem.Text = "Neue Beziehung erstellen"
+        '
+        'SplitContainer1
+        '
+        Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer1.Location = New System.Drawing.Point(0, 49)
+        Me.SplitContainer1.Name = "SplitContainer1"
+        '
+        'SplitContainer1.Panel1
+        '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.TreeStruktur)
+        '
+        'SplitContainer1.Panel2
+        '
+        Me.SplitContainer1.Panel2.Controls.Add(Me.AllgMainObjekte1)
+        Me.SplitContainer1.Size = New System.Drawing.Size(1034, 426)
+        Me.SplitContainer1.SplitterDistance = 300
+        Me.SplitContainer1.TabIndex = 14
+        '
+        'TreeStruktur
+        '
+        Me.TreeStruktur.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
+        Me.TreeStruktur.AllowDrop = True
+        Me.TreeStruktur.BackColor = System.Drawing.SystemColors.Window
+        '
+        '
+        '
+        Me.TreeStruktur.BackgroundStyle.Class = "TreeBorderKey"
+        Me.TreeStruktur.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.TreeStruktur.ContextMenuStrip = Me.ctxMenuTree
+        Me.TreeStruktur.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TreeStruktur.HotTracking = True
+        Me.TreeStruktur.ImageList = Me.ImageList1
+        Me.TreeStruktur.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
+        Me.TreeStruktur.Location = New System.Drawing.Point(0, 0)
+        Me.TreeStruktur.MultiSelect = True
+        Me.TreeStruktur.Name = "TreeStruktur"
+        Me.TreeStruktur.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node1})
+        Me.TreeStruktur.NodesConnector = Me.NodeConnector1
+        Me.TreeStruktur.NodeStyle = Me.ElementStyle1
+        Me.TreeStruktur.NodeStyleSelected = Me.ElementStyle1
+        Me.TreeStruktur.PathSeparator = ";"
+        Me.TreeStruktur.Size = New System.Drawing.Size(300, 426)
+        Me.TreeStruktur.Styles.Add(Me.ElementStyle1)
+        Me.TreeStruktur.TabIndex = 14
+        Me.TreeStruktur.Text = "AdvTree1"
+        '
+        'Node1
+        '
+        Me.Node1.Expanded = True
+        Me.Node1.Name = "Node1"
+        Me.Node1.Text = "Node1"
+        '
+        'NodeConnector1
+        '
+        Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
+        '
+        'ElementStyle1
+        '
+        Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.ElementStyle1.Name = "ElementStyle1"
+        Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
+        '
+        'AllgMainObjekte1
+        '
+        Me.AllgMainObjekte1.AllowDrop = True
+        Me.AllgMainObjekte1.ConnectionFilename = Nothing
+        Me.AllgMainObjekte1.ConnectionString = Nothing
+        Me.AllgMainObjekte1.Generic_Event_Handler = Nothing
+        Me.AllgMainObjekte1.isDirty = False
+        Me.AllgMainObjekte1.KeyValue = 0
+        Me.AllgMainObjekte1.Location = New System.Drawing.Point(15, 23)
+        Me.AllgMainObjekte1.Mitarbeiternr = 0
+        Me.AllgMainObjekte1.Name = "AllgMainObjekte1"
+        Me.AllgMainObjekte1.Size = New System.Drawing.Size(674, 376)
+        Me.AllgMainObjekte1.TabIndex = 0
+        Me.AllgMainObjekte1.TargetObjekt = 0
+        Me.AllgMainObjekte1.TempFilePath = Nothing
+        Me.AllgMainObjekte1.TreeHandle = 0
+        Me.AllgMainObjekte1.Type = Nothing
+        '
+        'ImageList2
+        '
+        Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList2.Images.SetKeyName(0, "Hands-One-Finger-icon.png")
+        '
+        'frmUebersichtRE
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1034, 475)
+        Me.ContextMenuStrip = Me.ctxMenuStripUebersicht
+        Me.Controls.Add(Me.SplitContainer1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmUebersichtRE"
+        Me.Text = "Übersicht"
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        Me.ctxMenuStripUebersicht.ResumeLayout(False)
+        Me.ctxMenuTree.ResumeLayout(False)
+        Me.SplitContainer1.Panel1.ResumeLayout(False)
+        Me.SplitContainer1.Panel2.ResumeLayout(False)
+        Me.SplitContainer1.ResumeLayout(False)
+        CType(Me.TreeStruktur, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
+    Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents TsBtnSuchArt As System.Windows.Forms.ToolStripDropDownButton
+    Friend WithEvents ApplikationSucheToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStriptxtSuche As System.Windows.Forms.ToolStripTextBox
+    Friend WithEvents TSBtnSuche As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnFilterAufheben As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnFirst As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnPrevious As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnNext As System.Windows.Forms.ToolStripButton
+    Friend WithEvents TSBtnLast As System.Windows.Forms.ToolStripButton
+    Friend WithEvents tsbtnReadonly As System.Windows.Forms.ToolStripButton
+    Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
+    Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents SchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
+    Friend WithEvents ctxMenuTree As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents InEinemNeuenFensterÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents KnotenÖffnenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents KnotenSchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents NeuesElementToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ElementLöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents ExportExcelToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ExportVorbereitenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents Sync As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents NeueBeziehungErstellenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ctxMenuStripUebersicht As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents FensterGrösseSpeichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
+    Friend WithEvents TreeStruktur As DevComponents.AdvTree.AdvTree
+    Friend WithEvents Node1 As DevComponents.AdvTree.Node
+    Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
+    Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
+    Friend WithEvents AllgMainObjekte1 As _AllgMainObjekte.AllgMainObjekte
+    Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
+End Class

BEA - Kopie/Übersicht/frmUebersichtRE.vb

@@ -0,0 +1,997 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+Imports System.Reflection
+
+
+Public Class frmUebersichtRE
+
+
+#Region "Deklarationen"
+    Dim Uebersicht As New clsUebersichtre
+    Dim KeyValue As Integer = -1
+    Dim TargetDBObject As String
+    Dim WithEvents evh As _Generic_Event_Handler.Generic_Event_Handler = Globals.Generic_Event_Handler
+    Dim Datenklasse As New _DataClass.DataClass
+    Dim sec As New Utils.MySecurity
+    Dim Change_Keys As Boolean = False
+    Dim WHandler As New clsWindowHandling
+    Dim WithEvents fneuebeziehung As _AllgMainObjekte.frmSetNeueBeziehung
+    Dim allNodes As List(Of TreeNode) = New List(Of TreeNode)()
+    Dim OnTreeRefresh As Boolean = False
+    Dim mymsg As New Utils.MyMessage
+    Dim Active_Node As TreeNode
+
+    Dim movecopy_sourcekey As Integer
+    Dim movecopy_grid As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+    Dim instopmode As Boolean = False
+    Private ico As Icon
+
+    Private customCursor As Cursor
+    Dim onload As Boolean = False
+    Dim xpoint As Integer
+    Dim ypoint As Integer
+#End Region
+
+#Region "Form"
+
+    Private Sub frmUebersichtRE_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        If AllgMainObjekte1.isDirty Then
+            If MsgBox("Daten wurden verändert. Wollen Sie diese speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
+                Me.OnTreeRefresh = True
+                AllgMainObjekte1.Save_Data(False)
+                Me.OnTreeRefresh = False
+            Else
+                Me.AllgMainObjekte1.isDirty = False
+            End If
+        End If
+    End Sub
+
+
+    Private Sub frmUebersichtRE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.onload = True
+        Try
+            movecopy_grid = Globals.MoveCopy_Grid
+        Catch ex As Exception
+
+        End Try
+        Refresh_Tree(Me.KeyValue)
+        sec.Set_Form_Security(Me)
+        If Me.tsbtnReadonly.Enabled = False Then
+            Me.TreeStruktur.AllowDrop = False
+        End If
+        Me.Cursor = Cursors.WaitCursor
+        Refresh_Tree(Me.KeyValue)
+        Me.Cursor = Cursors.Default
+        Me.WHandler.get_windowsize(1)
+        If WHandler.Width > 0 Then Me.Width = WHandler.Width
+        If WHandler.height > 0 Then Me.Height = WHandler.height
+        Me.WHandler.get_windowsize(11)
+        If WHandler.Width > 0 Then Me.SplitContainer1.SplitterDistance = WHandler.Width
+        Me.onload = False
+        Me.TreeStruktur.FullRowSelect = True
+    End Sub
+
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Datenklasse.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
+        Datenklasse.ConnectionString = Globals.sConnectionString
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Sub New(Optional ByVal Keyvalue As Integer = -1)
+        InitializeComponent()
+        Me.KeyValue = Keyvalue
+        Datenklasse.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
+        Datenklasse.ConnectionString = Globals.sConnectionString
+    End Sub
+#End Region
+
+#Region "Toolbar/Menu"
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
+        Me.TSBtnQuit_Click(sender, e)
+    End Sub
+
+    Public Sub TSBtnSuche_Click(sender As Object, e As EventArgs) Handles TSBtnSuche.Click
+        If AllgMainObjekte1.isDirty Then
+            If MsgBox("Daten wurden verändert. Wollen Sie diese speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
+                Me.OnTreeRefresh = True
+                AllgMainObjekte1.Save_Data(False)
+                Me.OnTreeRefresh = False
+            Else
+                Me.AllgMainObjekte1.isDirty = False
+            End If
+        End If
+        Uebersicht.Init_Search()
+        Me.onload = True
+        Me.TreeStruktur.SelectedNode = Uebersicht.SearchNode(Me.TreeStruktur, Trim(Me.ToolStriptxtSuche.Text))
+        Me.onload = False
+    End Sub
+
+    Private Sub TSBtnNext_Click(sender As Object, e As EventArgs) Handles TSBtnNext.Click
+        If AllgMainObjekte1.isDirty Then
+            If MsgBox("Daten wurden verändert. Wollen Sie diese speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
+                Me.OnTreeRefresh = True
+                AllgMainObjekte1.Save_Data(False)
+                Me.OnTreeRefresh = False
+            Else
+                Me.AllgMainObjekte1.isDirty = False
+            End If
+        End If
+        Me.onload = True
+        Me.TreeStruktur.SelectedNode = Uebersicht.FindNextNode(Me.TreeStruktur)
+        Me.onload = False
+    End Sub
+
+
+    Private Sub ToolStriptxtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles ToolStriptxtSuche.KeyDown
+        If AllgMainObjekte1.isDirty Then
+            If MsgBox("Daten wurden verändert. Wollen Sie diese speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
+                Me.OnTreeRefresh = True
+                AllgMainObjekte1.Save_Data(False)
+                Me.OnTreeRefresh = False
+            Else
+                Me.AllgMainObjekte1.isDirty = False
+            End If
+        End If
+        If e.KeyCode = Keys.Enter Then
+            Me.onload = True
+            TSBtnSuche_Click(sender, e)
+            Me.onload = False
+        End If
+    End Sub
+
+    Private Sub TSBtnPrevious_Click(sender As Object, e As EventArgs) Handles TSBtnPrevious.Click
+        If AllgMainObjekte1.isDirty Then
+            If MsgBox("Daten wurden verändert. Wollen Sie diese speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
+                Me.OnTreeRefresh = True
+                AllgMainObjekte1.Save_Data(False)
+                Me.OnTreeRefresh = False
+            Else
+                Me.AllgMainObjekte1.isDirty = False
+            End If
+        End If
+        Me.onload = True
+        Me.TreeStruktur.SelectedNode = Uebersicht.FindPrevNode(Me.TreeStruktur)
+        Me.onload = False
+    End Sub
+
+    Private Sub TSBtnFirst_Click(sender As Object, e As EventArgs) Handles TSBtnFirst.Click
+        If AllgMainObjekte1.isDirty Then
+            If MsgBox("Daten wurden verändert. Wollen Sie diese speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
+                AllgMainObjekte1.Save_Data()
+            End If
+        End If
+        Me.onload = True
+        Me.TreeStruktur.SelectedNode = Uebersicht.FindFirst(Me.TreeStruktur)
+        Me.onload = False
+    End Sub
+
+    Private Sub TSBtnLast_Click(sender As Object, e As EventArgs) Handles TSBtnLast.Click
+        If AllgMainObjekte1.isDirty Then
+            If MsgBox("Daten wurden verändert. Wollen Sie diese speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
+                Me.OnTreeRefresh = True
+                AllgMainObjekte1.Save_Data(False)
+                Me.OnTreeRefresh = False
+            Else
+                Me.AllgMainObjekte1.isDirty = False
+            End If
+        End If
+        Me.onload = True
+        Me.TreeStruktur.SelectedNode = Uebersicht.FindLastNode(Me.TreeStruktur)
+        Me.onload = False
+    End Sub
+
+    Private Sub TSBtnFilterAufheben_Click(sender As Object, e As EventArgs) Handles TSBtnFilterAufheben.Click
+        If AllgMainObjekte1.isDirty Then
+            If MsgBox("Daten wurden verändert. Wollen Sie diese speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
+                Me.OnTreeRefresh = True
+                AllgMainObjekte1.Save_Data(False)
+                Me.OnTreeRefresh = False
+            Else
+                Me.AllgMainObjekte1.isDirty = False
+            End If
+        End If
+        Me.ToolStriptxtSuche.Text = ""
+        Uebersicht.Init_Search()
+    End Sub
+#End Region
+
+#Region "Treehandling"
+
+    Sub Refresh_Tree(ByVal Keyvalue As Integer, Optional NodeCollection As TreeNodeCollection = Nothing)
+        TreeStruktur.Nodes.Clear()
+        Uebersicht.Load_Treeview(Me.TreeStruktur)
+        If Keyvalue <> -1 Then
+            Me.TreeStruktur.SelectedNode = Me.Uebersicht.FindNode(Me.TreeStruktur.Nodes, Keyvalue, Keyvalue)
+        Else
+            Me.TreeStruktur.SelectedNode = TreeStruktur.Nodes(0)
+        End If
+    End Sub
+
+    Private Sub TreeStruktur_AfterNodeDrop(sender As Object, e As DevComponents.AdvTree.TreeDragDropEventArgs) Handles TreeStruktur.AfterNodeDrop
+        'If e.OldParentNode.TreeControl.Handle = Me.TreeStruktur.Handle Then
+        Dim destinationnode As New DevComponents.AdvTree.Node
+        destinationnode = e.NewParentNode
+        For Each n As DevComponents.AdvTree.Node In e.Nodes
+            Dim DBOBjektname = Uebersicht.Get_DBObjektname(Me.Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, destinationnode))
+            Dim DBObjekt As New Object
+            Datenklasse.CreateNew(DBOBjektname, DBObjekt)
+            DBObjekt.get_data(n.Tag)
+            DBObjekt.iparentid = New SqlInt32(CType(destinationnode.Tag, Int32))
+            DBObjekt.save_data()
+            DBObjekt.dispose()
+            n.Parent.Nodes.Sort()
+            evh.Fire_Icon_Changed(e.OldParentNode.Tag, get_Icon(e.OldParentNode))
+            evh.Fire_Node_Moved(n, e.NewParentNode, Me.TreeStruktur.Handle)
+            Globals.TempTreeControl = e.OldParentNode.TreeControl
+            Globals.TempTreeOldParentNode = e.OldParentNode
+            Globals.TempTreeNewParentNode = e.NewParentNode
+            Globals.TempTreeCurrentNode = e.Node
+            Globals.TempTreeControl1 = Me.TreeStruktur
+
+            evh.Fire_Node_Droped()
+
+        Next
+
+    End Sub
+
+    Private Sub TreeStruktur_AfterNodeSelect(sender As Object, e As DevComponents.AdvTree.AdvTreeNodeEventArgs) Handles TreeStruktur.AfterNodeSelect
+        Try
+            TreeStruktur_Click(sender, e)
+        Catch
+        End Try
+
+    End Sub
+
+
+    Private Sub TreeStruktur_BeforeNodeDrop(sender As Object, e As DevComponents.AdvTree.TreeDragDropEventArgs) Handles TreeStruktur.BeforeNodeDrop
+        Try
+            If e.OldParentNode.TreeControl.Handle <> Me.TreeStruktur.Handle Then
+                Dim tn As New DevComponents.AdvTree.Node
+                tn = Uebersicht.FindNode(Me.TreeStruktur.Nodes, e.Node.Tag, e.Node.Tag)
+                tn.Remove()
+            End If
+        Catch ex As Exception
+        End Try
+
+        Dim DestinationNode As DevComponents.AdvTree.Node
+        Dim SourceNode As DevComponents.AdvTree.Node
+        SourceNode = e.Node
+        DestinationNode = e.NewParentNode
+        Try
+            If Me.Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, DestinationNode) = Me.Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, SourceNode) And _
+                SourceNode.Tag <> DestinationNode.Tag Then
+                'TreeNode found allow move effect
+                e.Cancel = False
+                TreeStruktur.DragDropEnabled = True
+            Else
+                'No TreeNode found, prevent move
+                e.Cancel = True
+                TreeStruktur.DragDropEnabled = True
+            End If
+        Catch ex As Exception
+            e.Cancel = True
+            TreeStruktur.DragDropEnabled = True
+        End Try
+    End Sub
+
+    Private Sub TreeStruktur_BeforeNodeSelect(sender As Object, e As DevComponents.AdvTree.AdvTreeNodeCancelEventArgs) Handles TreeStruktur.BeforeNodeSelect
+        If MoveCopy <> 0 And instopmode = True Then e.Cancel = True
+    End Sub
+
+    Private Sub TreeStruktur_Click(sender As Object, e As EventArgs) Handles TreeStruktur.Click
+        If OnTreeRefresh Then Exit Sub
+
+        Try
+            If Globals.MoveCopy <> 0 And movecopy_sourcekey = Me.TreeStruktur.SelectedNode.Tag Then Exit Sub
+        Catch
+        End Try
+        If Not onload Then
+            If Globals.MoveCopy = 1 Then
+                Dim a As MsgBoxResult = MsgBox("Beziehungen nach '" + Me.TreeStruktur.SelectedNode.Text + "' verschieben?", vbYesNoCancel + vbQuestion, "Beziehungen")
+                Select Case a
+                    Case MsgBoxResult.Cancel
+                        Cursor = Cursors.Default
+                        Globals.MoveCopy = 0
+                    Case MsgBoxResult.No
+                    Case MsgBoxResult.Yes
+                        AllgMainObjekte1.Update_Beziehung(TreeStruktur.SelectedNode.Tag, Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, TreeStruktur.SelectedNode), movecopy_grid, 1)
+                        Cursor = Cursors.Default
+                        Globals.MoveCopy = 0
+                        evh.Fire_Refresh_SelectedNodes()
+                        'Exit Sub
+                End Select
+            End If
+            If Globals.MoveCopy = 2 Then
+                Dim a As MsgBoxResult = MsgBox("Beziehungen nach '" + Me.TreeStruktur.SelectedNode.Text + "' kopieren?", vbYesNoCancel + vbQuestion, "Beziehungen")
+                Select Case a
+                    Case MsgBoxResult.Cancel
+                        Cursor = Cursors.Default
+                        Globals.MoveCopy = 0
+                    Case MsgBoxResult.No
+                    Case MsgBoxResult.Yes
+                        AllgMainObjekte1.Update_Beziehung(TreeStruktur.SelectedNode.Tag, Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, TreeStruktur.SelectedNode), movecopy_grid, 2)
+                        Cursor = Cursors.Default
+                        Globals.MoveCopy = 0
+                        evh.Fire_Refresh_SelectedNodes()
+                        'Exit Sub
+                End Select
+            End If
+        End If
+        If TreeStruktur.SelectedNode Is Nothing Then Exit Sub
+        If AllgMainObjekte1.isDirty Then
+            If MsgBox("Daten wurden verändert. Wollen Sie diese speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
+                Me.OnTreeRefresh = True
+                AllgMainObjekte1.Save_Data(True)
+                Me.OnTreeRefresh = False
+            Else
+                Me.AllgMainObjekte1.isDirty = False
+            End If
+        End If
+        Me.SuspendLayout()
+        Me.AllgMainObjekte1.Generic_Event_Handler = Globals.Generic_Event_Handler
+        Me.AllgMainObjekte1.Dock = DockStyle.Fill
+        Me.AllgMainObjekte1.ConnectionFilename = Globals.ConnectionFileName
+        Me.AllgMainObjekte1.ConnectionString = Globals.sConnectionString
+        Me.AllgMainObjekte1.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
+        Me.AllgMainObjekte1.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
+        Me.AllgMainObjekte1.Type = Datenklasse.Get_SelectionTypeText(Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, Me.TreeStruktur.SelectedNode))
+        Me.AllgMainObjekte1.KeyValue = Me.TreeStruktur.SelectedNode.Tag
+        Me.AllgMainObjekte1.TreeHandle = Me.TreeStruktur.Handle
+        Me.ResumeLayout()
+    End Sub
+
+
+    Private Sub TreeStruktur_MouseMove(sender As Object, e As MouseEventArgs) Handles TreeStruktur.MouseMove
+        'If Globals.MoveCopy = 0 Then
+        '    Cursor = Cursors.Default
+        '    Exit Sub
+        'End If
+        'Dim DestinationNode As New DevComponents.AdvTree.Node
+        'Dim pt As Point = CType(sender, DevComponents.AdvTree.AdvTree).PointToClient(New Point(e.X, e.Y))
+        'pt = New Point(e.X, e.Y)
+        'DestinationNode = TreeStruktur.GetNodeAt(e.X, e.Y)
+        'If DestinationNode Is Nothing Then Exit Sub
+        'Dim zielname As String
+        'Dim sourcename As String
+        'Dim tn As DevComponents.AdvTree.Node
+
+        'zielname = Uebersicht.Get_DBObjektname(Me.Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, DestinationNode))
+
+        'tn = Uebersicht.FindNode(Me.TreeStruktur.Nodes, Me.movecopy_sourcekey, movecopy_sourcekey)
+        'sourcename = Uebersicht.Get_DBObjektname(Me.Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, tn))
+
+        'If sourcename <> zielname Then
+        '    Dim bmp As New Bitmap(CType(My.Resources.ResourceManager.GetObject("Stop"), Image))
+        '    ico = Icon.FromHandle(bmp.GetHicon)
+        '    customCursor = New Cursor(ico.Handle)
+        '    instopmode = True
+        '    Me.Cursor = customCursor
+        '    Exit Sub
+        'End If
+        instopmode = False
+        If Globals.MoveCopy = 2 Then
+            Dim bmp As New Bitmap(CType(My.Resources.ResourceManager.GetObject("CopyCursor"), Image))
+            ico = Icon.FromHandle(bmp.GetHicon)
+            customCursor = New Cursor(ico.Handle)
+            Me.Cursor = customCursor
+            Exit Sub
+        End If
+        If Globals.MoveCopy = 1 Then
+            Dim bmp As New Bitmap(CType(My.Resources.ResourceManager.GetObject("MoveCursor"), Image))
+            ico = Icon.FromHandle(bmp.GetHicon)
+            customCursor = New Cursor(ico.Handle)
+            Me.Cursor = customCursor
+            Exit Sub
+        End If
+        If Me.Cursor <> Cursors.Default Then Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub TreeStruktur_DragEnter(sender As Object, e As DragEventArgs) Handles TreeStruktur.DragEnter
+        If e.Data.GetDataPresent("DevComponents.AdvTree.Node", True) Then
+
+            'TreeNode found allow move effect
+            e.Effect = DragDropEffects.Move
+        Else
+            If e.Data.GetDataPresent("C1.Win.C1TrueDBGrid.C1TrueDBGrid", True) = True Then
+                e.Effect = DragDropEffects.Link
+            Else
+                e.Effect = DragDropEffects.None
+            End If
+
+        End If
+
+    End Sub
+
+    Private Sub TreeStruktur_DragOver(sender As Object, e As DragEventArgs) Handles TreeStruktur.DragOver
+        If e.Data.GetDataPresent("C1.Win.C1TrueDBGrid.C1TrueDBGrid", True) = True Then
+            e.Effect = DragDropEffects.Copy
+        End If
+
+    End Sub
+
+#End Region
+
+#Region "Contextmenu-Tree"
+
+    Private Sub ctxMenuTree_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ctxMenuTree.Opening
+        Try
+            Dim pt As Point
+            pt = Me.TreeStruktur.PointToClient(New Point(xpoint, ypoint))
+            Me.TreeStruktur.SelectedNode = Me.TreeStruktur.GetNodeAt(pt)
+        Catch ex As Exception
+
+        End Try
+        If Me.TreeStruktur.SelectedNodes.Count > 1 Then
+            ElementLöschenToolStripMenuItem.Text = "Elemente löschen"
+        Else
+            ElementLöschenToolStripMenuItem.Text = "Element löschen"
+        End If
+
+        If Me.TreeStruktur.SelectedNode.Tag < 0 Then
+            Me.NeuesElementToolStripMenuItem.Enabled = True
+            Me.ElementLöschenToolStripMenuItem.Enabled = False
+        Else
+            Me.NeuesElementToolStripMenuItem.Enabled = True
+            Me.ElementLöschenToolStripMenuItem.Enabled = True
+
+        End If
+        Globals.ncol.Clear()
+        If Me.TreeStruktur.SelectedNodes.Count > 0 Then
+            Me.ElementLöschenToolStripMenuItem.Enabled = False
+        End If
+        Dim s As String
+        s = Datenklasse.Get_SelectionTypeText(Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, Me.TreeStruktur.SelectedNode))
+        If s = "Berechtigung" Or s = "Plattform" Or s = "Server" Then Me.Sync.Enabled = True Else Me.Sync.Enabled = False
+        If s = "Personal" Or s = "Funktionstelle" Then Me.NeueBeziehungErstellenToolStripMenuItem.Visible = True Else Me.NeueBeziehungErstellenToolStripMenuItem.Visible = False
+        Try
+            If sec.Check_DataObjectReadonly(Datenklasse.Get_SelectionTypeText(Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, Me.TreeStruktur.SelectedNode))) Then
+                Me.NeuesElementToolStripMenuItem.Enabled = False
+                Me.ElementLöschenToolStripMenuItem.Enabled = False
+            Else
+                Me.NeuesElementToolStripMenuItem.Enabled = True
+                Me.ElementLöschenToolStripMenuItem.Enabled = True
+            End If
+        Catch
+        End Try
+
+    End Sub
+
+    Private Sub InEinemNeuenFensterÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InEinemNeuenFensterÖffnenToolStripMenuItem.Click
+
+        Dim allnodes As List(Of String) = New List(Of String)
+        Dim dn As DevComponents.AdvTree.Node
+        For Each n As DevComponents.AdvTree.Node In Me.TreeStruktur.SelectedNodes
+            allnodes.Add(n.Tag)
+        Next
+
+        For i = allNodes.Count - 1 To 0 Step -1
+            Dim f As New frmUebersichtRE(allnodes(i))
+            f.MdiParent = Me.MdiParent
+            f.Show()
+        Next
+
+
+    End Sub
+
+    Private Sub NeuesElementToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesElementToolStripMenuItem.Click
+        Me.AllgMainObjekte1.Add_Entry(Me.TreeStruktur.SelectedNode.Tag)
+    End Sub
+
+    Private Sub KnotenÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KnotenÖffnenToolStripMenuItem.Click
+        Try
+            Me.TreeStruktur.SelectedNode.ExpandAll()
+            Me.TreeStruktur.SelectedNode.EnsureVisible()
+        Catch ex As Exception
+        End Try
+    End Sub
+
+    Private Sub KnotenSchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KnotenSchliessenToolStripMenuItem.Click
+        Try
+            Me.TreeStruktur.SelectedNode.Collapse()
+            Me.TreeStruktur.SelectedNode.EnsureVisible()
+        Catch ex As Exception
+        End Try
+    End Sub
+
+
+    Private Sub ElementLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ElementLöschenToolStripMenuItem.Click
+
+        If Me.TreeStruktur.SelectedNodes.Count = 1 Then
+            Dim subnodes As List(Of String) = New List(Of String)
+            Dim Allnodes As List(Of String) = New List(Of String)
+            For Each n As DevComponents.AdvTree.Node In Me.TreeStruktur.SelectedNodes
+                subnodes = GetChildren(n)
+                For i = 0 To subnodes.Count - 1
+                    allNodes.Add(subnodes(i))
+                Next
+            Next
+            Dim res As MsgBoxResult
+            If Allnodes.Count > 0 Then
+                res = MsgBox("Datensatz '" + Me.TreeStruktur.SelectedNode.Text + "' inkl. allen " + Allnodes.Count.ToString + " Unterelemente löschen?", vbYesNo + vbQuestion)
+            Else
+                res = MsgBox("Datensatz '" + Me.TreeStruktur.SelectedNode.Text + "' löschen?", vbYesNo + vbQuestion)
+            End If
+            If res = MsgBoxResult.No Then Exit Sub
+            Me.Cursor = Cursors.WaitCursor
+            Delete_Entries()
+            Me.Cursor = Cursors.Default
+        End If
+        If Me.TreeStruktur.SelectedNodes.Count > 1 Then
+            Dim s As String = ""
+            Dim subnodes As List(Of String) = New List(Of String)
+            Dim Allnodes As List(Of String) = New List(Of String)
+            Dim res As MsgBoxResult
+
+            For Each n As DevComponents.AdvTree.Node In Me.TreeStruktur.SelectedNodes
+                If s <> "" Then s = s + ", "
+                s = s + vbCrLf + "'" + n.Text + "'"
+                subnodes = GetChildren(n)
+                For i = 0 To subnodes.Count - 1
+                    Allnodes.Add(subnodes(i))
+                Next
+            Next
+            If Allnodes.Count > 0 Then s = s + vbCrLf + " inkl. allen " + Allnodes.Count.ToString + " Unterlemete" Else s = s + vbCrLf
+            If MsgBox("Datensätze " + s + " löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
+                ' If mymsg.Show_MessageYesNo(41) = MsgBoxResult.No Then Exit Sub
+                Me.Cursor = Cursors.WaitCursor
+                Delete_Entries()
+                Me.Cursor = Cursors.Default
+
+            End If
+            evh.Fire_Update_Treesearch(Me.ParentForm)
+        End If
+
+    End Sub
+
+
+    Sub Delete_Entries()
+        Dim Allnodes As List(Of String) = New List(Of String)
+        Dim subnodes As List(Of String) = New List(Of String)
+        Dim dn As DevComponents.AdvTree.Node
+        For Each n As DevComponents.AdvTree.Node In Me.TreeStruktur.SelectedNodes
+            subnodes = GetChildren(n)
+            For i = 0 To subnodes.Count - 1
+                Allnodes.Add(subnodes(i))
+            Next
+            Allnodes.Add(n.Tag)
+        Next
+
+        For i = Allnodes.Count - 1 To 0 Step -1
+            AllgMainObjekte1.Delete_Entry(Allnodes(i), Allnodes(i), Me.ParentForm, False)
+        Next
+
+
+
+    End Sub
+
+
+
+    Private Sub ExportExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportExcelToolStripMenuItem.Click
+        Dim f As New frmFortschritt
+        f.Show()
+        Dim ds As New DataSet
+        ds.Tables.Clear()
+
+        Dim Allnodes As List(Of String) = New List(Of String)
+        Dim subnodes As List(Of String) = New List(Of String)
+        Dim dn As DevComponents.AdvTree.Node
+        For Each n As DevComponents.AdvTree.Node In Me.TreeStruktur.SelectedNodes
+            subnodes = GetChildren(n)
+            For i = 0 To subnodes.Count - 1
+                Allnodes.Add(subnodes(i))
+            Next
+            Allnodes.Add(n.Tag)
+        Next
+        f.ProgressBar1.Value = 0
+        f.ProgressBar1.Maximum = Allnodes.Count
+        Cursor = Cursors.WaitCursor
+        For i = 0 To Allnodes.Count - 1
+            Dim dt As New DataTable
+            f.ProgressBar1.Value = f.ProgressBar1.Value + 1
+            Application.DoEvents()
+            dt = Datenklasse.Get_Data_for_ExcelExport(Datenklasse.Get_SelectionTypeText(Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, Me.TreeStruktur.SelectedNode)), Allnodes(i))
+            If i = 0 Then
+                ds.Tables.Add(dt.Copy)
+            Else
+                For Each r As DataRow In dt.Rows
+                    ds.Tables(0).ImportRow(r)
+                Next
+            End If
+        Next
+        Cursor = Cursors.Default
+
+        f.Close()
+        f.Dispose()
+
+        Dim rpt As New _FRReporting.frmAuswertung("ExcelExport", ds, Globals.clsapplication.sTmp_filepath.Value)
+        rpt.MdiParent = Me.MdiParent
+
+        rpt.Show()
+    End Sub
+
+    Private Sub ExportVorbereitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportVorbereitenToolStripMenuItem.Click
+        If Globals.ExcelExport_Form_exists = False Then
+            Dim f As New frmExportContainer
+            f.MdiParent = Me.MdiParent
+            f.Show()
+            Globals.ExcelExport_Form_exists = True
+        End If
+        Dim f1 As New frmFortschritt
+        f1.Show()
+
+        Dim Allnodes As List(Of String) = New List(Of String)
+        Dim subnodes As List(Of String) = New List(Of String)
+        Dim dn As DevComponents.AdvTree.Node
+        For Each n As DevComponents.AdvTree.Node In Me.TreeStruktur.SelectedNodes
+            subnodes = GetChildren(n)
+            For i = 0 To subnodes.Count - 1
+                Allnodes.Add(subnodes(i))
+            Next
+            Allnodes.Add(n.Tag)
+        Next
+        f1.ProgressBar1.Value = 0
+        f1.ProgressBar1.Maximum = Allnodes.Count
+        Cursor = Cursors.WaitCursor
+        For i = 0 To Allnodes.Count - 1
+            Dim arr(3) As String
+            Dim tn As New DevComponents.AdvTree.Node
+            f1.ProgressBar1.Value = f1.ProgressBar1.Value + 1
+            Application.DoEvents()
+
+            tn = Uebersicht.FindNode(Me.TreeStruktur.Nodes, Allnodes(i), Allnodes(i))
+            evh.Fire_Export_Vorbereiten_Clicked(Datenklasse.Get_SelectionTypeText(Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, Me.TreeStruktur.SelectedNode)), tn.Text, tn.Tag)
+        Next
+        Cursor = Cursors.Default
+        f1.Close()
+        f1.Dispose()
+
+    End Sub
+
+
+    Private Sub Sync_Click(sender As Object, e As EventArgs) Handles Sync.Click
+        If MsgBox("Wollen Sie die Beziehungen 'Verwaltung durch', 'Verwaltung mit','Dateneigentümer' in alle untergeordneten Elemente synchronisieren?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
+            Me.AllgMainObjekte1.Sync_Beziehungen(Me.TreeStruktur.SelectedNode.Tag, Datenklasse.Get_SelectionTypeText(Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, Me.TreeStruktur.SelectedNode)), Me.TreeStruktur)
+        End If
+
+    End Sub
+
+    Private Sub NeueBeziehungErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueBeziehungErstellenToolStripMenuItem.Click
+        Dim s As String
+        s = Datenklasse.Get_SelectionTypeText(Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, Me.TreeStruktur.SelectedNode))
+        Select Case s
+            Case "Personal"
+                fneuebeziehung = New _AllgMainObjekte.frmSetNeueBeziehung
+                fneuebeziehung.SourceBezeichnung = Me.TreeStruktur.SelectedNode.Text
+                fneuebeziehung.Sourceid = Me.TreeStruktur.SelectedNode.Tag
+                fneuebeziehung.Type = 0
+                fneuebeziehung.MdiParent = Me.MdiParent
+                fneuebeziehung.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
+                fneuebeziehung.Show()
+            Case "Funktionstelle"
+                fneuebeziehung = New _AllgMainObjekte.frmSetNeueBeziehung
+                fneuebeziehung.SourceBezeichnung = Me.TreeStruktur.SelectedNode.Text
+                fneuebeziehung.Sourceid = Me.TreeStruktur.SelectedNode.Tag
+                fneuebeziehung.Type = 1
+                fneuebeziehung.MdiParent = Me.MdiParent
+                fneuebeziehung.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
+                fneuebeziehung.Show()
+        End Select
+
+    End Sub
+
+
+#End Region
+
+#Region "EVH-Ereignisse"
+
+
+    Private Sub evh_Icon_Changed(keyvalue As Integer, Iconid As Integer) Handles evh.Icon_Changed
+        Try
+            Dim foundnode As DevComponents.AdvTree.Node
+            foundnode = Me.Uebersicht.FindNode(Me.TreeStruktur.Nodes, keyvalue, keyvalue)
+            foundnode.ImageIndex = Iconid
+        Catch
+        End Try
+
+    End Sub
+    Private Sub evh_Node_Moved(onode As Object, dnode As Object, treehandle As Object) Handles evh.Node_Moved
+        Try
+            Dim SourcenodeParent As DevComponents.AdvTree.Node
+            Dim sourcenode As DevComponents.AdvTree.Node
+            Dim destnode As DevComponents.AdvTree.Node
+            sourcenode = onode
+            SourcenodeParent = sourcenode.Parent
+            destnode = Me.Uebersicht.FindNode(Me.TreeStruktur.Nodes, dnode.tag, dnode.tag)
+            Dim foundnode As DevComponents.AdvTree.Node
+            foundnode = Me.Uebersicht.FindNode(Me.TreeStruktur.Nodes, sourcenode.Tag, sourcenode.Tag)
+            Try
+                
+                foundnode.Remove()
+                destnode.Nodes.Add(foundnode)
+                destnode.ImageIndex = get_Icon(destnode)
+                destnode.Nodes.Sort()
+                evh.Fire_Update_Treesearch(Me)
+            Catch ex As Exception
+
+            End Try
+        Catch
+        End Try
+
+    End Sub
+
+
+    Private Sub evh_MainObject_Created(Keyvalue As Integer, Parentid As Integer, ByVal parentform As Object) Handles evh.MainObject_Created
+        Try
+            If parentform.handle = Me.Handle Then
+                Dim parentnode As DevComponents.AdvTree.Node
+                Dim NewNode As New DevComponents.AdvTree.Node
+                parentnode = Me.Uebersicht.FindNode(Me.TreeStruktur.Nodes, Parentid, Parentid)
+                Dim DBOBjektname = Uebersicht.Get_DBObjektname(Me.Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, parentnode))
+                Dim DBObjekt As New Object
+                Datenklasse.CreateNew(DBOBjektname, DBObjekt)
+                DBObjekt.get_data(Keyvalue)
+                NewNode.Text = DBObjekt.sbezeichnung.ToString
+                NewNode.Tag = Keyvalue
+                parentnode.Nodes.Add(NewNode)
+                NewNode.ImageIndex = get_Icon(NewNode)
+                parentnode.ImageIndex = get_Icon(parentnode)
+                parentnode.Nodes.Sort()
+                NewNode = Me.Uebersicht.FindNode(Me.TreeStruktur.Nodes, Keyvalue, Keyvalue)
+                NewNode.EnsureVisible()
+                Me.TreeStruktur.SelectedNode = NewNode
+            Else
+                Dim parentnode As DevComponents.AdvTree.Node
+                Dim NewNode As New DevComponents.AdvTree.Node
+                parentnode = Me.Uebersicht.FindNode(Me.TreeStruktur.Nodes, Parentid, Parentid)
+                Dim DBOBjektname = Uebersicht.Get_DBObjektname(Me.Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, parentnode))
+                Dim DBObjekt As New Object
+                Datenklasse.CreateNew(DBOBjektname, DBObjekt)
+                DBObjekt.get_data(Keyvalue)
+                NewNode.Text = DBObjekt.sbezeichnung.ToString
+                NewNode.Tag = Keyvalue
+                parentnode.Nodes.Add(NewNode)
+                NewNode.ImageIndex = get_Icon(NewNode)
+                parentnode.ImageIndex = get_Icon(parentnode)
+                parentnode.Nodes.Sort()
+            End If
+        Catch
+        End Try
+    End Sub
+
+
+    Private Sub evh_Object_Saved(Keyvalue As Integer, Parentid As Integer, parentform As Object) Handles evh.Object_Saved
+        Try
+            Dim node As New DevComponents.AdvTree.Node
+            node = Me.Uebersicht.FindNode(Me.TreeStruktur.Nodes, Keyvalue, Keyvalue)
+            Dim DBOBjektname = Uebersicht.Get_DBObjektname(Me.Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, node))
+            Dim DBObjekt As New Object
+            Datenklasse.CreateNew(DBOBjektname, DBObjekt)
+            DBObjekt.get_data(Keyvalue)
+            node.Text = DBObjekt.sbezeichnung.ToString
+            node.Tag = Keyvalue
+            node.Parent.Nodes.Sort()
+            Me.AllgMainObjekte1.Refresh_Beziehungen()
+        Catch ex As Exception
+        End Try
+    End Sub
+
+    Private Sub evh_Object_Deleted(keyvalue As Integer, keyvalueparent As Integer, ByVal parentform As Object) Handles evh.Object_Deleted
+        Try
+            Dim IsSelected As Boolean = False
+            Dim parentnode As DevComponents.AdvTree.Node
+            parentnode = Me.Uebersicht.FindNode(Me.TreeStruktur.Nodes, keyvalueparent, keyvalueparent)
+            Dim node As New DevComponents.AdvTree.Node
+            node = Me.Uebersicht.FindNode(Me.TreeStruktur.Nodes, keyvalue, keyvalue)
+            If node.IsSelected Then IsSelected = True Else IsSelected = False
+            parentnode.Nodes.Remove(node)
+            parentnode.ImageIndex = get_Icon(parentnode)
+            If IsSelected Then TreeStruktur.SelectedNode = parentnode
+        Catch ex As Exception
+        End Try
+
+    End Sub
+
+    Private Sub evh_Object_Delete(Keyvalue As Integer, Parentid As Integer, parentform As Object) Handles evh.Object_Delete
+        If Me.Handle = parentform.handle Then
+            delete_entries()
+        End If
+    End Sub
+
+
+    Public Sub Fireed_node_droped() Handles evh.Node_Droppend
+        If Globals.TempTreeControl.Handle = Globals.TempTreeControl1.Handle Then Exit Sub
+        Dim tn As DevComponents.AdvTree.Node
+        Try
+            tn = Uebersicht.FindNode(TempTreeControl.Nodes, TempTreeCurrentNode.Tag, TempTreeCurrentNode.Tag)
+            tn.Remove()
+        Catch ex As Exception
+        End Try
+        Try
+            tn = Uebersicht.FindNode(TempTreeControl.Nodes, TempTreeNewParentNode.Tag, TempTreeNewParentNode.Tag)
+            tn.Nodes.Add(TempTreeCurrentNode)
+            tn.Nodes.Sort()
+            evh.Fire_Update_Treesearch(Me)
+        Catch ex As Exception
+        End Try
+    End Sub
+
+    Private Sub evh_Select_to_MoveCopy(move As Boolean, grid As Object, sourcekey As Integer) Handles evh.Select_to_MoveCopy
+        If move Then Globals.MoveCopy = 1 Else Globals.MoveCopy = 2
+        movecopy_sourcekey = sourcekey
+        movecopy_grid = grid
+        Globals.MoveCopy_Grid = grid
+    End Sub
+
+    Private Sub evh_Refresh_Selectednodes() Handles evh.Refresh_Selectednodes
+        Try
+            AllgMainObjekte1.Refresh_Beziehungen()
+        Catch
+        End Try
+
+    End Sub
+
+#End Region
+
+#Region "Utils"
+
+    Function GetChildren(parentNode As DevComponents.AdvTree.Node) As List(Of String)
+        Dim nodes As List(Of String) = New List(Of String)
+        GetAllChildren(parentNode, nodes)
+        Return nodes
+    End Function
+
+    Sub GetAllChildren(parentNode As DevComponents.AdvTree.Node, nodes As List(Of String))
+        For Each childNode As DevComponents.AdvTree.Node In parentNode.Nodes
+            nodes.Add(childNode.Tag)
+            GetAllChildren(childNode, nodes)
+        Next
+    End Sub
+
+    Private Function get_Icon(ByVal node As DevComponents.AdvTree.Node, Optional newNode As Boolean = False) As Integer
+        Dim oldimage As Integer
+        Dim NewImage As Integer
+        Dim Type As String
+        Type = Datenklasse.Get_SelectionTypeText(Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, node))
+        Select Case Type
+            Case "Berechtigung"
+                NewImage = 4
+            Case "Plattform"
+                NewImage = 6
+            Case "Organisation"
+                NewImage = 0
+            Case "Funktionstelle"
+                NewImage = 0
+            Case "Personal"
+                NewImage = 2
+            Case "Server"
+                NewImage = 8
+            Case "Verwaltung durch", "VerwaltungDurch"
+                NewImage = 10
+            Case "Verwaltung mit", "VerwaltungMit"
+                NewImage = 12
+        End Select
+        If node.Nodes.Count > 0 Then NewImage = NewImage + 1
+        Return NewImage
+    End Function
+
+#End Region
+
+
+#Region "AllgMainObjekte"
+
+
+    Private Sub BeA_FunktionDetail1_C1Bezeihungen_DoubleClicked(keyvalue As Integer, Typ As String, NewWindow As Boolean) Handles AllgMainObjekte1.Beziehungen_DoubleClicked
+        If NewWindow = False Then
+            Me.TreeStruktur.SelectedNode = Me.Uebersicht.FindNode(Me.TreeStruktur.Nodes, keyvalue, keyvalue)
+        Else
+            Dim f As New frmUebersicht(keyvalue)
+            f.MdiParent = Me.MdiParent
+            f.Show()
+        End If
+    End Sub
+
+    Private Sub AllgMainObjekte1_DragDrop(sender As Object, e As DragEventArgs) Handles AllgMainObjekte1.DragDrop
+        '20130402_Sequenznr des Root-Nodes auslesen und als SequenzNr übergeben
+        Dim DBOBjektname = Uebersicht.Get_DBObjektname(Me.Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, Me.TreeStruktur.SelectedNode))
+        Dim DBObjekt As New Object
+        Datenklasse.CreateNew(DBOBjektname, DBObjekt)
+        DBObjekt.get_data(Me.AllgMainObjekte1.KeyValue)
+        Dim sequenznr As Integer = DBObjekt.isequenz.value
+        DBObjekt.dispose()
+        Me.AllgMainObjekte1.Add_New_Beziehung(newnode.Tag, Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, newnode), newnode.Text, TargetDBObject, Change_Keys, sequenznr)
+    End Sub
+
+    Private Sub AllgMainObjekte1_DragEnter(sender As Object, e As DragEventArgs) Handles AllgMainObjekte1.DragEnter
+        'See if there is a TreeNode being dragged
+        If e.Data.GetDataPresent("DevComponents.AdvTree.Node", True) Then
+
+            'TreeNode found allow move effect
+            e.Effect = DragDropEffects.Move
+        Else
+            'No TreeNode found, prevent move
+            e.Effect = DragDropEffects.None
+        End If
+
+    End Sub
+
+    Dim newnode As New DevComponents.AdvTree.Node
+    Private Sub AllgMainObjekte1_DragOver(sender As Object, e As DragEventArgs) Handles AllgMainObjekte1.DragOver
+        If e.Data.GetDataPresent("DevComponents.AdvTree.Node", True) = False Then Exit Sub
+
+        Dim DestinationNode As DevComponents.AdvTree.Node
+        Dim pt As Point
+        pt = Me.TreeStruktur.PointToClient(New Point(e.X, e.Y))
+
+        DestinationNode = TreeStruktur.GetNodeAt(pt)
+
+        newnode = CType(e.Data.GetData("DevComponents.AdvTree.Node"), DevComponents.AdvTree.Node)
+        Dim type1 As Integer
+        Dim type2 As Integer
+        type1 = Uebersicht.TreeView_GetRootNode(Me.TreeStruktur, newnode)
+        type2 = Datenklasse.Get_Selectiontype(Me.AllgMainObjekte1.Type)
+        For Each dr As DataRow In Globals.Objekt_Beziehung.Rows
+            If dr.Item("Objekt1") = type1 And dr.Item("Objekt2") = type2 And dr.Item("Aktiv") = True Then
+                Me.TargetDBObject = dr.Item("Objektname")
+                Me.Change_Keys = dr.Item("Key_Umdrehen")
+                e.Effect = DragDropEffects.Move
+                Exit Sub
+            End If
+        Next
+        e.Effect = DragDropEffects.None
+
+        Exit Sub
+    End Sub
+
+#End Region
+
+ 
+   
+    Private Sub evh_Update_TreeSearch(parentform As Object) Handles evh.Update_TreeSearch
+        Try
+            If Me.Handle = parentform.handle Then
+                Uebersicht.Update_TreeSearch(0, 0, Me.TreeStruktur)
+            End If
+        Catch
+        End Try
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        If AllgMainObjekte1.isDirty Then
+            If MsgBox("Daten wurden verändert. Wollen Sie diese speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
+                Me.OnTreeRefresh = True
+                AllgMainObjekte1.Save_Data(False)
+                Me.OnTreeRefresh = False
+            Else
+                Me.AllgMainObjekte1.isDirty = False
+            End If
+        End If
+        Dim f As New frmSuche
+        f.SuchData = Globals.treedata_for_search
+        f.SuchTree = Me.TreeStruktur
+        f.MdiParent = Me.MdiParent
+        f.txtSuchbegriff.Text = Trim(ToolStriptxtSuche.Text)
+        f.Show()
+    End Sub
+
+    Private Sub FensterGrösseSpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FensterGrösseSpeichernToolStripMenuItem.Click
+        WHandler.set_Windowsize(1, Me.Width, Me.Height)
+        WHandler.set_Windowsize(11, Me.SplitContainer1.SplitterDistance, 0)
+    End Sub
+
+ 
+    Private Sub TreeStruktur_MouseDown(sender As Object, e As MouseEventArgs) Handles TreeStruktur.MouseDown
+        If e.Button = Windows.Forms.MouseButtons.Right Then
+            xpoint = e.X
+            ypoint = e.Y
+        End If
+    End Sub
+End Class