_ Partial Class usrcntlSearch Inherits System.Windows.Forms.UserControl 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ 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. _ Private Sub InitializeComponent() Me.dgvKundenAktiv = New VERAG_PROG_ALLGEMEIN.MyDatagridview() Me.pnl = New System.Windows.Forms.Panel() Me.DirectoryEntry1 = New System.DirectoryServices.DirectoryEntry() Me.lblClose = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() CType(Me.dgvKundenAktiv, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnl.SuspendLayout() Me.Panel1.SuspendLayout() Me.SuspendLayout() ' 'dgvKundenAktiv ' Me.dgvKundenAktiv.AKTUALISIERUNGS_INTERVALL = -1 Me.dgvKundenAktiv.BackgroundColor = System.Drawing.Color.White Me.dgvKundenAktiv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvKundenAktiv.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvKundenAktiv.Location = New System.Drawing.Point(0, 0) Me.dgvKundenAktiv.Name = "dgvKundenAktiv" Me.dgvKundenAktiv.Size = New System.Drawing.Size(564, 358) 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.Location = New System.Drawing.Point(2, 3) Me.pnl.Name = "pnl" Me.pnl.Size = New System.Drawing.Size(564, 374) Me.pnl.TabIndex = 1 ' 'lblClose ' Me.lblClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblClose.AutoSize = True Me.lblClose.Cursor = System.Windows.Forms.Cursors.Hand Me.lblClose.Font = New System.Drawing.Font("Arial Black", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblClose.ForeColor = System.Drawing.Color.Red Me.lblClose.Location = New System.Drawing.Point(542, -5) Me.lblClose.Margin = New System.Windows.Forms.Padding(0) Me.lblClose.Name = "lblClose" Me.lblClose.Size = New System.Drawing.Size(22, 23) Me.lblClose.TabIndex = 17 Me.lblClose.Text = "X" ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.SystemColors.InactiveCaption Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel1.Controls.Add(Me.lblClose) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel1.Location = New System.Drawing.Point(0, 358) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(564, 16) Me.Panel1.TabIndex = 3 ' 'usrcntlSearch ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.SystemColors.MenuHighlight Me.Controls.Add(Me.pnl) Me.Name = "usrcntlSearch" Me.Size = New System.Drawing.Size(570, 380) CType(Me.dgvKundenAktiv, System.ComponentModel.ISupportInitialize).EndInit() Me.pnl.ResumeLayout(False) Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents pnl As System.Windows.Forms.Panel Public WithEvents dgvKundenAktiv As MyDatagridview Friend WithEvents DirectoryEntry1 As System.DirectoryServices.DirectoryEntry Friend WithEvents Panel1 As System.Windows.Forms.Panel Public WithEvents lblClose As System.Windows.Forms.Label End Class