add button for clearing logs

2019-07-04 16:10:22 +02:00
parent 0148ba84c5
commit 0ab3acddb4
2 changed files with 21 additions and 0 deletions
--- a/GUIs.Test.TestGUI/Form1.vb
+++ b/GUIs.Test.TestGUI/Form1.vb
@@ -178,4 +178,13 @@ Public Class Form1
            ListBox1.Items.Add(oLog)
        Next
    End Sub
+
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+        MyLogger.ClearLogs()
+
+        ListBox1.Items.Clear()
+        For Each oLog In MyLogger.Logs
+            ListBox1.Items.Add(oLog)
+        Next
+    End Sub
 End Class