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