KdSearchbox, etc.

2025-12-29 14:53:52 +01:00
parent 5f635227eb
commit 51b7ecf2a0
5 changed files with 324 additions and 91 deletions
--- a/Steuerelemente/usrcntlKdSearch.Designer.vb
+++ b/Steuerelemente/usrcntlKdSearch.Designer.vb
@@ -22,19 +22,84 @@ Partial Class usrcntlKdSearch
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
-        Me.dgvKundenAktiv = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.components = New System.ComponentModel.Container()
        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.btnAlleKunden = New System.Windows.Forms.Button()
+        Me.lblAnzahl = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.dgvKundenAktiv = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.lblClose = New System.Windows.Forms.Label()
        Me.lblINAKTIVEKunden = New System.Windows.Forms.Label()
-        Me.dgvKundenInAktiv = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvKundenInAktiv = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.DirectoryEntry1 = New System.DirectoryServices.DirectoryEntry()
-        CType(Me.dgvKundenAktiv, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnl.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        CType(Me.dgvKundenAktiv, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        CType(Me.dgvKundenInAktiv, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
+        'pnl
+        '
+        Me.pnl.AutoSize = True
+        Me.pnl.BackColor = System.Drawing.Color.White
+        Me.pnl.Controls.Add(Me.Panel2)
+        Me.pnl.Controls.Add(Me.dgvKundenAktiv)
+        Me.pnl.Controls.Add(Me.Panel1)
+        Me.pnl.Controls.Add(Me.dgvKundenInAktiv)
+        Me.pnl.Location = New System.Drawing.Point(2, 3)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(564, 374)
+        Me.pnl.TabIndex = 1
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.SystemColors.InactiveCaption
+        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel2.Controls.Add(Me.btnAlleKunden)
+        Me.Panel2.Controls.Add(Me.lblAnzahl)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(564, 16)
+        Me.Panel2.TabIndex = 18
+        '
+        'btnAlleKunden
+        '
+        Me.btnAlleKunden.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnAlleKunden.Location = New System.Drawing.Point(414, -2)
+        Me.btnAlleKunden.Name = "btnAlleKunden"
+        Me.btnAlleKunden.Size = New System.Drawing.Size(68, 18)
+        Me.btnAlleKunden.TabIndex = 4
+        Me.btnAlleKunden.Text = "alle Kunden"
+        Me.btnAlleKunden.TextAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnAlleKunden.UseVisualStyleBackColor = True
+        Me.btnAlleKunden.Visible = False
+        '
+        'lblAnzahl
+        '
+        Me.lblAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblAnzahl.AutoSize = True
+        Me.lblAnzahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblAnzahl.Location = New System.Drawing.Point(488, 0)
+        Me.lblAnzahl.Name = "lblAnzahl"
+        Me.lblAnzahl.Size = New System.Drawing.Size(45, 13)
+        Me.lblAnzahl.TabIndex = 3
+        Me.lblAnzahl.Text = "Anzahl: "
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(3, 0)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(75, 13)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "aktive Kunden"
+        '
        'dgvKundenAktiv
        '
        Me.dgvKundenAktiv.AKTUALISIERUNGS_INTERVALL = -1
@@ -46,18 +111,6 @@ Partial Class usrcntlKdSearch
        Me.dgvKundenAktiv.Size = New System.Drawing.Size(564, 243)
        Me.dgvKundenAktiv.TabIndex = 0
        '
-        'pnl
-        '
-        Me.pnl.AutoSize = True
-        Me.pnl.BackColor = System.Drawing.Color.White
-        Me.pnl.Controls.Add(Me.dgvKundenAktiv)
-        Me.pnl.Controls.Add(Me.Panel1)
-        Me.pnl.Controls.Add(Me.dgvKundenInAktiv)
-        Me.pnl.Location = New System.Drawing.Point(2, 3)
-        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(564, 374)
-        Me.pnl.TabIndex = 1
-        '
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.SystemColors.InactiveCaption
@@ -113,8 +166,10 @@ Partial Class usrcntlKdSearch
        Me.Controls.Add(Me.pnl)
        Me.Name = "usrcntlKdSearch"
        Me.Size = New System.Drawing.Size(570, 380)
-        CType(Me.dgvKundenAktiv, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnl.ResumeLayout(False)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        CType(Me.dgvKundenAktiv, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel1.ResumeLayout(False)
        Me.Panel1.PerformLayout()
        CType(Me.dgvKundenInAktiv, System.ComponentModel.ISupportInitialize).EndInit()
@@ -129,5 +184,8 @@ Partial Class usrcntlKdSearch
    Public WithEvents dgvKundenInAktiv As MyDatagridview
    Public WithEvents lblClose As System.Windows.Forms.Label
    Friend WithEvents DirectoryEntry1 As System.DirectoryServices.DirectoryEntry
-
+    Friend WithEvents Panel2 As Windows.Forms.Panel
+    Friend WithEvents Label2 As Windows.Forms.Label
+    Friend WithEvents lblAnzahl As Windows.Forms.Label
+    Friend WithEvents btnAlleKunden As Windows.Forms.Button
 End Class