Initial
This commit is contained in:
@@ -0,0 +1,605 @@
|
||||
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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user