_ Partial Class frmLookupGrid 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() Me.gridLookup = New DevExpress.XtraGrid.GridControl() Me.viewLookup = New DevExpress.XtraGrid.Views.Grid.GridView() Me.Panel1 = New System.Windows.Forms.Panel() Me.btnOK = New System.Windows.Forms.Button() Me.btnClear = New System.Windows.Forms.Button() CType(Me.gridLookup, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.viewLookup, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.SuspendLayout() ' 'gridLookup ' Me.gridLookup.Dock = System.Windows.Forms.DockStyle.Fill Me.gridLookup.Location = New System.Drawing.Point(0, 0) Me.gridLookup.MainView = Me.viewLookup Me.gridLookup.Name = "gridLookup" Me.gridLookup.Size = New System.Drawing.Size(384, 221) Me.gridLookup.TabIndex = 0 Me.gridLookup.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewLookup}) ' 'viewLookup ' Me.viewLookup.GridControl = Me.gridLookup Me.viewLookup.Name = "viewLookup" ' 'Panel1 ' Me.Panel1.Controls.Add(Me.btnOK) Me.Panel1.Controls.Add(Me.btnClear) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel1.Location = New System.Drawing.Point(0, 221) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(384, 40) Me.Panel1.TabIndex = 1 ' 'btnOK ' Me.btnOK.Location = New System.Drawing.Point(12, 6) Me.btnOK.Name = "btnOK" Me.btnOK.Size = New System.Drawing.Size(117, 23) Me.btnOK.TabIndex = 0 Me.btnOK.Text = "OK" Me.btnOK.UseVisualStyleBackColor = True ' 'btnClear ' Me.btnClear.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnClear.Location = New System.Drawing.Point(236, 6) Me.btnClear.Name = "btnClear" Me.btnClear.Size = New System.Drawing.Size(136, 23) Me.btnClear.TabIndex = 0 Me.btnClear.Text = "Leeren" Me.btnClear.UseVisualStyleBackColor = True ' 'frmLookupGrid ' Me.AcceptButton = Me.btnOK Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(384, 261) Me.Controls.Add(Me.gridLookup) Me.Controls.Add(Me.Panel1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow Me.MinimumSize = New System.Drawing.Size(400, 300) Me.Name = "frmLookupGrid" Me.Text = "Wählen Sie einen Wert:" Me.TopMost = True CType(Me.gridLookup, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.viewLookup, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.ResumeLayout(False) End Sub Friend WithEvents gridLookup As DevExpress.XtraGrid.GridControl Friend WithEvents viewLookup As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents Panel1 As Windows.Forms.Panel Friend WithEvents btnOK As Windows.Forms.Button Friend WithEvents btnClear As Windows.Forms.Button End Class