_ Partial Class Selektion_Mandant Inherits System.Windows.Forms.Form 'Das Formular ü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() Dim Style1 As C1.Win.C1List.Style = New C1.Win.C1List.Style Dim Style2 As C1.Win.C1List.Style = New C1.Win.C1List.Style Dim Style3 As C1.Win.C1List.Style = New C1.Win.C1List.Style Dim Style4 As C1.Win.C1List.Style = New C1.Win.C1List.Style Dim Style5 As C1.Win.C1List.Style = New C1.Win.C1List.Style Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Selektion_Mandant)) Dim Style6 As C1.Win.C1List.Style = New C1.Win.C1List.Style Dim Style7 As C1.Win.C1List.Style = New C1.Win.C1List.Style Dim Style8 As C1.Win.C1List.Style = New C1.Win.C1List.Style Me.BtnAbbruch = New System.Windows.Forms.Button Me.BtnOK = New System.Windows.Forms.Button Me.Label1 = New System.Windows.Forms.Label Me.MandantList = New C1.Win.C1List.C1List CType(Me.MandantList, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'BtnAbbruch ' Me.BtnAbbruch.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.BtnAbbruch.Location = New System.Drawing.Point(266, 241) Me.BtnAbbruch.Name = "BtnAbbruch" Me.BtnAbbruch.Size = New System.Drawing.Size(75, 23) Me.BtnAbbruch.TabIndex = 7 Me.BtnAbbruch.Text = "Abbruch" ' 'BtnOK ' Me.BtnOK.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.BtnOK.Location = New System.Drawing.Point(2, 241) Me.BtnOK.Name = "BtnOK" Me.BtnOK.Size = New System.Drawing.Size(75, 23) Me.BtnOK.TabIndex = 6 Me.BtnOK.Text = "OK" ' 'Label1 ' Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Label1.Location = New System.Drawing.Point(2, 9) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(344, 24) Me.Label1.TabIndex = 5 Me.Label1.Text = "Wählen Sie den Mandanten für den Sie tätig sein wollen" ' 'MandantList ' Me.MandantList.AddItemSeparator = Global.Microsoft.VisualBasic.ChrW(59) Me.MandantList.AlternatingRows = True Me.MandantList.CaptionHeight = 17 Me.MandantList.CaptionStyle = Style1 Me.MandantList.ColumnCaptionHeight = 17 Me.MandantList.ColumnFooterHeight = 17 Me.MandantList.ColumnHeaders = False Me.MandantList.DeadAreaBackColor = System.Drawing.SystemColors.ControlDark Me.MandantList.EvenRowStyle = Style2 Me.MandantList.FetchRowStyles = True Me.MandantList.FooterStyle = Style3 Me.MandantList.HeadingStyle = Style4 Me.MandantList.HighLightRowStyle = Style5 Me.MandantList.Images.Add(CType(resources.GetObject("MandantList.Images"), System.Drawing.Image)) Me.MandantList.ItemHeight = 15 Me.MandantList.Location = New System.Drawing.Point(2, 33) Me.MandantList.MatchCol = C1.Win.C1List.MatchColEnum.CurrentMousePos Me.MandantList.MatchEntryTimeout = CType(2000, Long) Me.MandantList.Name = "MandantList" Me.MandantList.OddRowStyle = Style6 Me.MandantList.RowDivider.Color = System.Drawing.Color.DarkGray Me.MandantList.RowDivider.Style = C1.Win.C1List.LineStyleEnum.None Me.MandantList.RowSubDividerColor = System.Drawing.Color.DarkGray Me.MandantList.SelectedStyle = Style7 Me.MandantList.Size = New System.Drawing.Size(344, 200) Me.MandantList.Style = Style8 Me.MandantList.TabIndex = 4 Me.MandantList.Text = "C1List1" Me.MandantList.PropBag = resources.GetString("MandantList.PropBag") ' 'frmSelektion_Mandant ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(352, 271) Me.Controls.Add(Me.BtnAbbruch) Me.Controls.Add(Me.BtnOK) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.MandantList) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "frmSelektion_Mandant" Me.ShowIcon = False Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Mandant-Selektion" CType(Me.MandantList, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub Friend WithEvents BtnAbbruch As System.Windows.Forms.Button Friend WithEvents BtnOK As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents MandantList As C1.Win.C1List.C1List End Class