Resourcen
Bücher
Presse
Stellen
Tipps

alle öffnen    alle schließen


Nicht compiliert - . . geändert
 

Wertübergabe Taschenrechner

WERTÜBERGABE RECHNER

von Rainer Becker

Der Taschenrechner im Systemmenü von FoxPro läßt sich sehr leicht in eigene Anwendungen einbauen, in dem man eine entsprechende Leiste mit dem Systemmenünamen des Rechners in sein eigenes Menü integriert. Zusätzliche Funktionalität erhält man aber durch nachfolgende kurze Routine. Sofern der Benutzer in einer Maske ist und gerade auf einem numerischen Feld steht, wird der Wert des Feldes automatisch in den Taschenrechner übernommen:

Function Rechner
Private cFeld
m.cFeld = Varread()
If _curobj > 0 And ;
Type(m.cFeld) == "N"
_calcvalue = Evaluate(cFeld)
Endif
Activate Window Rechner
Return

Zusätzlich könnte man unter einer weiteren Menüposition das Kopieren des Taschenrechnerwertes in das Clipboard _CLIPTEXT anbieten. Dann kann der Benutzer den berechneten Wert zurück in das numerische Feld in der Maske übernehmen.

FUCHS 4/93