Prikaz števil na vnosih za krmarjenje

Pokažite, koliko odprtih sej, neprebranih sporočil ali neuspelih opravil čaka za vnosom vrstice WklNavBar, in število sproti posodabljajte.

Zahteva WKL Forms Object Library 1.24 ali novejšo različico.

SetBadge Key, Count, Kind, Dot postavi na vnos značko: število (nad 99 kot „99+“), obarvano po vrsti stanja, ali piko brez števila. Značke so vrednosti v času izvajanja in se nikoli ne shranijo z obrazcem, zato jih aplikacija nastavi ob odprtju obrazca in vsakič, ko se števila spremenijo – za števila, ki se spreminjajo drugje, v Form_Timer.

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("*", "tblOpravila", "Stanje = 'Napaka'")
    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

• Število 0 ali manj značko odstrani, razen če je Dot True.
• Nastavitev značke ne sproži dogodka in ne spremeni izbora.
• Bralniki zaslona slišijo značko skupaj z vnosom, na primer „Seje: 3 (Opozorilo)“; vrsti wskWarn in wskBad sta imenovani, pika se prebere kot „novo“.
• V stolpcu simbolov je značka zgoraj desno ob simbolu, tako da tudi strnjena vrstica pokaže, da nekaj čaka.

• WklNavBar
• Referenčni priročnik API (v angleščini): WklNavBar (SetBadge, BadgeCount)