An Haufen Zeug

2019-08-07 10:45:49 +02:00
parent f2d5c20559
commit d67e84486a
35 changed files with 4382 additions and 658 deletions
--- a/Dokumentation/Main.Designer.vb
+++ b/Dokumentation/Main.Designer.vb
@@ -49,10 +49,14 @@ Partial Class Main
        Me.AnsichtDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ExportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ImportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BenutzerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
        Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.lblCount = New System.Windows.Forms.Label()
+        Me.btnNeu = New System.Windows.Forms.Button()
        Me.ChkDHCPClients = New System.Windows.Forms.CheckBox()
        Me.ChkFreieHosts = New System.Windows.Forms.CheckBox()
        Me.ChkKompAnsicht = New System.Windows.Forms.CheckBox()
@@ -85,11 +89,13 @@ Partial Class Main
        Me.PingToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
        Me.PanTools = New System.Windows.Forms.Panel()
+        Me.btnTest3 = New System.Windows.Forms.Button()
        Me.LblDebugInfo = New System.Windows.Forms.Label()
        Me.CmdPing = New System.Windows.Forms.Button()
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.TimerUhrzeit = New System.Windows.Forms.Timer(Me.components)
        Me.TimerUpdate = New System.Windows.Forms.Timer(Me.components)
+        Me.TimerWillkommen = New System.Windows.Forms.Timer(Me.components)
        Me.Panel2.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.PanType.SuspendLayout()
@@ -150,7 +156,7 @@ Partial Class Main
        '
        Me.LblVersion.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.LblVersion.AutoSize = True
-        Me.LblVersion.Location = New System.Drawing.Point(868, 81)
+        Me.LblVersion.Location = New System.Drawing.Point(858, 81)
        Me.LblVersion.Name = "LblVersion"
        Me.LblVersion.Size = New System.Drawing.Size(42, 13)
        Me.LblVersion.TabIndex = 17
@@ -280,13 +286,13 @@ Partial Class Main
        '
        'LblUhrzeit
        '
-        Me.LblUhrzeit.Anchor = System.Windows.Forms.AnchorStyles.Right
-        Me.LblUhrzeit.AutoSize = True
-        Me.LblUhrzeit.Location = New System.Drawing.Point(1061, 83)
+        Me.LblUhrzeit.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.LblUhrzeit.Location = New System.Drawing.Point(946, 81)
        Me.LblUhrzeit.Name = "LblUhrzeit"
-        Me.LblUhrzeit.Size = New System.Drawing.Size(54, 13)
+        Me.LblUhrzeit.Size = New System.Drawing.Size(235, 13)
        Me.LblUhrzeit.TabIndex = 7
        Me.LblUhrzeit.Text = "LblUhrzeit"
+        Me.LblUhrzeit.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'Panel1
        '
@@ -310,7 +316,7 @@ Partial Class Main
        'MenuStrip1
        '
        Me.MenuStrip1.BackColor = System.Drawing.SystemColors.GradientActiveCaption
-        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1})
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2})
        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
        Me.MenuStrip1.Name = "MenuStrip1"
        Me.MenuStrip1.Size = New System.Drawing.Size(1477, 24)
@@ -319,7 +325,7 @@ Partial Class Main
        '
        'ToolStripMenuItem1
        '
-        Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NetzwerkeToolStripMenuItem, Me.AnsichtDruckenToolStripMenuItem, Me.ExportToolStripMenuItem, Me.ImportToolStripMenuItem, Me.ToolStripSeparator1, Me.UpdateToolStripMenuItem, Me.ExitToolStripMenuItem})
+        Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NetzwerkeToolStripMenuItem, Me.AnsichtDruckenToolStripMenuItem, Me.ExportToolStripMenuItem, Me.ImportToolStripMenuItem, Me.BenutzerToolStripMenuItem, Me.ToolStripSeparator1, Me.UpdateToolStripMenuItem, Me.ExitToolStripMenuItem})
        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(49, 20)
        Me.ToolStripMenuItem1.Text = "Extras"
