neu

2020-09-23 07:23:26 +02:00
parent 81905f2f44
commit bead6bad6d
34 changed files with 1873 additions and 878 deletions
--- a/Aviso/Auswertung/usrctStatistik.vb
+++ b/Aviso/Auswertung/usrctStatistik.vb
@@ -20,7 +20,7 @@ Public Class usrctStatistik
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim g As Graphics = Panel1.CreateGraphics
        g.Clear(Color.FromArgb(245, 245, 245))
-        Dim p As Panel = DirectCast(sender, Panel)
+        Dim p As Panel = Panel1 'DirectCast(sender, Panel)
        'Jahre:
        Dim topbound = 10
        For i = 2013 To Now.Year