TKSoft-Online

Problemstellung:

Wie kann ich mit der Statuszeile in Formularen arbeiten?

Lösung:
Das SysCmd-Objekt hat 2 Methoden dafür.
SYSCMD_SETSTATUS        zum Setzen eines Wertes und
SYSCMD_CLEARSTATUS  zum Löschen eines Wertes

1. Funktion zum Setzen eines Wertes in der Statuszeile:

Function SetStatusBar(sText As String)
    Dim vStatus
    vStatus = SysCmd(SYSCMD_SETSTATUS, sText)
End Function

Der Variablen sText wird der Wert der in der Statuszeile erscheinen soll übergeben.
Aufruf z.B.:

  SetStatusBar "Das ist ein Statustext!"

Ergebnis:

2. Funktion zum Löschen eines Wertes in der Statuszeile:

Function ClearStatusBar()
    Dim vStatus
    vStatus = SysCmd(SYSCMD_CLEARSTATUS)
End Function

Aufruf z.B.:

  ClearStatusBar

Ergebnis: