neu

UID/frmMain.vb

@@ -29,6 +29,8 @@ Public Class frmMain
         Button1.Enabled = False
         btnHomepage.Enabled = False
         Button6.Enabled = False
+        Button2.Enabled = False
+        Button3.Enabled = False
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then
             btnDienstplan.Enabled = True
@@ -44,6 +46,8 @@ Public Class frmMain
             btnSchulungen.Enabled = True
             btnDienstplan.Enabled = True
             Button1.Enabled = True
+            Button2.Enabled = True
+            Button3.Enabled = True
             btnHomepage.Enabled = True
             Button6.Enabled = True
         End If
@@ -193,6 +197,19 @@ Public Class frmMain
         End If
     End Sub
 
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        clrPnlMain()
+        Dim usrCntl As New usrCntlAPI
+        pnlMain.Controls.Add(usrCntl)
+        usrCntl.Dock = DockStyle.Fill
+        button_Click(sender)
+    End Sub
 
- 
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        clrPnlMain()
+        Dim usrCntl As New usrCntlERS
+        pnlMain.Controls.Add(usrCntl)
+        usrCntl.Dock = DockStyle.Fill
+        button_Click(sender)
+    End Sub
 End Class