Public Class start
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu
' bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer
' erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents starten As System.Diagnostics.Process
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
Me.starten = New System.Diagnostics.Process
Me.Label1 = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'LinkLabel1
'
Me.LinkLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", _
9.75!, System.Drawing.FontStyle.Regular, _
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LinkLabel1.Location = New System.Drawing.Point(75, 275)
Me.LinkLabel1.Name = "LinkLabel1"
Me.LinkLabel1.Size = New System.Drawing.Size(205, 20)
Me.LinkLabel1.TabIndex = 0
Me.LinkLabel1.TabStop = True
Me.LinkLabel1.Text = "Beenden"
'
'starten
'
Me.starten.SynchronizingObject = Me
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, _
System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, _
CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(255, Byte), _
CType(128, Byte), CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(10, 15)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(360, 80)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Willkommen im Installationsprogramm von Industrie USA"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'start
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(374, 321)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.LinkLabel1)
Me.FormBorderStyle = _
System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "start"
Me.Text = "Autostart"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e _
As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles _
LinkLabel1.LinkClicked
Me.Close()
End Sub
End Class Der genaue Fehler heißt:
Eine nicht behandelte Ausnahme des Typs 'System.ArithmeticException' ist in system.drawing.dll aufgetreten.
Zusätzliche Informationen: In der arithmetischen Operation ist ein Über- oder Unterlauf aufgetreten. |