Aviso Redesign

Aviso/frmHauptfensterNew.vb

@@ -107,15 +107,20 @@ Public Class frmHauptfensterNew
 
 
         ' toggle_Buttons_Main(sender)
-        For Each button In FlowLayoutPanel1.Controls
+        For Each button As Control In FlowLayoutPanel1.Controls
             With button
-                .BackColor = btnDEFAULT_UnSelected.BackColor
-                .ForeColor = btnDEFAULT_UnSelected.ForeColor
-                .Font = btnDEFAULT_UnSelected.Font
+                If Not .Name.ToString.Contains("DEFAULT") Then
+                    .BackColor = btnDEFAULT_UnSelected.BackColor
+                    .ForeColor = btnDEFAULT_UnSelected.ForeColor
+                    .Font = btnDEFAULT_UnSelected.Font
+                End If
             End With
         Next
 
         Dim SelectedBtn As Button = Nothing
+
+
+
         Select Case SEARCH_AVISO_AKTIV
             Case "SND"
                 splitMainWorkingView.Panel2Collapsed = True
@@ -129,7 +134,7 @@ Public Class frmHauptfensterNew
                 Application.DoEvents()
             Case "AVISO"
                 splitMainWorkingView.Panel2Collapsed = True
-                SelectedBtn = btnVIEW_LKW
+                SetBtnSelectedolor(btnVIEW_LKW)
                 If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
                 SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
                 pnlMain.Controls.Add(SEARCH_AVISO)
@@ -140,7 +145,7 @@ Public Class frmHauptfensterNew
 
             Case "AVISO_SND_KOMBI"
                 splitMainWorkingView.Panel2Collapsed = False
-                SelectedBtn = btnVIEW_KOMBI
+                SetBtnSelectedolor(btnVIEW_KOMBI)
                 If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
                 SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
                 pnlMain.Controls.Add(SEARCH_AVISO)
@@ -159,7 +164,7 @@ Public Class frmHauptfensterNew
 
             Case "COMPLIANCE"
                 splitMainWorkingView.Panel2Collapsed = True
-                SelectedBtn = btnVIEW_Compliance
+                SetBtnSelectedolor(btnVIEW_Compliance)
                 'If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
                 'SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
                 'pnlMain.Controls.Add(SEARCH_AVISO)
@@ -170,7 +175,7 @@ Public Class frmHauptfensterNew
 
             Case "CUSTOMS_CONTROLLING"
                 splitMainWorkingView.Panel2Collapsed = True
-                SelectedBtn = btnVIEW_CustControling
+                SetBtnSelectedolor(btnVIEW_CustControling)
                 'If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
                 'SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
                 'pnlMain.Controls.Add(SEARCH_AVISO)
@@ -184,15 +189,16 @@ Public Class frmHauptfensterNew
         initsearch(SEARCH_AVISO_AKTIV, False) ': Aviso_anzeigen("")
 
 
+
+    End Sub
+
+    Sub SetBtnSelectedolor(SelectedBtn)
         With SelectedBtn
             .BackColor = btnDEFAULT_Selected.BackColor
             .ForeColor = btnDEFAULT_Selected.ForeColor
             .Font = btnDEFAULT_Selected.Font
         End With
-
-
     End Sub
-
     Sub initsearch(hSort As String, Optional showDetails As Boolean = True)
         If SEARCH_AVISO IsNot Nothing Then
 
@@ -1874,6 +1880,8 @@ ELSE_ATILLA:
             End If
         End If
 
+        'Evtl abhängign vom User machen:
+        SWITCH_SEARCH("AVISO")
 
     End Sub
 
@@ -3947,4 +3955,8 @@ ELSE_ATILLA:
         SEARCH_AVISO.RESET()
         Grid_aktiv = True
     End Sub
+
+    Private Sub Button4_Click_2(sender As Object, e As EventArgs) Handles Button4.Click
+
+    End Sub
 End Class