|
alle öffnen alle schließen Nicht compiliert - . . geändert |
Wertübergabe TaschenrechnerWERTÜBERGABE RECHNERvon 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 |
 |
||
