You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
606 lines
30 KiB
606 lines
30 KiB
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Drawing
|
|
Imports System.Drawing.Color
|
|
Public Class FrmDomainDokumentart
|
|
Inherits System.Windows.Forms.Form
|
|
Const CtrlMask As Byte = 8
|
|
Dim todelete(50) As Integer
|
|
Dim itodelete As Integer
|
|
Dim ssort As Integer
|
|
Dim eintrag As String
|
|
Dim dokumentart As New edokadb.clsMyDokumentart()
|
|
Dim m_ToSelect As Boolean
|
|
Dim m_TransferKey As Integer
|
|
Dim m_ShowLevel As Integer
|
|
|
|
#Region "Properties"
|
|
Property ToSelect() As Boolean
|
|
Get
|
|
Return m_ToSelect
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_ToSelect = Value
|
|
End Set
|
|
End Property
|
|
Property Transferkey()
|
|
Get
|
|
Return m_TransferKey
|
|
End Get
|
|
Set(ByVal Value)
|
|
m_TransferKey = Value
|
|
End Set
|
|
End Property
|
|
Property showlevel() As Integer
|
|
Get
|
|
Return m_ShowLevel
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_ShowLevel = Value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
#Region " Vom Windows Form Designer generierter Code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
|
|
End Sub
|
|
|
|
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
' Für Windows Form-Designer erforderlich
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
|
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
|
|
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuSchliessen As System.Windows.Forms.MenuItem
|
|
Friend WithEvents Toolbtn_Schliessen As System.Windows.Forms.ToolBar
|
|
Friend WithEvents SysMenu As System.Windows.Forms.TreeView
|
|
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MnuNeuerKnoten As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuKnotenLoeschen As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuSave As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
|
|
Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
|
|
Friend WithEvents ImageList3 As System.Windows.Forms.ImageList
|
|
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(FrmDomainDokumentart))
|
|
Me.Toolbtn_Schliessen = New System.Windows.Forms.ToolBar()
|
|
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.MainMenu1 = New System.Windows.Forms.MainMenu()
|
|
Me.MenuItem1 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuSchliessen = New System.Windows.Forms.MenuItem()
|
|
Me.SysMenu = New System.Windows.Forms.TreeView()
|
|
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
|
Me.MnuNeuerKnoten = New System.Windows.Forms.MenuItem()
|
|
Me.MnuKnotenLoeschen = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuSave = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem3 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem5 = New System.Windows.Forms.MenuItem()
|
|
Me.ImageList3 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
|
Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.MenuItem6 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem7 = New System.Windows.Forms.MenuItem()
|
|
Me.SuspendLayout()
|
|
'
|
|
'Toolbtn_Schliessen
|
|
'
|
|
Me.Toolbtn_Schliessen.AccessibleDescription = CType(resources.GetObject("Toolbtn_Schliessen.AccessibleDescription"), String)
|
|
Me.Toolbtn_Schliessen.AccessibleName = CType(resources.GetObject("Toolbtn_Schliessen.AccessibleName"), String)
|
|
Me.Toolbtn_Schliessen.Anchor = CType(resources.GetObject("Toolbtn_Schliessen.Anchor"), System.Windows.Forms.AnchorStyles)
|
|
Me.Toolbtn_Schliessen.Appearance = CType(resources.GetObject("Toolbtn_Schliessen.Appearance"), System.Windows.Forms.ToolBarAppearance)
|
|
Me.Toolbtn_Schliessen.AutoSize = CType(resources.GetObject("Toolbtn_Schliessen.AutoSize"), Boolean)
|
|
Me.Toolbtn_Schliessen.BackgroundImage = CType(resources.GetObject("Toolbtn_Schliessen.BackgroundImage"), System.Drawing.Image)
|
|
Me.Toolbtn_Schliessen.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1})
|
|
Me.Toolbtn_Schliessen.ButtonSize = CType(resources.GetObject("Toolbtn_Schliessen.ButtonSize"), System.Drawing.Size)
|
|
Me.Toolbtn_Schliessen.Dock = CType(resources.GetObject("Toolbtn_Schliessen.Dock"), System.Windows.Forms.DockStyle)
|
|
Me.Toolbtn_Schliessen.DropDownArrows = CType(resources.GetObject("Toolbtn_Schliessen.DropDownArrows"), Boolean)
|
|
Me.Toolbtn_Schliessen.Enabled = CType(resources.GetObject("Toolbtn_Schliessen.Enabled"), Boolean)
|
|
Me.Toolbtn_Schliessen.Font = CType(resources.GetObject("Toolbtn_Schliessen.Font"), System.Drawing.Font)
|
|
Me.Toolbtn_Schliessen.ImageList = Me.ImageList1
|
|
Me.Toolbtn_Schliessen.ImeMode = CType(resources.GetObject("Toolbtn_Schliessen.ImeMode"), System.Windows.Forms.ImeMode)
|
|
Me.Toolbtn_Schliessen.Location = CType(resources.GetObject("Toolbtn_Schliessen.Location"), System.Drawing.Point)
|
|
Me.Toolbtn_Schliessen.Name = "Toolbtn_Schliessen"
|
|
Me.Toolbtn_Schliessen.RightToLeft = CType(resources.GetObject("Toolbtn_Schliessen.RightToLeft"), System.Windows.Forms.RightToLeft)
|
|
Me.Toolbtn_Schliessen.ShowToolTips = CType(resources.GetObject("Toolbtn_Schliessen.ShowToolTips"), Boolean)
|
|
Me.Toolbtn_Schliessen.Size = CType(resources.GetObject("Toolbtn_Schliessen.Size"), System.Drawing.Size)
|
|
Me.Toolbtn_Schliessen.TabIndex = CType(resources.GetObject("Toolbtn_Schliessen.TabIndex"), Integer)
|
|
Me.Toolbtn_Schliessen.TextAlign = CType(resources.GetObject("Toolbtn_Schliessen.TextAlign"), System.Windows.Forms.ToolBarTextAlign)
|
|
Me.Toolbtn_Schliessen.Visible = CType(resources.GetObject("Toolbtn_Schliessen.Visible"), Boolean)
|
|
Me.Toolbtn_Schliessen.Wrappable = CType(resources.GetObject("Toolbtn_Schliessen.Wrappable"), Boolean)
|
|
'
|
|
'ToolBarButton1
|
|
'
|
|
Me.ToolBarButton1.Enabled = CType(resources.GetObject("ToolBarButton1.Enabled"), Boolean)
|
|
Me.ToolBarButton1.ImageIndex = CType(resources.GetObject("ToolBarButton1.ImageIndex"), Integer)
|
|
Me.ToolBarButton1.Text = resources.GetString("ToolBarButton1.Text")
|
|
Me.ToolBarButton1.ToolTipText = resources.GetString("ToolBarButton1.ToolTipText")
|
|
Me.ToolBarButton1.Visible = CType(resources.GetObject("ToolBarButton1.Visible"), Boolean)
|
|
'
|
|
'ImageList1
|
|
'
|
|
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList1.ImageSize = CType(resources.GetObject("ImageList1.ImageSize"), System.Drawing.Size)
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'MainMenu1
|
|
'
|
|
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
|
|
Me.MainMenu1.RightToLeft = CType(resources.GetObject("MainMenu1.RightToLeft"), System.Windows.Forms.RightToLeft)
|
|
'
|
|
'MenuItem1
|
|
'
|
|
Me.MenuItem1.Enabled = CType(resources.GetObject("MenuItem1.Enabled"), Boolean)
|
|
Me.MenuItem1.Index = 0
|
|
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuSchliessen})
|
|
Me.MenuItem1.Shortcut = CType(resources.GetObject("MenuItem1.Shortcut"), System.Windows.Forms.Shortcut)
|
|
Me.MenuItem1.ShowShortcut = CType(resources.GetObject("MenuItem1.ShowShortcut"), Boolean)
|
|
Me.MenuItem1.Text = resources.GetString("MenuItem1.Text")
|
|
Me.MenuItem1.Visible = CType(resources.GetObject("MenuItem1.Visible"), Boolean)
|
|
'
|
|
'MnuSchliessen
|
|
'
|
|
Me.MnuSchliessen.Enabled = CType(resources.GetObject("MnuSchliessen.Enabled"), Boolean)
|
|
Me.MnuSchliessen.Index = 0
|
|
Me.MnuSchliessen.Shortcut = CType(resources.GetObject("MnuSchliessen.Shortcut"), System.Windows.Forms.Shortcut)
|
|
Me.MnuSchliessen.ShowShortcut = CType(resources.GetObject("MnuSchliessen.ShowShortcut"), Boolean)
|
|
Me.MnuSchliessen.Text = resources.GetString("MnuSchliessen.Text")
|
|
Me.MnuSchliessen.Visible = CType(resources.GetObject("MnuSchliessen.Visible"), Boolean)
|
|
'
|
|
'SysMenu
|
|
'
|
|
Me.SysMenu.AccessibleDescription = CType(resources.GetObject("SysMenu.AccessibleDescription"), String)
|
|
Me.SysMenu.AccessibleName = CType(resources.GetObject("SysMenu.AccessibleName"), String)
|
|
Me.SysMenu.AllowDrop = True
|
|
Me.SysMenu.Anchor = CType(resources.GetObject("SysMenu.Anchor"), System.Windows.Forms.AnchorStyles)
|
|
Me.SysMenu.BackgroundImage = CType(resources.GetObject("SysMenu.BackgroundImage"), System.Drawing.Image)
|
|
Me.SysMenu.ContextMenu = Me.ContextMenu1
|
|
Me.SysMenu.Dock = CType(resources.GetObject("SysMenu.Dock"), System.Windows.Forms.DockStyle)
|
|
Me.SysMenu.Enabled = CType(resources.GetObject("SysMenu.Enabled"), Boolean)
|
|
Me.SysMenu.Font = CType(resources.GetObject("SysMenu.Font"), System.Drawing.Font)
|
|
Me.SysMenu.ImageIndex = CType(resources.GetObject("SysMenu.ImageIndex"), Integer)
|
|
Me.SysMenu.ImageList = Me.ImageList3
|
|
Me.SysMenu.ImeMode = CType(resources.GetObject("SysMenu.ImeMode"), System.Windows.Forms.ImeMode)
|
|
Me.SysMenu.Indent = CType(resources.GetObject("SysMenu.Indent"), Integer)
|
|
Me.SysMenu.ItemHeight = CType(resources.GetObject("SysMenu.ItemHeight"), Integer)
|
|
Me.SysMenu.Location = CType(resources.GetObject("SysMenu.Location"), System.Drawing.Point)
|
|
Me.SysMenu.Name = "SysMenu"
|
|
Me.SysMenu.RightToLeft = CType(resources.GetObject("SysMenu.RightToLeft"), System.Windows.Forms.RightToLeft)
|
|
Me.SysMenu.SelectedImageIndex = CType(resources.GetObject("SysMenu.SelectedImageIndex"), Integer)
|
|
Me.SysMenu.ShowRootLines = False
|
|
Me.SysMenu.Size = CType(resources.GetObject("SysMenu.Size"), System.Drawing.Size)
|
|
Me.SysMenu.TabIndex = CType(resources.GetObject("SysMenu.TabIndex"), Integer)
|
|
Me.SysMenu.Text = resources.GetString("SysMenu.Text")
|
|
Me.SysMenu.Visible = CType(resources.GetObject("SysMenu.Visible"), Boolean)
|
|
'
|
|
'ContextMenu1
|
|
'
|
|
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuNeuerKnoten, Me.MnuKnotenLoeschen, Me.MenuItem2, Me.MenuItem4, Me.MnuSave, Me.MenuItem3, Me.MenuItem5, Me.MenuItem6, Me.MenuItem7})
|
|
Me.ContextMenu1.RightToLeft = CType(resources.GetObject("ContextMenu1.RightToLeft"), System.Windows.Forms.RightToLeft)
|
|
'
|
|
'MnuNeuerKnoten
|
|
'
|
|
Me.MnuNeuerKnoten.Enabled = CType(resources.GetObject("MnuNeuerKnoten.Enabled"), Boolean)
|
|
Me.MnuNeuerKnoten.Index = 0
|
|
Me.MnuNeuerKnoten.Shortcut = CType(resources.GetObject("MnuNeuerKnoten.Shortcut"), System.Windows.Forms.Shortcut)
|
|
Me.MnuNeuerKnoten.ShowShortcut = CType(resources.GetObject("MnuNeuerKnoten.ShowShortcut"), Boolean)
|
|
Me.MnuNeuerKnoten.Text = resources.GetString("MnuNeuerKnoten.Text")
|
|
Me.MnuNeuerKnoten.Visible = CType(resources.GetObject("MnuNeuerKnoten.Visible"), Boolean)
|
|
'
|
|
'MnuKnotenLoeschen
|
|
'
|
|
Me.MnuKnotenLoeschen.Enabled = CType(resources.GetObject("MnuKnotenLoeschen.Enabled"), Boolean)
|
|
Me.MnuKnotenLoeschen.Index = 1
|
|
Me.MnuKnotenLoeschen.Shortcut = CType(resources.GetObject("MnuKnotenLoeschen.Shortcut"), System.Windows.Forms.Shortcut)
|
|
Me.MnuKnotenLoeschen.ShowShortcut = CType(resources.GetObject("MnuKnotenLoeschen.ShowShortcut"), Boolean)
|
|
Me.MnuKnotenLoeschen.Text = resources.GetString("MnuKnotenLoeschen.Text")
|
|
Me.MnuKnotenLoeschen.Visible = CType(resources.GetObject("MnuKnotenLoeschen.Visible"), Boolean)
|
|
'
|
|
'MenuItem2
|
|
'
|
|
Me.MenuItem2.Enabled = CType(resources.GetObject("MenuItem2.Enabled"), Boolean)
|
|
Me.MenuItem2.Index = 2
|
|
Me.MenuItem2.Shortcut = CType(resources.GetObject("MenuItem2.Shortcut"), System.Windows.Forms.Shortcut)
|
|
Me.MenuItem2.ShowShortcut = CType(resources.GetObject("MenuItem2.ShowShortcut"), Boolean)
|
|
Me.MenuItem2.Text = resources.GetString("MenuItem2.Text")
|
|
Me.MenuItem2.Visible = CType(resources.GetObject("MenuItem2.Visible"), Boolean)
|
|
'
|
|
'MenuItem4
|
|
'
|
|
Me.MenuItem4.Enabled = CType(resources.GetObject("MenuItem4.Enabled"), Boolean)
|
|
Me.MenuItem4.Index = 3
|
|
Me.MenuItem4.Shortcut = CType(resources.GetObject("MenuItem4.Shortcut"), System.Windows.Forms.Shortcut)
|
|
Me.MenuItem4.ShowShortcut = CType(resources.GetObject("MenuItem4.ShowShortcut"), Boolean)
|
|
Me.MenuItem4.Text = resources.GetString("MenuItem4.Text")
|
|
Me.MenuItem4.Visible = CType(resources.GetObject("MenuItem4.Visible"), Boolean)
|
|
'
|
|
'MnuSave
|
|
'
|
|
Me.MnuSave.Enabled = CType(resources.GetObject("MnuSave.Enabled"), Boolean)
|
|
Me.MnuSave.Index = 4
|
|
Me.MnuSave.Shortcut = CType(resources.GetObject("MnuSave.Shortcut"), System.Windows.Forms.Shortcut)
|
|
Me.MnuSave.ShowShortcut = CType(resources.GetObject("MnuSave.ShowShortcut"), Boolean)
|
|
Me.MnuSave.Text = resources.GetString("MnuSave.Text")
|
|
Me.MnuSave.Visible = CType(resources.GetObject("MnuSave.Visible"), Boolean)
|
|
'
|
|
'MenuItem3
|
|
'
|
|
Me.MenuItem3.Enabled = CType(resources.GetObject("MenuItem3.Enabled"), Boolean)
|
|
Me.MenuItem3.Index = 5
|
|
Me.MenuItem3.Shortcut = CType(resources.GetObject("MenuItem3.Shortcut"), System.Windows.Forms.Shortcut)
|
|
Me.MenuItem3.ShowShortcut = CType(resources.GetObject("MenuItem3.ShowShortcut"), Boolean)
|
|
Me.MenuItem3.Text = resources.GetString("MenuItem3.Text")
|
|
Me.MenuItem3.Visible = CType(resources.GetObject("MenuItem3.Visible"), Boolean)
|
|
'
|
|
'MenuItem5
|
|
'
|
|
Me.MenuItem5.Enabled = CType(resources.GetObject("MenuItem5.Enabled"), Boolean)
|
|
Me.MenuItem5.Index = 6
|
|
Me.MenuItem5.Shortcut = CType(resources.GetObject("MenuItem5.Shortcut"), System.Windows.Forms.Shortcut)
|
|
Me.MenuItem5.ShowShortcut = CType(resources.GetObject("MenuItem5.ShowShortcut"), Boolean)
|
|
Me.MenuItem5.Text = resources.GetString("MenuItem5.Text")
|
|
Me.MenuItem5.Visible = CType(resources.GetObject("MenuItem5.Visible"), Boolean)
|
|
'
|
|
'ImageList3
|
|
'
|
|
Me.ImageList3.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList3.ImageSize = CType(resources.GetObject("ImageList3.ImageSize"), System.Drawing.Size)
|
|
Me.ImageList3.ImageStream = CType(resources.GetObject("ImageList3.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList3.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'OpenFileDialog1
|
|
'
|
|
Me.OpenFileDialog1.Filter = resources.GetString("OpenFileDialog1.Filter")
|
|
Me.OpenFileDialog1.Title = resources.GetString("OpenFileDialog1.Title")
|
|
'
|
|
'ImageList2
|
|
'
|
|
Me.ImageList2.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList2.ImageSize = CType(resources.GetObject("ImageList2.ImageSize"), System.Drawing.Size)
|
|
Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'MenuItem6
|
|
'
|
|
Me.MenuItem6.Enabled = CType(resources.GetObject("MenuItem6.Enabled"), Boolean)
|
|
Me.MenuItem6.Index = 7
|
|
Me.MenuItem6.Shortcut = CType(resources.GetObject("MenuItem6.Shortcut"), System.Windows.Forms.Shortcut)
|
|
Me.MenuItem6.ShowShortcut = CType(resources.GetObject("MenuItem6.ShowShortcut"), Boolean)
|
|
Me.MenuItem6.Text = resources.GetString("MenuItem6.Text")
|
|
Me.MenuItem6.Visible = CType(resources.GetObject("MenuItem6.Visible"), Boolean)
|
|
'
|
|
'MenuItem7
|
|
'
|
|
Me.MenuItem7.Enabled = CType(resources.GetObject("MenuItem7.Enabled"), Boolean)
|
|
Me.MenuItem7.Index = 8
|
|
Me.MenuItem7.Shortcut = CType(resources.GetObject("MenuItem7.Shortcut"), System.Windows.Forms.Shortcut)
|
|
Me.MenuItem7.ShowShortcut = CType(resources.GetObject("MenuItem7.ShowShortcut"), Boolean)
|
|
Me.MenuItem7.Text = resources.GetString("MenuItem7.Text")
|
|
Me.MenuItem7.Visible = CType(resources.GetObject("MenuItem7.Visible"), Boolean)
|
|
'
|
|
'FrmDomainDokumentart
|
|
'
|
|
Me.AccessibleDescription = CType(resources.GetObject("$this.AccessibleDescription"), String)
|
|
Me.AccessibleName = CType(resources.GetObject("$this.AccessibleName"), String)
|
|
Me.Anchor = CType(resources.GetObject("$this.Anchor"), System.Windows.Forms.AnchorStyles)
|
|
Me.AutoScale = False
|
|
Me.AutoScaleBaseSize = CType(resources.GetObject("$this.AutoScaleBaseSize"), System.Drawing.Size)
|
|
Me.AutoScroll = CType(resources.GetObject("$this.AutoScroll"), Boolean)
|
|
Me.AutoScrollMargin = CType(resources.GetObject("$this.AutoScrollMargin"), System.Drawing.Size)
|
|
Me.AutoScrollMinSize = CType(resources.GetObject("$this.AutoScrollMinSize"), System.Drawing.Size)
|
|
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
|
|
Me.ClientSize = CType(resources.GetObject("$this.ClientSize"), System.Drawing.Size)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.SysMenu, Me.Toolbtn_Schliessen})
|
|
Me.Dock = CType(resources.GetObject("$this.Dock"), System.Windows.Forms.DockStyle)
|
|
Me.Enabled = CType(resources.GetObject("$this.Enabled"), Boolean)
|
|
Me.Font = CType(resources.GetObject("$this.Font"), System.Drawing.Font)
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.ImeMode = CType(resources.GetObject("$this.ImeMode"), System.Windows.Forms.ImeMode)
|
|
Me.Location = CType(resources.GetObject("$this.Location"), System.Drawing.Point)
|
|
Me.MaximizeBox = False
|
|
Me.MaximumSize = CType(resources.GetObject("$this.MaximumSize"), System.Drawing.Size)
|
|
Me.Menu = Me.MainMenu1
|
|
Me.MinimizeBox = False
|
|
Me.MinimumSize = CType(resources.GetObject("$this.MinimumSize"), System.Drawing.Size)
|
|
Me.Name = "FrmDomainDokumentart"
|
|
Me.RightToLeft = CType(resources.GetObject("$this.RightToLeft"), System.Windows.Forms.RightToLeft)
|
|
Me.ShowInTaskbar = False
|
|
Me.StartPosition = CType(resources.GetObject("$this.StartPosition"), System.Windows.Forms.FormStartPosition)
|
|
Me.Text = resources.GetString("$this.Text")
|
|
Me.Visible = CType(resources.GetObject("$this.Visible"), Boolean)
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Sub MnuSchliessen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSchliessen.Click
|
|
Toolbtn_Schliessen_ButtonClick(sender, e)
|
|
End Sub
|
|
|
|
|
|
Private Sub Toolbtn_Schliessen_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles Toolbtn_Schliessen.ButtonClick
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub FrmSysadminMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.SysMenu.ImageList = Globals.DokumentartenImages
|
|
If ToSelect Then
|
|
dokumentart.LoadTreeMenu(SysMenu, Me.showlevel)
|
|
Me.SysMenu.ContextMenu = Nothing
|
|
Me.AllowDrop = False
|
|
Else
|
|
dokumentart.LoadTreeMenu(SysMenu, 0)
|
|
End If
|
|
SysMenu.ExpandAll()
|
|
itodelete = 0
|
|
End Sub
|
|
|
|
Private Sub MnuNeuerKnoten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNeuerKnoten.Click
|
|
Dim a As String
|
|
Dim tn As New TreeNode()
|
|
Dim tnnew As New TreeNode()
|
|
a = InputBox(Globals.MyMsg.Get_Meldungstext(500))
|
|
If a = "" Then Exit Sub
|
|
tn = Me.SysMenu.SelectedNode
|
|
tnnew = tn.Nodes.Add(a)
|
|
With tnnew
|
|
.Tag() = 0
|
|
.ImageIndex() = 1
|
|
.SelectedImageIndex() = 2
|
|
End With
|
|
If tn.ImageIndex <> 5 And tn.ImageIndex <> 6 Then
|
|
tn.ImageIndex = 1
|
|
tn.SelectedImageIndex = 2
|
|
End If
|
|
If tn.GetNodeCount(True) > 0 Then
|
|
If tn.ImageIndex <> 5 And tn.ImageIndex <> 6 Then
|
|
tn.ImageIndex = 1
|
|
tn.SelectedImageIndex = 2
|
|
End If
|
|
End If
|
|
Me.SysMenu.Refresh()
|
|
End Sub
|
|
|
|
Private Sub MnuKnotenLoeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuKnotenLoeschen.Click
|
|
Dim tn As New TreeNode()
|
|
Dim tnp As New TreeNode()
|
|
Dim i As Integer
|
|
tn = Me.SysMenu.SelectedNode
|
|
tnp = tn.Parent
|
|
If tn.ImageIndex = 5 Or tn.ImageIndex = 6 Then
|
|
MyMsg.show_standardmessage(5, MsgBoxStyle.Critical)
|
|
Exit Sub
|
|
End If
|
|
If Not (Me.SysMenu.SelectedNode Is Nothing) Then
|
|
itodelete = itodelete + 1
|
|
todelete(itodelete) = tn.Tag
|
|
If Globals.MyMsg.Show_MessageYesNo(3) = MsgBoxResult.Yes Then
|
|
tn.Remove()
|
|
End If
|
|
If tnp.GetNodeCount(True) = 0 Then
|
|
If tnp.ImageIndex <> 5 And tnp.ImageIndex <> 6 Then
|
|
tnp.ImageIndex = 1
|
|
tnp.SelectedImageIndex = 2
|
|
End If
|
|
End If
|
|
Me.SysMenu.Refresh()
|
|
End If
|
|
End Sub
|
|
|
|
'Drag and Drop innerhalb des Systemmenus
|
|
Private Sub TreeView_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles SysMenu.DragDrop
|
|
Dim OriginationNode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
|
|
If OriginationNode.ImageIndex = 5 Or OriginationNode.ImageIndex = 6 Then
|
|
MyMsg.show_standardmessage(6, MsgBoxStyle.Critical)
|
|
Exit Sub
|
|
End If
|
|
|
|
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", False) Then
|
|
Dim pt As Point
|
|
Dim DestinationNode As TreeNode
|
|
pt = CType(sender, TreeView).PointToClient(New Point(e.X, e.Y))
|
|
DestinationNode = CType(sender, TreeView).GetNodeAt(pt)
|
|
DestinationNode.Nodes.Add(CType(OriginationNode.Clone, TreeNode))
|
|
DestinationNode.Expand()
|
|
If (e.KeyState And CtrlMask) <> CtrlMask Then
|
|
OriginationNode.Remove()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TreeView_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles SysMenu.DragEnter
|
|
If (e.Data.GetDataPresent("System.Windows.Forms.TreeNode")) Then
|
|
If (e.KeyState And CtrlMask) = CtrlMask Then
|
|
e.Effect = DragDropEffects.Copy
|
|
Else
|
|
e.Effect = DragDropEffects.Move
|
|
End If
|
|
Else
|
|
e.Effect = DragDropEffects.None
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TreeView_ItemDrag(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles SysMenu.ItemDrag
|
|
If e.Button = MouseButtons.Left Then
|
|
DoDragDrop(e.Item, DragDropEffects.Move Or DragDropEffects.Copy)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MnuSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSave.Click
|
|
Dim i As Integer
|
|
conn.OpenConnection()
|
|
ListNodeCollectionRecursive(Me.SysMenu.Nodes(0), 0)
|
|
i = conn.CloseConnection(True)
|
|
End Sub
|
|
|
|
Private Sub ListNodeCollectionRecursive(ByVal tnParent As TreeNode, ByRef iSort As Integer)
|
|
Dim tn As TreeNode
|
|
If tnParent.GetNodeCount(False) > 0 Then
|
|
tn = tnParent.Nodes(0)
|
|
Else
|
|
tn = Nothing
|
|
End If
|
|
ssort = 0
|
|
Do Until tn Is Nothing
|
|
iSort = iSort + 1
|
|
ListNodeSave(tn, iSort)
|
|
If tn.GetNodeCount(False) > 0 Then
|
|
Call ListNodeCollectionRecursive(tn, iSort)
|
|
End If
|
|
tn = tn.NextNode
|
|
Loop
|
|
End Sub
|
|
|
|
Private Sub ListNodeSave(ByVal tn As TreeNode, ByRef isort As Integer)
|
|
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
Dim t As DataTable
|
|
Dim key As Long
|
|
Dim i As Integer
|
|
Dim dokumentart As New edokadb.clsMyDokumentart()
|
|
dbkey.cpMainConnectionProvider = conn
|
|
dokumentart.cpMainConnectionProvider = conn
|
|
|
|
If tn.Tag <> 0 Then
|
|
dokumentart.iDokumentartnr = New SqlInt32(CType(tn.Tag, Int32))
|
|
dokumentart.SelectOne()
|
|
End If
|
|
|
|
dokumentart.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
dokumentart.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
dokumentart.sBezeichnung = New SqlString(CType(tn.Text, String))
|
|
dokumentart.sBeschreibung = New SqlString(CType("", String))
|
|
dokumentart.iParentid = New SqlInt32(CType(tn.Parent.Tag, Int32))
|
|
dokumentart.iImageindex = New SqlInt32(CType(tn.ImageIndex, Int32))
|
|
dokumentart.iImageindexopen = New SqlInt32(CType(tn.SelectedImageIndex, Int32))
|
|
dokumentart.iSort = New SqlInt32(CType(isort, Int32))
|
|
dokumentart.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
|
dokumentart.bAktiv = New SqlBoolean(CType(True, Boolean))
|
|
dokumentart.iSprache = New SqlInt32(CType(Globals.Sprache, Int32))
|
|
dokumentart.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
|
If tn.Tag <> 0 Then
|
|
dokumentart.iDokumentartnr = New SqlInt32(CType(tn.Tag, Int32))
|
|
dokumentart.Update()
|
|
Else
|
|
key = dbkey.get_dbkey("dokumentart")
|
|
conn.OpenConnection()
|
|
dokumentart.iDokumentartnr = New SqlInt32(CType(key, Int32))
|
|
dokumentart.Insert()
|
|
tn.Tag = key
|
|
End If
|
|
|
|
For i = 1 To itodelete
|
|
dokumentart.iDokumentartnr = New SqlInt32(CType(todelete(i), Int32))
|
|
t = dokumentart.SelectOne
|
|
If t.Rows.Count > 0 Then
|
|
dokumentart.Delete()
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
|
|
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
|
Dim a As String
|
|
a = InputBox("Neuer Name:")
|
|
If a = "" Then Exit Sub
|
|
Me.SysMenu.SelectedNode.Text = a
|
|
End Sub
|
|
|
|
Private Sub TreeView_DblClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SysMenu.DoubleClick
|
|
If ToSelect Then
|
|
Me.Transferkey = Me.SysMenu.SelectedNode.Tag
|
|
Me.Close()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
|
|
Dim s As String
|
|
Dim split
|
|
Me.OpenFileDialog1.ShowDialog()
|
|
If Me.OpenFileDialog1.FileName = "" Then Exit Sub
|
|
FileOpen(1, Me.OpenFileDialog1.FileName, OpenMode.Input)
|
|
Do While Not EOF(1)
|
|
s = LineInput(1)
|
|
insert_dokumenttyp(s)
|
|
Loop
|
|
FileClose(1)
|
|
conn.CloseConnection(True)
|
|
End Sub
|
|
Private Sub insert_dokumenttyp(ByVal s As String)
|
|
Dim splits
|
|
Dim dt As New edokadb.clsDokumenttyp()
|
|
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
Dim key As Long
|
|
|
|
dt.cpMainConnectionProvider = conn
|
|
conn.OpenConnection()
|
|
dt.iDokumenttypnr = New SqlInt32(CType(13, Int32))
|
|
dt.SelectOne()
|
|
|
|
splits = Split(s, " ")
|
|
dt.iOffice_vorlagenr = New SqlInt32(CType(2, Int32))
|
|
dt.bHostdokument = New SqlBoolean(CType(True, Boolean))
|
|
dt.sHostdokumenttyp = New SqlString(CType(splits(1), String))
|
|
dt.sBezeichnung = New SqlString(CType(splits(2) + " " + splits(3), String))
|
|
dt.iDokumentart_host = New SqlInt32(CType(splits(0), Int32))
|
|
dt.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
|
dt.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
dt.iMutierer = New SqlInt32(CType(-1, Int32))
|
|
|
|
dbkey.cpMainConnectionProvider = conn
|
|
key = dbkey.get_dbkey("dokumenttyp")
|
|
conn.OpenConnection()
|
|
dt.iDokumenttypnr = New SqlInt32(CType(key, Int32))
|
|
dt.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
|
dt.Insert()
|
|
conn.CloseConnection(True)
|
|
End Sub
|
|
|
|
Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
|
|
Dim f As New frmIconSelector()
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
Me.SysMenu.SelectedNode.SelectedImageIndex = f.SelectedImage
|
|
Me.SysMenu.SelectedNode.ImageIndex = f.SelectedImage
|
|
End If
|
|
f.Dispose()
|
|
End Sub
|
|
End Class
|
|
|
|
|
|
|
|
|
|
|