Aviso-Treppe

Aviso/usrcntlAktDetails.vb

@@ -43,6 +43,7 @@ Public Class usrcntlAktDetails
     '  Dim WithEvents timerDetails As New Timer
     Dim AVISO As cAviso = Nothing
     Dim WithEvents timerSendRows As New Timer
+    Dim isFailureShown As Boolean = False
 
     Dim painted As Boolean = False ' Damit gridVermerke Formattierung nicht dauernd anspringt..
 
@@ -1532,6 +1533,7 @@ Public Class usrcntlAktDetails
     End Sub
 
     Sub ArrowDown_ShowHide()
+        If isFailureShown Then Exit Sub
         picArrowDown.Visible = False
         If dgvSendungen.RowCount = 0 Then Exit Sub
         Select Case tbcntlVermerke.SelectedIndex
@@ -1548,6 +1550,7 @@ Public Class usrcntlAktDetails
                     Next
                 Catch ex As Exception
                     VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    isFailureShown = True
                 End Try
         End Select
     End Sub