@@ -327,47 +333,60 @@ Partial Class Main
        'NetzwerkeToolStripMenuItem
        '
        Me.NetzwerkeToolStripMenuItem.Name = "NetzwerkeToolStripMenuItem"
-        Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
        Me.NetzwerkeToolStripMenuItem.Text = "Tabellen bearbeiten"
        '
        'AnsichtDruckenToolStripMenuItem
        '
        Me.AnsichtDruckenToolStripMenuItem.Name = "AnsichtDruckenToolStripMenuItem"
-        Me.AnsichtDruckenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.AnsichtDruckenToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
        Me.AnsichtDruckenToolStripMenuItem.Text = "Drucken"
        '
        'ExportToolStripMenuItem
        '
        Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
-        Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
        Me.ExportToolStripMenuItem.Text = "Export"
        '
        'ImportToolStripMenuItem
        '
        Me.ImportToolStripMenuItem.Name = "ImportToolStripMenuItem"
-        Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
        Me.ImportToolStripMenuItem.Text = "Import"
        '
+        'BenutzerToolStripMenuItem
+        '
+        Me.BenutzerToolStripMenuItem.Name = "BenutzerToolStripMenuItem"
+        Me.BenutzerToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
+        Me.BenutzerToolStripMenuItem.Text = "Benutzer"
+        '
        'ToolStripSeparator1
        '
        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(174, 6)
        '
        'UpdateToolStripMenuItem
        '
        Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
-        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
        Me.UpdateToolStripMenuItem.Text = "Update"
        '
        'ExitToolStripMenuItem
        '
        Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
-        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
        Me.ExitToolStripMenuItem.Text = "Exit"
        '
+        'ToolStripMenuItem2
+        '
+        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
+        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(12, 20)
+        '
        'Panel3
        '
        Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.Panel3.Controls.Add(Me.lblCount)
+        Me.Panel3.Controls.Add(Me.btnNeu)
        Me.Panel3.Controls.Add(Me.ChkDHCPClients)
        Me.Panel3.Controls.Add(Me.ChkFreieHosts)
        Me.Panel3.Controls.Add(Me.ChkKompAnsicht)
@@ -386,12 +405,35 @@ Partial Class Main
        Me.Panel3.Size = New System.Drawing.Size(200, 771)
        Me.Panel3.TabIndex = 2
        '
+        'lblCount
+        '
+        Me.lblCount.AutoSize = True
+        Me.lblCount.Location = New System.Drawing.Point(13, 746)
+        Me.lblCount.Name = "lblCount"
+        Me.lblCount.Size = New System.Drawing.Size(45, 13)
+        Me.lblCount.TabIndex = 18
+        Me.lblCount.Text = "lblCount"
+        '
+        'btnNeu
+        '
+        Me.btnNeu.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.btnNeu.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnNeu.Image = Global.Dokumentation.My.Resources.Resources.Bearbeiten20
+        Me.btnNeu.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnNeu.Location = New System.Drawing.Point(25, 447)
+        Me.btnNeu.Name = "btnNeu"
+        Me.btnNeu.Size = New System.Drawing.Size(151, 28)
+        Me.btnNeu.TabIndex = 17
+        Me.btnNeu.Text = "Neuer Eintrag"
+        Me.btnNeu.UseVisualStyleBackColor = False
+        '
        'ChkDHCPClients
        '
        Me.ChkDHCPClients.AutoSize = True
        Me.ChkDHCPClients.Checked = True
        Me.ChkDHCPClients.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.ChkDHCPClients.Location = New System.Drawing.Point(25, 582)
+        Me.ChkDHCPClients.Location = New System.Drawing.Point(25, 651)
        Me.ChkDHCPClients.Name = "ChkDHCPClients"
        Me.ChkDHCPClients.Size = New System.Drawing.Size(136, 17)
        Me.ChkDHCPClients.TabIndex = 16
