Anzahlen an Navigationseinträgen anzeigen

Zeigen Sie an, wie viele offene Sitzungen, ungelesene Nachrichten oder fehlgeschlagene Aufträge hinter einem Eintrag einer WklNavBar warten, und halten Sie die Zahl aktuell.

Voraussetzungen: WKL Forms Object Library 1.24 oder höher.

SetBadge Key, Count, Kind, Dot setzt ein Badge auf einen Eintrag: die Anzahl (über 99 als „99+“), gefärbt nach einer Statusart, oder einen Punkt ohne Zahl. Badges sind Laufzeitwerte und werden nie mit dem Formular gespeichert. Die Anwendung setzt sie daher beim Öffnen des Formulars und immer dann, wenn sich die Anzahlen ändern – in Form_Timer für Anzahlen, die sich an anderer Stelle ändern.

Private Sub Form_Load()
    RefreshBadges
    Me.TimerInterval = 30000          ' every 30 seconds
End Sub
 
Private Sub Form_Timer()
    RefreshBadges
End Sub
 
Private Sub RefreshBadges()
    Dim failed As Long
    failed = DCount("*", "tblAuftraege", "Status = 'Fehler'")
    With Me!navMain.Object
        .SetBadge "sessions", DCount("*", "tblSessions", "IsOpen = True"), wskWarn
        .SetBadge "jobs", failed, IIf(failed > 0, wskBad, wskNeutral)
        .SetBadge "news", 0, wskInfo, DCount("*", "tblNews", "IsRead = False") > 0   ' a dot for "new"
    End With
End Sub

• Eine Anzahl von 0 oder weniger entfernt das Badge, es sei denn, Dot ist True.
• Das Setzen eines Badges löst kein Ereignis aus und ändert die Auswahl nicht.
• Bildschirmsprachausgaben hören das Badge mit dem Eintrag, zum Beispiel „Sitzungen: 3 (Warnung)“. Die Arten wskWarn und wskBad werden genannt, ein Punkt wird als „neu“ gelesen.
• In der Symbolspalte sitzt das Badge oben rechts am Symbol. So zeigt auch eine eingeklappte Leiste, dass etwas wartet.

• WklNavBar
• API-Referenz (Englisch): WklNavBar (SetBadge, BadgeCount)