_ Partial Class frmPrinterselect 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPrinterselect)) Me.lbprinter = New System.Windows.Forms.ListBox() Me.Label1 = New System.Windows.Forms.Label() Me.lblDefaultprinter = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'lbprinter ' Me.lbprinter.FormattingEnabled = True Me.lbprinter.Location = New System.Drawing.Point(12, 50) Me.lbprinter.Name = "lbprinter" Me.lbprinter.Size = New System.Drawing.Size(260, 199) Me.lbprinter.Sorted = True Me.lbprinter.TabIndex = 0 ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(12, 13) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(94, 13) Me.Label1.TabIndex = 1 Me.Label1.Text = "Standard-Drucker:" ' 'lblDefaultprinter ' Me.lblDefaultprinter.AutoSize = True Me.lblDefaultprinter.Location = New System.Drawing.Point(112, 13) Me.lblDefaultprinter.Name = "lblDefaultprinter" Me.lblDefaultprinter.Size = New System.Drawing.Size(0, 13) Me.lblDefaultprinter.TabIndex = 2 ' 'Button1 ' Me.Button1.Location = New System.Drawing.Point(12, 266) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(75, 23) Me.Button1.TabIndex = 3 Me.Button1.Text = "Als Standard setzen" Me.Button1.UseVisualStyleBackColor = True ' 'frmPrinterselect ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(284, 318) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.lblDefaultprinter) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.lbprinter) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmPrinterselect" Me.Text = "Druckerauswahl" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents lbprinter As ListBox Friend WithEvents Label1 As Label Friend WithEvents lblDefaultprinter As Label Friend WithEvents Button1 As Button End Class