@@ -401,7 +443,7 @@ Partial Class Main
        'ChkFreieHosts
        '
        Me.ChkFreieHosts.AutoSize = True
-        Me.ChkFreieHosts.Location = New System.Drawing.Point(25, 559)
+        Me.ChkFreieHosts.Location = New System.Drawing.Point(25, 628)
        Me.ChkFreieHosts.Name = "ChkFreieHosts"
        Me.ChkFreieHosts.Size = New System.Drawing.Size(122, 17)
        Me.ChkFreieHosts.TabIndex = 15
@@ -413,7 +455,7 @@ Partial Class Main
        Me.ChkKompAnsicht.AutoSize = True
        Me.ChkKompAnsicht.Checked = True
        Me.ChkKompAnsicht.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.ChkKompAnsicht.Location = New System.Drawing.Point(25, 536)
+        Me.ChkKompAnsicht.Location = New System.Drawing.Point(25, 605)
        Me.ChkKompAnsicht.Name = "ChkKompAnsicht"
        Me.ChkKompAnsicht.Size = New System.Drawing.Size(124, 17)
        Me.ChkKompAnsicht.TabIndex = 14
@@ -424,7 +466,7 @@ Partial Class Main
        '
        Me.PanNetzwerk.Controls.Add(Me.CmdNWDateien)
        Me.PanNetzwerk.Controls.Add(Me.CmdNetzwerkbearbeiten)
-        Me.PanNetzwerk.Location = New System.Drawing.Point(3, 445)
+        Me.PanNetzwerk.Location = New System.Drawing.Point(6, 491)
        Me.PanNetzwerk.Name = "PanNetzwerk"
        Me.PanNetzwerk.Size = New System.Drawing.Size(191, 85)
        Me.PanNetzwerk.TabIndex = 13
@@ -436,7 +478,7 @@ Partial Class Main
        Me.CmdNWDateien.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.CmdNWDateien.Image = Global.Dokumentation.My.Resources.Resources.Folder20
        Me.CmdNWDateien.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.CmdNWDateien.Location = New System.Drawing.Point(22, 11)
+        Me.CmdNWDateien.Location = New System.Drawing.Point(19, 11)
        Me.CmdNWDateien.Name = "CmdNWDateien"
        Me.CmdNWDateien.Size = New System.Drawing.Size(151, 28)
        Me.CmdNWDateien.TabIndex = 15
@@ -450,7 +492,7 @@ Partial Class Main
        Me.CmdNetzwerkbearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.CmdNetzwerkbearbeiten.Image = Global.Dokumentation.My.Resources.Resources.Netzwerk20
        Me.CmdNetzwerkbearbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.CmdNetzwerkbearbeiten.Location = New System.Drawing.Point(22, 45)
+        Me.CmdNetzwerkbearbeiten.Location = New System.Drawing.Point(19, 45)
        Me.CmdNetzwerkbearbeiten.Name = "CmdNetzwerkbearbeiten"
        Me.CmdNetzwerkbearbeiten.Size = New System.Drawing.Size(151, 28)
        Me.CmdNetzwerkbearbeiten.TabIndex = 8
@@ -468,7 +510,7 @@ Partial Class Main
        Me.CmDBearbeiten.Name = "CmDBearbeiten"
        Me.CmDBearbeiten.Size = New System.Drawing.Size(151, 28)
        Me.CmDBearbeiten.TabIndex = 6
-        Me.CmDBearbeiten.Text = "Host Bearbeiten"
+        Me.CmDBearbeiten.Text = "Eintrag Bearbeiten"
        Me.CmDBearbeiten.UseVisualStyleBackColor = False
        '
        'CmdFiles
@@ -482,7 +524,7 @@ Partial Class Main
        Me.CmdFiles.Name = "CmdFiles"
        Me.CmdFiles.Size = New System.Drawing.Size(151, 28)
        Me.CmdFiles.TabIndex = 12
