Spin Button in Formular

[just.do.it]

Hallo,

ich habe einen SPinButton auf einem Formular platziert, um in einem Zahlen-Felde Werte inkremntieren und dekrementieren zu können.

Im Prinzip läuft das auch soweit (Prototyp  ), aber die Performance des SpinButtons ist echt für'n Popo.  Also bis ein Mausklick komplett verarbeitet ist, das dauert fast eine ganze Sekunde.
Interessanter Weise erscheint folgendes im Notes-Client in der Status-Zeile, bei jedem Klick:
"Bildfarben werden analysiert...
6 Bildfarben werden optimiert
Bildfarben werden neu zugewiesen"
Ich weiß nicht, ob das was mit der Geschwindigkeit zu tun hat.

Vielleicht hat ja jemand eine besser Idee. Evtl. gibt es ja auch ein Controll, daß nicht nur den SpinButton, sondenr gleich das Edit-Feld mitbringt. Das könnte schneller sein.

Im Moment habe ich im OnChange-Event des Spinbuttons folgenden Code:

Sub Change(Source As Spinbutton)
   
   Dim ws As New NotesUIWorkspace
   
   Call ws.CurrentDocument.FieldSetText("ANZAHL", Cstr(Source.Value))
End Sub

Gruß
Dirk