diff --git a/GUIs.Test.TestGUI/TestGUI.vbproj b/GUIs.Test.TestGUI/TestGUI.vbproj
index a9ba4c44..b4ccc364 100644
--- a/GUIs.Test.TestGUI/TestGUI.vbproj
+++ b/GUIs.Test.TestGUI/TestGUI.vbproj
@@ -113,6 +113,12 @@
+
+ frmChecksum.vb
+
+
+ Form
+
frmConfigTest.vb
@@ -173,6 +179,9 @@
+
+ frmChecksum.vb
+
frmConfigTest.vb
diff --git a/GUIs.Test.TestGUI/frmChecksum.Designer.vb b/GUIs.Test.TestGUI/frmChecksum.Designer.vb
new file mode 100644
index 00000000..4b1aa902
--- /dev/null
+++ b/GUIs.Test.TestGUI/frmChecksum.Designer.vb
@@ -0,0 +1,79 @@
+ _
+Partial Class frmChecksum
+ 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.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+ Me.TextBox1 = New System.Windows.Forms.TextBox()
+ Me.Button1 = New System.Windows.Forms.Button()
+ Me.Button3 = New System.Windows.Forms.Button()
+ Me.SuspendLayout()
+ '
+ 'OpenFileDialog1
+ '
+ Me.OpenFileDialog1.FileName = "OpenFileDialog1"
+ '
+ 'TextBox1
+ '
+ Me.TextBox1.Location = New System.Drawing.Point(12, 12)
+ Me.TextBox1.Name = "TextBox1"
+ Me.TextBox1.Size = New System.Drawing.Size(553, 20)
+ Me.TextBox1.TabIndex = 0
+ '
+ 'Button1
+ '
+ Me.Button1.Location = New System.Drawing.Point(571, 10)
+ Me.Button1.Name = "Button1"
+ Me.Button1.Size = New System.Drawing.Size(75, 23)
+ Me.Button1.TabIndex = 2
+ Me.Button1.Text = "Datei 1"
+ Me.Button1.UseVisualStyleBackColor = True
+ '
+ 'Button3
+ '
+ Me.Button3.Location = New System.Drawing.Point(652, 10)
+ Me.Button3.Name = "Button3"
+ Me.Button3.Size = New System.Drawing.Size(145, 23)
+ Me.Button3.TabIndex = 2
+ Me.Button3.Text = "Prüfsumme berechnen"
+ Me.Button3.UseVisualStyleBackColor = True
+ '
+ 'frmChecksum
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.ClientSize = New System.Drawing.Size(800, 450)
+ Me.Controls.Add(Me.Button3)
+ Me.Controls.Add(Me.Button1)
+ Me.Controls.Add(Me.TextBox1)
+ Me.Name = "frmChecksum"
+ Me.Text = "frmChecksum"
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+
+ Friend WithEvents OpenFileDialog1 As OpenFileDialog
+ Friend WithEvents TextBox1 As TextBox
+ Friend WithEvents Button1 As Button
+ Friend WithEvents Button3 As Button
+End Class
diff --git a/GUIs.Test.TestGUI/frmChecksum.resx b/GUIs.Test.TestGUI/frmChecksum.resx
new file mode 100644
index 00000000..33c7f672
--- /dev/null
+++ b/GUIs.Test.TestGUI/frmChecksum.resx
@@ -0,0 +1,123 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ 17, 17
+
+
\ No newline at end of file
diff --git a/GUIs.Test.TestGUI/frmChecksum.vb b/GUIs.Test.TestGUI/frmChecksum.vb
new file mode 100644
index 00000000..48c77d71
--- /dev/null
+++ b/GUIs.Test.TestGUI/frmChecksum.vb
@@ -0,0 +1,22 @@
+Imports DigitalData.Modules.Logging
+
+Public Class frmChecksum
+ Private LogConfig As LogConfig
+ Private FileEx As DigitalData.Modules.Filesystem.File
+
+ Private Sub frmChecksum_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+ LogConfig = New LogConfig(LogConfig.PathType.Temp)
+ FileEx = New DigitalData.Modules.Filesystem.File(LogConfig)
+ End Sub
+
+ Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+ If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
+ TextBox1.Text = OpenFileDialog1.FileName
+ End If
+ End Sub
+
+ Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+ Dim oChecksum = FileEx.GetChecksum(TextBox1.Text)
+ MsgBox(oChecksum)
+ End Sub
+End Class
\ No newline at end of file
diff --git a/GUIs.Test.TestGUI/frmLookup.vb b/GUIs.Test.TestGUI/frmLookup.vb
index 7a1a3257..39a5fdc9 100644
--- a/GUIs.Test.TestGUI/frmLookup.vb
+++ b/GUIs.Test.TestGUI/frmLookup.vb
@@ -11,7 +11,7 @@ Public Class frmLookup
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
- Localizer.Active = New LookupGridLocalizer()
+ 'Localizer.Active = New LookupGridLocalizer()
End Sub
Private Sub frmLookup_Load(sender As Object, e As EventArgs) Handles MyBase.Load
diff --git a/GUIs.Test.TestGUI/frmStart.Designer.vb b/GUIs.Test.TestGUI/frmStart.Designer.vb
index 2418a6c7..4bb83fcf 100644
--- a/GUIs.Test.TestGUI/frmStart.Designer.vb
+++ b/GUIs.Test.TestGUI/frmStart.Designer.vb
@@ -26,6 +26,7 @@ Partial Class frmStart
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
+ Me.Button5 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Button1
@@ -64,11 +65,21 @@ Partial Class frmStart
Me.Button4.Text = "Skalierungsfaktor"
Me.Button4.UseVisualStyleBackColor = True
'
+ 'Button5
+ '
+ Me.Button5.Location = New System.Drawing.Point(12, 260)
+ Me.Button5.Name = "Button5"
+ Me.Button5.Size = New System.Drawing.Size(236, 60)
+ Me.Button5.TabIndex = 2
+ Me.Button5.Text = "Button5"
+ Me.Button5.UseVisualStyleBackColor = True
+ '
'frmStart
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
+ Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
@@ -83,4 +94,5 @@ Partial Class frmStart
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
Friend WithEvents Button4 As Button
+ Friend WithEvents Button5 As Button
End Class
diff --git a/GUIs.Test.TestGUI/frmStart.vb b/GUIs.Test.TestGUI/frmStart.vb
index d8b40900..ce2fcd0f 100644
--- a/GUIs.Test.TestGUI/frmStart.vb
+++ b/GUIs.Test.TestGUI/frmStart.vb
@@ -18,4 +18,8 @@ Public Class frmStart
MsgBox("Scaling: " & oScreen.GetScreenScaling(Me))
End Sub
+
+ Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+ frmChecksum.Show()
+ End Sub
End Class
\ No newline at end of file