-        Me.CmdFiles.Text = "Host Dateien"
+        Me.CmdFiles.Text = "Eintrag Dateien"
        Me.CmdFiles.UseVisualStyleBackColor = False
        '
        'LstAllgemein
@@ -497,7 +539,7 @@ Partial Class Main
        'ChkTools
        '
        Me.ChkTools.AutoSize = True
-        Me.ChkTools.Location = New System.Drawing.Point(25, 640)
+        Me.ChkTools.Location = New System.Drawing.Point(25, 709)
        Me.ChkTools.Name = "ChkTools"
        Me.ChkTools.Size = New System.Drawing.Size(107, 17)
        Me.ChkTools.TabIndex = 10
@@ -521,7 +563,7 @@ Partial Class Main
        'ChKZugangsdaten
        '
        Me.ChKZugangsdaten.AutoSize = True
-        Me.ChKZugangsdaten.Location = New System.Drawing.Point(25, 618)
+        Me.ChKZugangsdaten.Location = New System.Drawing.Point(25, 687)
        Me.ChKZugangsdaten.Name = "ChKZugangsdaten"
        Me.ChKZugangsdaten.Size = New System.Drawing.Size(141, 17)
        Me.ChKZugangsdaten.TabIndex = 4
@@ -585,6 +627,7 @@ Partial Class Main
        Me.DgVMain.ContextMenuStrip = Me.DGVMainContext
        Me.DgVMain.Dock = System.Windows.Forms.DockStyle.Fill
        Me.DgVMain.Location = New System.Drawing.Point(200, 130)
+        Me.DgVMain.MultiSelect = False
        Me.DgVMain.Name = "DgVMain"
        Me.DgVMain.ReadOnly = True
        Me.DgVMain.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -670,6 +713,7 @@ Partial Class Main
        'PanTools
        '
        Me.PanTools.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.PanTools.Controls.Add(Me.btnTest3)
        Me.PanTools.Controls.Add(Me.LblDebugInfo)
        Me.PanTools.Controls.Add(Me.CmdPing)
        Me.PanTools.Controls.Add(Me.CmdPutty)
@@ -682,6 +726,16 @@ Partial Class Main
        Me.PanTools.TabIndex = 4
        Me.PanTools.Visible = False
        '
+        'btnTest3
+        '
+        Me.btnTest3.Dock = System.Windows.Forms.DockStyle.Right
+        Me.btnTest3.Location = New System.Drawing.Point(1052, 0)
+        Me.btnTest3.Name = "btnTest3"
+        Me.btnTest3.Size = New System.Drawing.Size(75, 100)
+        Me.btnTest3.TabIndex = 13
+        Me.btnTest3.Text = "Test3"
+        Me.btnTest3.UseVisualStyleBackColor = True
+        '
        'LblDebugInfo
        '
        Me.LblDebugInfo.AutoSize = True
@@ -711,7 +765,6 @@ Partial Class Main
        '
        'TimerUhrzeit
        '
-        Me.TimerUhrzeit.Enabled = True
        Me.TimerUhrzeit.Interval = 1000
        '
        'TimerUpdate
@@ -719,6 +772,11 @@ Partial Class Main
        Me.TimerUpdate.Enabled = True
        Me.TimerUpdate.Interval = 10000
        '
+        'TimerWillkommen
+        '
+        Me.TimerWillkommen.Enabled = True
+        Me.TimerWillkommen.Interval = 5000
+        '
        'Main
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -822,4 +880,10 @@ Partial Class Main
    Friend WithEvents ChkFreieHosts As CheckBox
    Friend WithEvents ChkDHCPClients As CheckBox
    Public WithEvents DgVMain As DataGridView
+    Friend WithEvents btnNeu As Button
+    Friend WithEvents lblCount As Label
+    Friend WithEvents BenutzerToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents TimerWillkommen As Timer
+    Friend WithEvents btnTest3 As Button
+    Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
 End Class