_ Partial Class frmFileInfo 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.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.txtLocation = New System.Windows.Forms.TextBox() Me.txtCreation = New System.Windows.Forms.TextBox() Me.SuspendLayout() ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(3, 9) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(71, 13) Me.Label1.TabIndex = 0 Me.Label1.Text = "File-Location:" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(3, 88) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(67, 13) Me.Label2.TabIndex = 1 Me.Label2.Text = "File created:" ' 'txtLocation ' Me.txtLocation.Location = New System.Drawing.Point(6, 25) Me.txtLocation.Multiline = True Me.txtLocation.Name = "txtLocation" Me.txtLocation.ReadOnly = True Me.txtLocation.Size = New System.Drawing.Size(435, 60) Me.txtLocation.TabIndex = 2 Me.txtLocation.TabStop = False ' 'txtCreation ' Me.txtCreation.Location = New System.Drawing.Point(6, 104) Me.txtCreation.Name = "txtCreation" Me.txtCreation.ReadOnly = True Me.txtCreation.Size = New System.Drawing.Size(435, 21) Me.txtCreation.TabIndex = 3 Me.txtCreation.TabStop = False ' 'frmFileInfo ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.SystemColors.HighlightText Me.ClientSize = New System.Drawing.Size(450, 135) Me.Controls.Add(Me.txtCreation) Me.Controls.Add(Me.txtLocation) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "frmFileInfo" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "File-Info" Me.TopMost = True Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Label1 As Label Friend WithEvents Label2 As Label Friend WithEvents txtLocation As TextBox Friend WithEvents txtCreation As TextBox End Class