diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 971e907..f61f5df 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/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