An Haufen Zeug

This commit is contained in:
ms
2019-08-07 10:45:49 +02:00
parent f2d5c20559
commit d67e84486a
35 changed files with 4382 additions and 658 deletions

View File

@@ -0,0 +1,382 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAllgemeinEintrag
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAllgemeinEintrag))
Me.CmdTest = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.TxtInfo = New System.Windows.Forms.TextBox()
Me.PanWrite = New System.Windows.Forms.Panel()
Me.btnBerechtigungen = New System.Windows.Forms.Button()
Me.Label7 = New System.Windows.Forms.Label()
Me.ChkKennwortAnzeigen = New System.Windows.Forms.CheckBox()
Me.TxtBenutzername = New System.Windows.Forms.TextBox()
Me.TxtKennwort = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.CmdLink = New System.Windows.Forms.Button()
Me.LblLink = New System.Windows.Forms.Label()
Me.CmdDateien = New System.Windows.Forms.Button()
Me.TxtLink = New System.Windows.Forms.TextBox()
Me.CmdDelete = New System.Windows.Forms.Button()
Me.CmdSave = New System.Windows.Forms.Button()
Me.CmdAbbrechen = New System.Windows.Forms.Button()
Me.CmdReset = New System.Windows.Forms.Button()
Me.Panelhinten = New System.Windows.Forms.Panel()
Me.PanTop = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.TxtTitel = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.TxtRubrik = New System.Windows.Forms.TextBox()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.PanContr = New System.Windows.Forms.Panel()
Me.Panel2.SuspendLayout()
Me.PanWrite.SuspendLayout()
Me.Panelhinten.SuspendLayout()
Me.PanTop.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.PanContr.SuspendLayout()
Me.SuspendLayout()
'
'CmdTest
'
Me.CmdTest.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdTest.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.CmdTest.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdTest.Location = New System.Drawing.Point(15, 10)
Me.CmdTest.Name = "CmdTest"
Me.CmdTest.Size = New System.Drawing.Size(94, 23)
Me.CmdTest.TabIndex = 108
Me.CmdTest.Text = "Test"
Me.CmdTest.UseVisualStyleBackColor = False
Me.CmdTest.Visible = False
'
'Panel2
'
Me.Panel2.Controls.Add(Me.TxtInfo)
Me.Panel2.Controls.Add(Me.Panel4)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 100)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(790, 591)
Me.Panel2.TabIndex = 108
'
'TxtInfo
'
Me.TxtInfo.Dock = System.Windows.Forms.DockStyle.Fill
Me.TxtInfo.Location = New System.Drawing.Point(0, 0)
Me.TxtInfo.Multiline = True
Me.TxtInfo.Name = "TxtInfo"
Me.TxtInfo.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.TxtInfo.Size = New System.Drawing.Size(790, 426)
Me.TxtInfo.TabIndex = 3
'
'PanWrite
'
Me.PanWrite.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.PanWrite.Controls.Add(Me.btnBerechtigungen)
Me.PanWrite.Controls.Add(Me.Label7)
Me.PanWrite.Controls.Add(Me.ChkKennwortAnzeigen)
Me.PanWrite.Controls.Add(Me.TxtBenutzername)
Me.PanWrite.Controls.Add(Me.TxtKennwort)
Me.PanWrite.Controls.Add(Me.Label6)
Me.PanWrite.Controls.Add(Me.LblLink)
Me.PanWrite.Controls.Add(Me.TxtLink)
Me.PanWrite.Controls.Add(Me.CmdDelete)
Me.PanWrite.Controls.Add(Me.CmdSave)
Me.PanWrite.Controls.Add(Me.CmdReset)
Me.PanWrite.Dock = System.Windows.Forms.DockStyle.Left
Me.PanWrite.Location = New System.Drawing.Point(0, 0)
Me.PanWrite.Name = "PanWrite"
Me.PanWrite.Size = New System.Drawing.Size(587, 165)
Me.PanWrite.TabIndex = 109
'
'btnBerechtigungen
'
Me.btnBerechtigungen.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnBerechtigungen.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.btnBerechtigungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBerechtigungen.Location = New System.Drawing.Point(203, 91)
Me.btnBerechtigungen.Name = "btnBerechtigungen"
Me.btnBerechtigungen.Size = New System.Drawing.Size(90, 23)
Me.btnBerechtigungen.TabIndex = 109
Me.btnBerechtigungen.Text = "Berechtig."
Me.btnBerechtigungen.UseVisualStyleBackColor = False
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(8, 10)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(78, 13)
Me.Label7.TabIndex = 90
Me.Label7.Text = "Benutzername:"
'
'ChkKennwortAnzeigen
'
Me.ChkKennwortAnzeigen.AutoSize = True
Me.ChkKennwortAnzeigen.Location = New System.Drawing.Point(393, 9)
Me.ChkKennwortAnzeigen.Name = "ChkKennwortAnzeigen"
Me.ChkKennwortAnzeigen.Size = New System.Drawing.Size(70, 17)
Me.ChkKennwortAnzeigen.TabIndex = 6
Me.ChkKennwortAnzeigen.Text = "Anzeigen"
Me.ChkKennwortAnzeigen.UseVisualStyleBackColor = True
'
'TxtBenutzername
'
Me.TxtBenutzername.Location = New System.Drawing.Point(11, 26)
Me.TxtBenutzername.Name = "TxtBenutzername"
Me.TxtBenutzername.Size = New System.Drawing.Size(282, 20)
Me.TxtBenutzername.TabIndex = 4
'
'TxtKennwort
'
Me.TxtKennwort.Location = New System.Drawing.Point(299, 26)
Me.TxtKennwort.Name = "TxtKennwort"
Me.TxtKennwort.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.TxtKennwort.Size = New System.Drawing.Size(282, 20)
Me.TxtKennwort.TabIndex = 5
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(296, 9)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(55, 13)
Me.Label6.TabIndex = 91
Me.Label6.Text = "Kennwort:"
'
'CmdLink
'
Me.CmdLink.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdLink.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.CmdLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdLink.Location = New System.Drawing.Point(15, 94)
Me.CmdLink.Name = "CmdLink"
Me.CmdLink.Size = New System.Drawing.Size(90, 23)
Me.CmdLink.TabIndex = 102
Me.CmdLink.Text = "Link öffnen"
Me.CmdLink.UseVisualStyleBackColor = False
'
'LblLink
'
Me.LblLink.AutoSize = True
Me.LblLink.Location = New System.Drawing.Point(8, 49)
Me.LblLink.Name = "LblLink"
Me.LblLink.Size = New System.Drawing.Size(85, 13)
Me.LblLink.TabIndex = 92
Me.LblLink.Text = "Link zum Dienst:"
'
'CmdDateien
'
Me.CmdDateien.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdDateien.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.CmdDateien.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdDateien.Location = New System.Drawing.Point(15, 65)
Me.CmdDateien.Name = "CmdDateien"
Me.CmdDateien.Size = New System.Drawing.Size(90, 23)
Me.CmdDateien.TabIndex = 98
Me.CmdDateien.Text = "Dateien"
Me.CmdDateien.UseVisualStyleBackColor = False
'
'TxtLink
'
Me.TxtLink.Location = New System.Drawing.Point(11, 65)
Me.TxtLink.Name = "TxtLink"
Me.TxtLink.Size = New System.Drawing.Size(282, 20)
Me.TxtLink.TabIndex = 7
'
'CmdDelete
'
Me.CmdDelete.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdDelete.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.CmdDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdDelete.Location = New System.Drawing.Point(11, 91)
Me.CmdDelete.Name = "CmdDelete"
Me.CmdDelete.Size = New System.Drawing.Size(90, 23)
Me.CmdDelete.TabIndex = 97
Me.CmdDelete.Text = "Eintrag löschen"
Me.CmdDelete.UseVisualStyleBackColor = False
'
'CmdSave
'
Me.CmdSave.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdSave.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.CmdSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdSave.Location = New System.Drawing.Point(393, 91)
Me.CmdSave.Name = "CmdSave"
Me.CmdSave.Size = New System.Drawing.Size(90, 23)
Me.CmdSave.TabIndex = 8
Me.CmdSave.Text = "Speichern"
Me.CmdSave.UseVisualStyleBackColor = False
'
'CmdAbbrechen
'
Me.CmdAbbrechen.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdAbbrechen.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.CmdAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdAbbrechen.Location = New System.Drawing.Point(98, 130)
Me.CmdAbbrechen.Name = "CmdAbbrechen"
Me.CmdAbbrechen.Size = New System.Drawing.Size(90, 23)
Me.CmdAbbrechen.TabIndex = 9
Me.CmdAbbrechen.Text = "Schließen"
Me.CmdAbbrechen.UseVisualStyleBackColor = False
'
'CmdReset
'
Me.CmdReset.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdReset.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.CmdReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdReset.Location = New System.Drawing.Point(107, 91)
Me.CmdReset.Name = "CmdReset"
Me.CmdReset.Size = New System.Drawing.Size(90, 23)
Me.CmdReset.TabIndex = 94
Me.CmdReset.Text = "Reset"
Me.CmdReset.UseVisualStyleBackColor = False
'
'Panelhinten
'
Me.Panelhinten.Controls.Add(Me.Panel2)
Me.Panelhinten.Controls.Add(Me.PanTop)
Me.Panelhinten.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panelhinten.Location = New System.Drawing.Point(0, 0)
Me.Panelhinten.Name = "Panelhinten"
Me.Panelhinten.Size = New System.Drawing.Size(790, 691)
Me.Panelhinten.TabIndex = 110
'
'PanTop
'
Me.PanTop.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.PanTop.Controls.Add(Me.Label1)
Me.PanTop.Controls.Add(Me.TxtTitel)
Me.PanTop.Controls.Add(Me.Label3)
Me.PanTop.Controls.Add(Me.TxtRubrik)
Me.PanTop.Dock = System.Windows.Forms.DockStyle.Top
Me.PanTop.Location = New System.Drawing.Point(0, 0)
Me.PanTop.Name = "PanTop"
Me.PanTop.Size = New System.Drawing.Size(790, 100)
Me.PanTop.TabIndex = 107
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(8, 11)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(41, 13)
Me.Label1.TabIndex = 100
Me.Label1.Text = "Rubrik:"
'
'TxtTitel
'
Me.TxtTitel.Location = New System.Drawing.Point(11, 66)
Me.TxtTitel.Name = "TxtTitel"
Me.TxtTitel.Size = New System.Drawing.Size(618, 20)
Me.TxtTitel.TabIndex = 2
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(8, 50)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(30, 13)
Me.Label3.TabIndex = 88
Me.Label3.Text = "Titel:"
'
'TxtRubrik
'
Me.TxtRubrik.Location = New System.Drawing.Point(11, 27)
Me.TxtRubrik.Name = "TxtRubrik"
Me.TxtRubrik.Size = New System.Drawing.Size(618, 20)
Me.TxtRubrik.TabIndex = 1
'
'Panel4
'
Me.Panel4.Controls.Add(Me.PanContr)
Me.Panel4.Controls.Add(Me.PanWrite)
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel4.Location = New System.Drawing.Point(0, 426)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(790, 165)
Me.Panel4.TabIndex = 110
'
'PanContr
'
Me.PanContr.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.PanContr.Controls.Add(Me.CmdLink)
Me.PanContr.Controls.Add(Me.CmdTest)
Me.PanContr.Controls.Add(Me.CmdDateien)
Me.PanContr.Controls.Add(Me.CmdAbbrechen)
Me.PanContr.Dock = System.Windows.Forms.DockStyle.Right
Me.PanContr.Location = New System.Drawing.Point(590, 0)
Me.PanContr.Name = "PanContr"
Me.PanContr.Size = New System.Drawing.Size(200, 165)
Me.PanContr.TabIndex = 110
'
'frmAllgemeinEintrag
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(790, 691)
Me.Controls.Add(Me.Panelhinten)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmAllgemeinEintrag"
Me.Text = "frmAllgemeinEintrag"
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.PanWrite.ResumeLayout(False)
Me.PanWrite.PerformLayout()
Me.Panelhinten.ResumeLayout(False)
Me.PanTop.ResumeLayout(False)
Me.PanTop.PerformLayout()
Me.Panel4.ResumeLayout(False)
Me.PanContr.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents CmdTest As Button
Friend WithEvents Panel2 As Panel
Private WithEvents TxtInfo As TextBox
Friend WithEvents PanWrite As Panel
Friend WithEvents Label7 As Label
Friend WithEvents ChkKennwortAnzeigen As CheckBox
Friend WithEvents TxtBenutzername As TextBox
Friend WithEvents TxtKennwort As TextBox
Friend WithEvents Label6 As Label
Friend WithEvents CmdLink As Button
Friend WithEvents LblLink As Label
Friend WithEvents CmdDateien As Button
Friend WithEvents TxtLink As TextBox
Friend WithEvents CmdDelete As Button
Friend WithEvents CmdSave As Button
Friend WithEvents CmdAbbrechen As Button
Friend WithEvents CmdReset As Button
Friend WithEvents Panelhinten As Panel
Friend WithEvents PanTop As Panel
Friend WithEvents Label1 As Label
Friend WithEvents TxtTitel As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents TxtRubrik As TextBox
Friend WithEvents btnBerechtigungen As Button
Friend WithEvents Panel4 As Panel
Friend WithEvents PanContr As Panel
End Class